RECOPIE MA MACRO
tu ne vois pas que tu as des guillemets et des espaces dans le nom de ta feuille
Les guillemets c’est parce que j’avais copier sur le bloc note.
J’ai copié ta macro et voila encore une erreur
Ouais,
Je ne vois pas
Teste avec l’enregistreur de macro pour enregistrer en PDF, et place moi le module
Bon
Remplace la macro par celle-ci
elle devrait t’afficher un message avec le nom du chemin d’enregistrement
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
MsgBox rep
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
rep & "Bon de commande N°_" & Nomdossier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'enregistrement du fichier en PDF
End Sub
Remplace par ceci,
Bizarre que tu n’ai pas eu le message box d’affiché
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
msgbox rep
' 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
toujours rien !
tu sais dans le dossier des archives, après le …\Archives BON DE COMMANDE il y a aussi …\2021.
c’est peut être cela ?
Re,
C’est quoi ce 2021
c’est comme ça que les emplacements des archives ont été créés.
C:\Users\langm\3D Objects\essai\Archives BON DE COMMANDE\2021
Re,
je n’y comprends à tes indications
dans l’essai d’enregistrement en pdf, tu m’affiche cela
là, il n’y a pas le dossier ESSAI que tu m’affiches plus bas
Alors si tu n’est pas dans les mêmes dossiers et que tu rajoutes des dossiers style 2021 etc
tu vas galèrer lontemps
juste après cette ligne
If Nomdossier = « » Then Exit Sub
place cette ligne
Msgbox NomDossier
et dis moi ce qu’elle dit
Non Mimimathy, les dossiers archives étaient toujours comme ça avec le 2021 à la fin pour mieux les archiver.
quand j’ai enregistré la macro tout à l’heure je l’avais juste placée dan objets 3D. voir pièce jointe.
pour ton changement à l’instant rien de nouveau voir pièces jointes et cela ne m’a rien mis dans les archives.
Si c’est trop compliqué tu n’as qu’a faire comme toi tu ferai.
Re,
Regarde si tu peut ouvrir cette archives qui contient tout
Re,
les miracles existent!!
j’ai fais le tour ça fonctionne.
Il ne me reste plus qu’a copier ton dossier complet sur mon bureau du pc ?
Re,
Merci beaucoup Mimimathy. C’est très très bien fait tout ce classeur.
Re,
Est ce que les recherches d’archives fonctionnent bien
Re,
oui la recherche fonctionne très bien, mais elle est affichée un peu bas lors de l’ouverture.
Tout le reste fonctionne très bien, je suis le plus heureux
Re,
tu peut jouer avec cette macro qui se trouve sur l’USF Archives
Private Sub UserForm_Activate()
Archives.Top = 350
Archives.Left = 465
End Sub
avec le TOP en le diminuant tu vas le remonter
Je vais devenir un vrai pro de tout ça
Impeccable Mimimathy. Merci encore c’est vraiment sympa de ta part de m’avoir aidé.
Est ce qu’on peut donner des notes sur ce forum ?