Macro engregistrer pdf + nommer

bonjour à toutes et tous

après multiples essais suite à mes trouvailles sur le net, je capitule et je décide de vous appeler au secours

je souhaiterais créer une macro pour enregistrer la feuille 2 de mon classeur en format pdf dans un répertoire particulier (exemple : mes documents)

jusque là facile, il suffirait d'enregistrer une macro.

Sauf que je souhaite que lorsque la macro s'active elle nomme le fichier pdf de la façon suivante :

"ETAT_XX/XX/XX_CTG YY/YY"

les x serait une date contenu en I24 et YY une date mm/yy contenu en G6


Merci de votre attention

Salut, pour cela tu as l'enregistreur de macros

De plus le / est interdit dans les noms de fichiers

au final qqch du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit   Sub Tst() Dim sNomFichier As String sNomFichier = ThisWorkbook.Path & "\" & "ETAT_" & Format(Feuil2.Range("I24"), "dd mm yyyy") & "_CTG " & Format(Feuil2.Range("G6"), "mm yy") & ".pdf" Feuil2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ sNomFichier, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub

---

P.-S. : Tu n'es pas sur le bon forum. A lire

bonjour

je te remercie de ton aide

pour l'enregistreur de macro, j'ai essayé mais cela ne marche pas.

En effet, j'ai essayé mais je n'arrive pas faire en sorte de changer le nom en fonction des paramètres que je souhaite ou à un mettre un chemin d'accès différent pour enregistrer dans un dossier différent.

En tous cas, encore une fois, merci pour la macro. Je vais essayer de me "dépatouiller" pour la finaliser et la comprendre

et désolé

Citation:

---

Envoyé par bnj71

En tous cas, encore une fois, merci pour la macro. Je vais essayer de me "dépatouiller" pour la finaliser et la comprendre

---

Qu'est-ce qu'il y a à "dépatouiller" ? Kiki t'a servi du tout cuit prêt à consommer.

pour enregistrer sur un chemin d'accès différent

Salut, il te suffit de remplacer "ThisWorkbook.Path" par ton chemin que tu dois avoir puisque tu dis avoir utilisé l'enregistreur de macros.

oui j'ai utilisé enregistreur de macro mais je ne vois comment l'adapter à ta macro
car quand je rajoute la ligne "ChDir" dans la tienne ça ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro6() ' ' Macro6 Macro '   ' ChDir "T:\Partage\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "T:\Partage\Classeur4.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub

---

j'ai trouvé !!

je suis vraiment une buse ! :)

MERCI BEAUCOUP !

Ne le prends pas mal, mais j'acquiesce ..... triplement même :D .