Menu

Enregistrer sous avec nom du document VBA

Messages postés
45
Date d'inscription
mardi 13 novembre 2018
Dernière intervention
8 février 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
5825
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2019
- 8 févr. 2019 à 15:12
Bonjour,
actuellement j'ai fait un fichier excel qui se remplis automatiquement en fonction de valeur que l'on aura rentré et en suis j'ai un bouton enregistrer le PDF qui va permettre d'enregistrer mon PDF dans un chemin défini dans une cellule sauf que j'aimerai que ce chemin et se nom soit demander au moment ou je clic sur le bouton comme si on enregistrait sous un fichier.
voici mon code pour comprendre se que j'ai fait:

Dim Chemin As String
Dim Nom As String

Sub Enregistrer_PDF()

Nom = [K16]
Chemin = [K14]
If Len(Dir(Chemin, vbDirectory)) > 0 Then

If [D93] = "" Then
 Range("D1:G81").Select
 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 Chemin & "/" & Nom, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False
Else
   If [D174] = "" Then
   Range("D1:G162").Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   Chemin & "/" & Nom, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
   False
   Else
     If [D255] = "" Then
     Range("D1:G243").Select
     Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     Chemin & "/" & Nom, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
     False
     Else
       Range("D1:G324").Select
       Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       Chemin & "/" & Nom, Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
End If
End If
End If
MsgBox "Le Devis est enregistré dans " & Chemin & " au nom de " & Nom
   Else
      MsgBox "Le dossier de destination n'existe pas"
End If

End Sub


Dim a As Variant


merci de votre aide.
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5825
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2019
404
0
Merci
Bonjour,

Voir cet exemple à adapter pour un PDF:

https://www.commentcamarche.net/forum/affich-35827383-creation-d-onglets-par-jour#35

Commenter la réponse de cs_Le Pivert