Macro engregistrer pdf + nommer

**bnj71** · 26/05/2016, 13h50

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

**kiki29** · 26/05/2016, 14h05

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**bnj71** · 26/05/2016, 15h36

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é

**Menhir** · 26/05/2016, 16h07

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.

**bnj71** · 26/05/2016, 16h12

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

**kiki29** · 26/05/2016, 16h21

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

**bnj71** · 26/05/2016, 16h47

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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