[Macro] exporter en pdf sans écraser le dernier

Résolu/Fermé

Moimoi - Modifié le 17 mars 2023 à 17:16
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 - 17 mars 2023 à 22:44

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

A voir également:

[Macro] exporter en pdf sans écraser le dernier
Lire le coran en français pdf - Télécharger - Histoire & Religion
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Save as pdf - Télécharger - Bureautique
Comment faire un pdf - Guide
Comment fusionner des pdf sans logiciel - Guide

3 réponses

Réponse 1 / 3

Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 426
Modifié le 17 mars 2023 à 18:45

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

Réponse 2 / 3

Moimoi
17 mars 2023 à 19:31

Merci de ta réponse :)

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

Merci et bon week

Réponse 3 / 3

Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 426
17 mars 2023 à 22:44

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

Newsletters