reinruof77
XLDnaute Occasionnel
Bonjour le forum
Voila j'ai trouver le moyen de mettre ma feuille au format pdf mais je n'arrive pas a trouver le moyen de l'enregistrer dans le dossier de mon choix.
voici mon code.
je doit modifier cette ligne mais je n'y arrive pas
pour imprimer je pensait a :
.
mais bon je ne suis pas sur d'ou ma demande.
Merci de votre aide.
et Merci de nous aidez.
Voila j'ai trouver le moyen de mettre ma feuille au format pdf mais je n'arrive pas a trouver le moyen de l'enregistrer dans le dossier de mon choix.
voici mon code.
Code:
Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'
Sheets("Feuil1").Select
Dim fichier As String
fichier = "F:\ " & [J2].Value & "_" & [C3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, OpenAfterPublish:=True
End Sub
je doit modifier cette ligne mais je n'y arrive pas
Code:
Dim fichier As String
fichier = "F:\ " & [J2].Value & "_" & [C3].Value
pour imprimer je pensait a :
Code:
ActiveSheet.PrintOut
mais bon je ne suis pas sur d'ou ma demande.
Merci de votre aide.
et Merci de nous aidez.