Bonjour,
J'aimerais améliorer un petit truck dans ce macro.
Il permet d'imprimer les fichiers en Pdf.
J'aimerais ajouter quelques message box,
1 - Afficher un message lorsque il y a un problème dans le répertoire:
MsgBox "Veuillez vérifier que le dossier 'Fichier PDF' est bien dans l'emplacement suivant :" & Chr(10) & "C:\Fichier PDF\"
2 - Afficher un message lorsque l'une des cellules (F10 ; G10 ; A12 ; F14) sont vides, lorsqu'il n'y a pas de données.
MsgBox "Veuillez vérifier que les cellules sont bien complétée" & Chr(10) & "Voici la liste des cellules à compléter" & Chr(10) & "Nom du Client, Type de document, Numéro du document et Nom du chantier"
Je vous mets un fichier pour mieux comprendre.
Attention à extraire dans "C:/"
Merci d'avance.
A6
J'aimerais améliorer un petit truck dans ce macro.
Code:
Sub ImprimerPDF()
Dim LePath$
LePath = "C:\Fichier PDF\" & [F10] & [G10] & " - " & [A12] & " (" & [F14] & ").pdf"
If Dir(LePath) <> "" Then If MsgBox("Un fichier nommé '" & LePath & "' " & "existe déjà à cet emplacement" & vbCr & _
"Voulez-vous le remplacer ?", vbYesNo + vbQuestion, "Voulez-vous écraser le fichier PDF existant ?") = vbNo Then Exit Sub
On Error Resume Next
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LePath, OpenAfterPublish:=True
If Err Then
End If
End Sub
Il permet d'imprimer les fichiers en Pdf.
J'aimerais ajouter quelques message box,
1 - Afficher un message lorsque il y a un problème dans le répertoire:
MsgBox "Veuillez vérifier que le dossier 'Fichier PDF' est bien dans l'emplacement suivant :" & Chr(10) & "C:\Fichier PDF\"
2 - Afficher un message lorsque l'une des cellules (F10 ; G10 ; A12 ; F14) sont vides, lorsqu'il n'y a pas de données.
MsgBox "Veuillez vérifier que les cellules sont bien complétée" & Chr(10) & "Voici la liste des cellules à compléter" & Chr(10) & "Nom du Client, Type de document, Numéro du document et Nom du chantier"
Je vous mets un fichier pour mieux comprendre.
Attention à extraire dans "C:/"
Merci d'avance.
A6