Bonjour j'ai une macro qui me converti une feuille excel en pdf. De plus, la feuille convertie est propre a un client, que l'on choist à l'aide d'une liste déroulante.
Est il possible que la macro me génere la fiche de chaque clients dans un dossier donné.
La macro suivante: me permet de générer la fiche mais que j'ai préalablement sélectionnéé.
Voici la macro que j'utilise:
Private Sub CommandButton1_Click()
Chemin = "C:\Documents and Settings\GVF08F3\Bureau\Nouveau dossier"
PDFFile = Sheets("Fiche à transmettre a CE").Select & ".pdf"
Sheets("Fiche à transmettre a CE").ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=[M4].Value, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
En résumé mon probleme est de pouvoir générer la fiche de la totalité de mes clients et surtout de pouvoir choisir l'endroit où les sauvegarder.
Je vosu remercie pour votre aide.
Cordialement
Est il possible que la macro me génere la fiche de chaque clients dans un dossier donné.
La macro suivante: me permet de générer la fiche mais que j'ai préalablement sélectionnéé.
Voici la macro que j'utilise:
Private Sub CommandButton1_Click()
Chemin = "C:\Documents and Settings\GVF08F3\Bureau\Nouveau dossier"
PDFFile = Sheets("Fiche à transmettre a CE").Select & ".pdf"
Sheets("Fiche à transmettre a CE").ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=[M4].Value, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
En résumé mon probleme est de pouvoir générer la fiche de la totalité de mes clients et surtout de pouvoir choisir l'endroit où les sauvegarder.
Je vosu remercie pour votre aide.
Cordialement
