Discussion :

[uwestern]

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 :

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

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

[SfJ5Rpw8]

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 ?

[casefayere]

Bonsoir,

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

Code :

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

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

[clementmarcotte]

Bonjour,

Essaie en bâtissant ton nom de fichier avant:

Code :

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

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

[casefayere]

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

Code :

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

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

pourquoi 2 antislash à la suite ?

[SfJ5Rpw8]

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 ...

[uwestern]

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

[kiki29]

Salut, à adapter à ton contexte

Code :

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

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

[uwestern]

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

[SfJ5Rpw8]

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

[kiki29]

Salut, par exemple comme ceci

Code :

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

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

[uwestern]

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 :

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

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