Re : Macro Enregistrement PDF
Salut kiki29
J'ai essayé ton code mais sans sucer!
Par contre en réfléchissant un peu j'ai déterminer une forme différente pour arrive a mes fins.
1º - j'enregistre la feuille avec les données de mes cellules dans le dossiers de destination.
2º - j'effectue une impression avec l'imprimante virtuelle d'adobe acrobat qui automatiquement utilise le nom du fichier créer précédemment.
Ainsi j'ai les deux fichiers excell et Pdf. Si j'ai besoin je peu compléter la macro avec la suppression du fichier excell pour seulement avoir le Pdf.
le code:
Sub SauverFichier()
'Date du jour à figer par copier collage spécial
Range("F18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Sauvegarde du fichier sous le numéro
Dim D As String
'Dim A As Long, togo As Boolean
Dat = Format(Date, "dd-mm-yyyy")
Chemin = "C:\TEST\"
NomFichier = Range("C18") & " - " & Range("F18") & " - " & Range("E9")
Extantion = ".xlsm"
ThisWorkbook.SaveAs Filename:=Chemin & NomFichier & Extantion
'Convertion en Adobe Acrobat (pdf)
'Boite selection de l'imprimante (option)
'Application.Dialogs(xlDialogPrinterSetup).Show
'Selection de l'imprimante PDF
ActivePrinter = "Adobe Pdf sur Ne04:"
ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"
End Sub