Sauvgarde en PDF avec Nom d'une cellule

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:

---

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.

Salut,

Code:

---

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

---

Salut, essaye ceci :

Code:

---

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:

---

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

---

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

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.