Discussion :

[malababar]

Bonjour,

J'utilise une macro pour exporter mes Devis au format PDF.
Tout fonctionne bien , sauf que maintenant je souhaite que le nom de ce fichier soit celui de la Cellule G7 (Réf concatener depuis 3 cellules)

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Sub Export_PDF()
    Dim LeNom As String
    LeNom = Sheets("Devis_Négoce").Range("G7")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "O:\REPERTOIRE\LeNom.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
   End Sub

J'ai tenté de créer une variable LeNom mais le Pb c'est que le PDF exporté s'appelle toujours LeNom (en fait le cnnude ma cellule G7 n'y est pas )

Je ne comprends pas mon erreur.
Qqun pour m'e mettre sur la bonne voie?

Merci.

[kiki29]

Salut,

Code :

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

 ...,Filename:= "O:\REPERTOIRE\" & LeNom & ".pdf",..

[jojo86]

Salut, essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Export_PDF()
Dim LeNom As String
LeNom = Sheets("Devis_Négoce").Range("G7")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"O:\REPERTOIRE\" & LeNom & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

Voila, juste une petite erreur ! Bon Courage !

Tu peux aussi enregistrer ton fichier dans le même répertoir que ton fichier Excel... Ca peut être pas mal aussi ! comme ça à chaque fois tu sais que ton fichier sera avec ton fichier Excel !!!

Par exemple :

Code :

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

1
2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & LeNom & ".pdf", _

Voila, à toi de voir ! tien nous au courant.

[malababar]

Un Grand Merci à vous.
Voilà enfin la concrétisation de mon petit projet.

Merci pour la variante de sauvegarde dans le même répertoire.

Bonne continuation..

Et merci encore.