Enregistrer PDF excel 2007-2010

Bonsoir à toute et à tous,

J'ai parcouru tous les forums et ai trouvé les réponses à mes questions mais aucune ne marche quand je l'applique à excel alors j'aimerais vos lumière concernant mon code que je vous joins en-dessous.

J'ai une macro qui enregistrer un fichier au format PDF et le nom de ce fichier se trouve dans la cellule A2. Pour compléter l'information le nom de ce fichier est une date que j'obtiens avec la formule ; =maintenant()

Vu que je modifie ce fichier tout le jour et que je l'enregistrer au format PDF, j'aimerais qu'il prenne la date du jour voilà le pourquoi de la date automatique dans la cellule A2.

Donc voici mon code juste en-dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub enregistrer()   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "J:\" & "\" & Range("A2") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False       End Sub

---

Et je ne comprend pas pourquoi cela ne fonctionne pas.


J'attends avec impatience vos lumières,

Bonne soirée à toutes et à tous

Uwe

Bonsoir ,


sous quel format est affichée ta date ?

tu te permet d'utiliser un objet Range sans préciser la feuille concernée ... est tu vraiment sur que la feuille active soit celle contenant ta date ?

Bonsoir,

j'avais préparé une réponse qui rejoignait celle de Bbil mais une autre chose m'étonne, cette partie

Code:

---

..."J:\" & "\" & ...

---

Bonjour,

Essaie en bâtissant ton nom de fichier avant:

Code:

---

1 2 3 4 5 6 7 8 9

Sub enregistrer() dim chemin as string chemin = "J:\" & "\" & Range("A2").value & ".pdf", ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= chemin _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub

---

Au besoin, mets un espion sur chemin et vérifie, s'il n'y a pas des espaces ou des caractères parasites qui se glisseraient dans le chemin d'accès

Bonsoir,
même remarque que mon dernier post, ça m'étonne

Code:

---

..."J:\" & "\" & ...

---

pourquoi 2 antislash à la suite ?

En lisant la réponse à clémentmarcotte je m'aperçoit que j'ai oublié quelque chose dans ma réponse .. pour que le format définit dans ta feuille de calcul soit utilisé il ne faut pas utiliser la propriété par défaut de l'objet range (.value) mais il faut utiliser la propriété .text ... ;)

Bonsoir,

Merci a tous pour vos réponses si rapide et c'est vrai que j'ai oublié de préciser des points.

Pour cela je vous joins un fichier excel, cela sera plus simple.

Alors j'aimerais arriver à enregistrer la feuil1 de ce fichier au format PDF avec le nom de la Cellule A2 (la date qui est inscrite)

Le bouton rouge effectue normalement cela, mais il y a un problème que je n'arrive pas à résoudre.

Le fichier doit s'enregistrer sous J:

voir mon horrible macro dans le fichier.

J'attends avec impatience de vos nouvelles et vous remercie encore beaucoup de votre participation.

Je vous souhaite à toutes et à tous un belle soirée et de magnifiques fêtes

Salut, à adapter à ton contexte

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Sub Test() Dim sNomFichier As String sNomFichier = ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd hhmmss") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichier, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False End Sub

---

Bonsoir,

Merci à "Kiki29", mais ça ne répond pas à ma question de savoir comment faire pour que j'arrive à sauvegarder une copie en PDF avec comme nom de fichier la cellule A2 de la Feuil1

J'espère que vous pourrez m'aidez, je vous souhaite une bonne soirée

Uwe

Et qu'attends tu pour répondre as nos questions ? plutôt que poster si rapidement ton fichier..

Salut, par exemple comme ceci

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Sub Test() Dim sNomFichier As String sNomFichier = ThisWorkbook.Path & "\" & Format(Now + 1, "dddd dd mmmm yyyy") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichier, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

---

Bonjour à toutes et à tous,

J'ai trouvé réponse à ma question autrement.

Mais un Grand Merci à "kiki29" pour ta contribution qui m'a permise de pouvoir trouver la solution que je joins juste en-dessous pour qui ça intéressera.

D'autre part Monsieur le Modérateur "bbil", je tiens à vous préciser que je suis manager dans la vie et que même sûr un forum il y a une façon de parler, je n'oserai en aucun cas parler de cette sorte à mon équipe. Je pense que cela serait des mieux que vous preniez des cours de diplomatie.

Code trouvé avec l'aide de Kiki29 ;

Code:

---

1 2 3 4 5 6 7

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "J:\" & "\" & Range("A2") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False   ActiveWorkbook.Save

---