Re,
j’ai réussi à mettre en place c’était pas simple !!
Maintenat tout fonctionne à part dans les feuilles:
BON DE COMMANDE
BON DE LIVRAISON
ou je n’arrive plus à archiver !
J’ai essayé avec le texte VBA de la feuille FEUILLE SORTIES maiça marche pas
Re,
Je ne vois pas pourquoi les archives ne fonctionneraient pas, étant donné que la macro est la même pour les trois feuille mais n’est pas de moi (d’où le fait que j’avais annoncé un BUG)
Si ton dossier n’est plus au même endroit ou même PC, c’est normal
les archives se placent suivant cette macro, à cet emplacement
« C:\Users\langm\Documents\ARCHIVES FEUILLES SORTIES »
Ce qui est bizarre de ma part, d’archiver 3 feuilles différentes dans un même dossier !!
Bonjour Mimimathy,
Comme j’ai dis hier j’ai réussi à tout remettre en place. Le bug que tu as rectifié hier est parti.
Le dossier est toujours sur mon PC et il restaera sur mon PC, je préfère l’emmener s’il le faut.
Mais j’ai essayé de faire le tour et lors de l’archivage du bon de commande ou du bon de livraison il m’indique une erreur.
Alors tu dis « Ce qui est bizarre de ma part, d’archiver 3 feuilles différentes dans un même dossier !! » Explique moi STP.
C’est toi l’expert donc je suis tes conseils il n’y a aucun soucis.
Si je dois changer quelque chose ça sera fait.
Tu as encore le classeur alors envoie moi juste les textes vba qu’il faut ajouter pour les archives et je changerai cela. si c’est la même macro il faut certainement changer deux trois choses comme le nom de la feuille et le lieu d’archivage, non ?
Merci a toi
A+
Re,
pour tes archivages des 3 feuilles, c’est la même macro,
mais il vont sur le même dossier dans C:\Users\langm\Documents\ARCHIVES FEUILLES SORTIES , or il serait bien mieu de les placer dans trois dossiers différents et aussi de les placer dans le même dossier que celui ou se trouve ton classeur. Dans ce cas, il te faut juste une clé USB pour copier l’ensemble du dossier et l’ouvrir ou le copier sur un autre PC, il sera opérationnel et cela te permettra également de faire des sauvegardes sur cette clé de temps à autre afin de ne pas perdre le programme en cas de plantage du disque dur de ton PC
De plus, quand tu enregistre ces feuilles, il y juste un message qui te demande l’année pour la sauvegarde, je pense que les sauvegarde seront plus fréquente et vont porter sur le N° du bon
Re,
Dans le dossier principal que j’ai créé et où j’ai tout mis comme tu m’as conseillé dès le départ, cela est fait.
J’ai mes dossiers archivage mour sorties, commandes, et livraison.
C’est juste que si je veux archiver une commande ou livraison je ne les trouve pas dans les dossiers respectifs.
C’est pour cela que je voulais que tu m’indique le texte à charger dans les vba pour chaque feuille.
Pour transporter le dossier j’ai compris avec uns clé usb.
Si tu pourrai m’envoyer cel c’est bon, ensuite ça devrait marcher.
Merci et a +
Re,
voilà comment doit-être composé ton dossier
Je t’ai rajouté un bouton sur TdB afin de visualiser les archives en les recherchant par dossier
A toi de voir
Gestion collective prête 1 - Copie (2).xlsm (350,7 Ko)
Re,
C’est super de ta part. Merci beaucoup.
Je serai chez moi demain et je termine tout ça.
Bonne fin de journée.
A+
Re
Comme je suis rentré plus tôt, j’ai essayé à l’instant ton classeur.
il y a des erreurs qu’il m’affiche ! Regarde les pièces jointes .
J’ arrive à imprimer « feuille sorties » mais pas archiver. de même pour bon de commande et bon de livraison . je n’arrive pas a imprimer ni archiver !
A+
Gestion collective prête 1 - Copie (2).xlsm (359,6 Ko)
Re,
A tester, chez moi tout fonctionne
As-tu, pour les archives des trois feuilles, créés les dossiers respectifs comme je l’ai indiqué plus haut sur l’image ?
Gestion collective prête 1 - Copie (2) (1).xlsm (350,2 Ko)
Re,
oui j’ai créé le dossier comme sur ton message . je vais tester tout à l’heure et je reviendrai vers toi.
Merci A+
Re,
j’ai créé le dossier comme indiqué, ça devrait être bon.
alors imprimer fonctionne sur les trois feuilles avec en plus aprçu avant de l’imprimer. 
Par contre aucune des trois feuilles peut être archiver ! Il m’indique l’erreur que tu peux voir dans les pièces jointes.
Re,
Tu as quelle version d’Excel ?
Re,
Microsoft Office 365
Re,
Quand il BUG, quel est le message d’erreur ?
Re,
par exemple quand je veux archiver le bon de commande c’est ça
Re,
Je ne vois pas
teste ceci MODULE 7 dans la macro
Sub BtnArchivBonCde()
'je nomme le dossier
Nomdossier = ActiveSheet.Range("B4") & " du " & Format(ActiveSheet.Range("D5"), "dd-mm-yyyy")
If Nomdossier = "" Then Exit Sub
rep = ThisWorkbook.Path & "\Archives BON DE COMMANDE\" ' Chemin du répertoire
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & "Bon de commande N°_" & Nomdossier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False 'enregistrement du fichier en PDF
End Sub
remplace le ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF…
par Sheets(« BON DE COMMANDE »).ExportAsFixedFormat Type:=xlTypePDF…
Sub BtnArchivBonCde()
'je nomme le dossier
Nomdossier = ActiveSheet.Range("B4") & " du " & Format(ActiveSheet.Range("D5"), "dd-mm-yyyy")
If Nomdossier = "" Then Exit Sub
rep = ThisWorkbook.Path & "\Archives BON DE COMMANDE\" ' Chemin du répertoire
Sheets("BON DE COMMANDE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & "Bon de commande N°_" & Nomdossier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False 'enregistrement du fichier en PDF
End Sub
et teste
Non,
regarde un peu ta macro,
Prends la macro de mon dernier post
rep = ThisWorkbook.Path & "\Archives BON DE COMMANDE\" ' Chemin du répertoire
Sheets("BON DE COMMANDE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & "Bon de commande N°_" & Nomdossier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False 'enregistrement du fichier en PDF
End Sub