[Macro] exporter en pdf sans écraser le dernier

Résolu
Moimoi -  
Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   -

Hello,

J'ai créé une macro pour exporter ma feuille active (zone d'impression) vers un fichier pdf et dans un dossier ccm par ex, nickel !

Par contre, j'aimerais que quand j'exporte, cela me créé un nouveau fichier en me demandant de renommer par ex ou non mais j'ai fait quelques cherches et ...

Voici l'actuelle 

Passez un bon weekend :)

Sub testvba()
'
' testvba Macro
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\sr1sr\Desktop\vba\ccmtest.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
        
End Sub

3 réponses

  1.
    Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Bonjour,

    Juste au passage, essayer comme suit:

    Sub testvba()
NomFichier = InputBox("Sans extention pdf !", "Entrez votre nom du fichier")
If NomFichier > "" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\sr1sr\Desktop\vba\" & NomFichier & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End Sub
    1
  2. Moimoi
     

    Merci de ta réponse :)

    Pas forcément la méthode à laquelle je pensais mais résultat nickel :)

    Merci et bon week 

    0
  3. Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Merci, pensez de marquer le poste comme résolu.

    0