Macro d'export en PDF

  • Initiateur de la discussion Initiateur de la discussion Akimadeus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Akimadeus

Guest
Bonjour à tous,

Je cherche à faire quelque chose qui vous paraitra sans doute simple, c'est simplement d'exporter mon classer en cours en pdf, pour l'enregistrer sous le même dossier que celui où se trouve ce classeur, avec le nom de fichier contenu dans la cellule C2.

En effet, je créé la macro que je vais mettre ci-dessous, l'exécute, elle fonctionne ! Mais si je referme mon classeur et le rouvre, elle ne fonctionne plus ! Comprends pas !

Sub PDF()
'
' PDF Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=[C2].Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub



Quelqu'un saurait me corriger ?

Merci beaucoup !
 
Re : Macro d'export en PDF

C'est good j'ai trouvé !

Si ça intéresse quelqu'un, j'ai fait comme ci-dessous :

chemin = ActiveWorkbook.Path
fichier = [C2].Value
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(chemin & "\" & fichier) _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.DisplayAlerts = True
ThisWorkbook.Saved = True
Application.Quit
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
6
Affichages
355
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
433
Réponses
3
Affichages
880
Réponses
3
Affichages
1 K
Réponses
6
Affichages
553
W
Réponses
10
Affichages
791
Retour