Probleme macro pour bouton

Bonjour,

J'ai créer un bouton pour transformer mon document en pdf.

Je ne trouve pas comment faire pour enregistrer plusieurs fois ma page , avec des données différentes. A chaque fois mon dernier enregistrement écrase le précèdent

Pouvez vous m'aider

Merci

Mon Macro est le suivant :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\PDF\Export.pdf", _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub

bonjour,

une solution possible, on sauve en ajoutant la date et l'heure dans le nom du fichier

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\PDF\Export " & Format(Now(), "yyyymmdd hhmmss") & ".pdf", _
    OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Merci pour ce retour rapide ,

Cela me sauvegarde toujours sur le même fichier . Il faudrait que cela me fasse plusieurs document et idéalement avec la référence qui se trouve dans la case C16

Je suis dans une impasse.

Merci pour votre aide

bonsoir,

Cela me sauvegarde toujours sur le même fichier

As-tu bien copié le code fourni ? Normalement le fichier est sauvegardé avec une indication de la date et de l'heure. Reçois-tu un message d'erreur ?

Voici une adaptation pour utiliser la référence en C16

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\PDF\Export " & Range("C16") & ".pdf", _
    OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub