Enregistrer feuille en PDF avec date - CODE EXISTANT A MODIFIER

[PatLac]

Bonjour à tous !
J´ai un code qui fonctionne (récupéré sur ce forum, mais je ne sais plus ou et je m´excuse auprès de l´auteur) et qui permer d´enregistrer une feuille active en PDF, dans un dossier prédéfini.
Jusque là pas de soucis ...

Elle est enregistrée avec le nom de la feuille, mais Je voudrais en plus que cette feuille soit enregistrer avec la date du jour, soit style: "mafeuille-jj-mm-aa.pdf" (actuellement: mafeuille.pdf)

C´est la que je bloque et que je solicite votre aide.

D´avance merci.

Bonne journée

Sub Macro1KAMPDFAKL1()
Dim i As Long
Application.ScreenUpdating = False
On Error Resume Next
'MkDir "c:\mesdocuments"
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\ARCHIVE" & Sheets(i).name & ".pdf"
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Archivé sous " & Sheets.Count & " c:\archive")
End Sub

 

[Paritec]

Re : Enregistrer feuille en PDF avec date - CODE EXISTANT A MODIFIER

bonjour
a+
papou

Sub Macro1KAMPDFAKL1()
Dim i As Long
Application.ScreenUpdating = False
On Error Resume Next
'MkDir "c:\mesdocuments"
For i = 1 To Sheets.Count
Sheets(i).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\ARCHIVE" & Sheets(i).name &  " " & format(date,"dd-mm-yy") &".pdf"
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Archivé sous " & Sheets.Count & " c:\archive")
End Sub

 

[Dull]

Re : Enregistrer feuille en PDF avec date - CODE EXISTANT A MODIFIER

Salut PatLac, le Forum

Pas testé mais essaye

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Archive" & Sheets(i).Name & "-" & Format(Date, "dd-mm-yy") & ".pdf"

EDITION: Salut Papou

Bonne Journée

 

[PatLac]

Re : Enregistrer feuille en PDF avec date - CODE EXISTANT A MODIFIER

Super !
Merci Papou ! Merci Drull !

 

[Paritec]

Re : Enregistrer feuille en PDF avec date - CODE EXISTANT A MODIFIER

Bonjour Didier patlac le forum
Didier je n'avais pas vu ta réponse j'étais parti chez des clients tu peux nous envoyer un peu de soleil???
Patlac si cela te convient c'est parfait
a+
papou