Bonjour le forum,
Je souhaite automatiser l'enregistrement d'un graphique au format pdf . Pour cela, je me suis aidé de la fonction "enregistrer une macro". Dans la séquence des actions enregistrées, je passe par l'imprimante virtuelle "Microsoft print to pdf pour générer le fichier. L'enregistrement est arrêté après la saisie du nom du fichier et le OK final.
Dans l'éditeur n'apparait pas la séquence enregistrement. Le test de la macro ne fait que confirmer la chose, l'action s'arrête à la saisie du nom du fichier.
Ci dessous le code . J'ai supprimé les lignes concernant la mise en page . La partie de code rajoutée me renvoie le message "Attendu : fin d'instruction"
PS: Le contrôle de l'existence du dossier n'est pas primordial, la sauvegarde devant se faire à priori dans le dossier du fichier excel source.
Merci d'avoir pris le temps de me lire et si possible de m'éclairer sur le pb.
Cordialement
Range("B1:S58").Select
Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
With ActiveSheet.PageSetup
End With
ExecuteExcel4Macro _
"PRINT(1,,,1,,TRUE,,,,,,1,""Microsoft Print to PDF sur Ne03:"",,TRUE,,FALSE)"
//fin de la séquence enregistrement
//code rajouté
Dim An As String
Annee = Range("A2").Text
If Dir(ThisWorkbook.Path & "\" & Annee, vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\" & Annee
ActiveWorksheets.SaveCopyAs "D:\Mes Documents\CCS\" & Annee & "\" & "Classement kms" & ".pdf")
Range("A1").Select
End Sub
Je souhaite automatiser l'enregistrement d'un graphique au format pdf . Pour cela, je me suis aidé de la fonction "enregistrer une macro". Dans la séquence des actions enregistrées, je passe par l'imprimante virtuelle "Microsoft print to pdf pour générer le fichier. L'enregistrement est arrêté après la saisie du nom du fichier et le OK final.
Dans l'éditeur n'apparait pas la séquence enregistrement. Le test de la macro ne fait que confirmer la chose, l'action s'arrête à la saisie du nom du fichier.
Ci dessous le code . J'ai supprimé les lignes concernant la mise en page . La partie de code rajoutée me renvoie le message "Attendu : fin d'instruction"
PS: Le contrôle de l'existence du dossier n'est pas primordial, la sauvegarde devant se faire à priori dans le dossier du fichier excel source.
Merci d'avoir pris le temps de me lire et si possible de m'éclairer sur le pb.
Cordialement
Range("B1:S58").Select
Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
With ActiveSheet.PageSetup
End With
ExecuteExcel4Macro _
"PRINT(1,,,1,,TRUE,,,,,,1,""Microsoft Print to PDF sur Ne03:"",,TRUE,,FALSE)"
//fin de la séquence enregistrement
//code rajouté
Dim An As String
Annee = Range("A2").Text
If Dir(ThisWorkbook.Path & "\" & Annee, vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\" & Annee
ActiveWorksheets.SaveCopyAs "D:\Mes Documents\CCS\" & Annee & "\" & "Classement kms" & ".pdf")
Range("A1").Select
End Sub
