Discussion :

[matweb]

Bonjour,

Je suis débutant en VBA je souhaite faire une petite macro qui me permet d'exporter une feuille et de la nomé automatiquement ex : "nomdelafeuille_DATE_HEURE"
j'ai réussi à faire une premier essai l'exportation se fait bien bien mais je n'arrive pas a ajouter la date et l'heure sur le nom du fichier.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub svgpdfgen()
'
' Macro16 Macro
'
 
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "[NOM DE LA FEUILLE]-[DATE]-[HEURE]", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
 
 
End Sub

vous remerciant pour votre aide.

cordialment

[Menhir]

Tu ne dis pas quel format de date et d'heure tu souhaites (sachant que les signes "/" et ":" sont à exclure).
On va supposer que tu veux comme date "yyyymmdd" et comme heure "hhmmss"

Ca pourrait se faire en une seule ligne, mais, pour une meilleure clarté du code, je te conseille de passer par une variable String intermédiaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub svgpdfgen()
   Dim NomPDF As String
 
   NomPDF = ActiveSheet.Name & "-" & Format(Now(), "yyyymmdd") & "-" & Format(Now(), "hhmmss")
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomPDF, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
 
End Sub

[mercatog]

Code :

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

1
2
3
4
Dim Rep As String
 
Rep = "C:\Users\MyPc\Desktop\" ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep & ActiveSheet.Name & "_" & Format(Now, "ddmmyyyy hhnnss")