Bonjour,
je viens vers vous car j'ai un souci excel qui devrait passionné, ceux d'entre vous qui aiment les casse tête 🙂
J'ai un classeur de données avec une feuille de synthese pour mes clients. Dans cette feuille j'ai une liste déroulante de formulaire, qui me permet de choisir mon client et de générer sa fiche de synthese.
J'aimerai envoyer ces fiches à mes clients par mail, donc j'ai décidé de créer uen macro les convertissant en pdf, et me permettant de choisir où les enregistrer, ce que j'ai réussi. Voici le code actuel:
Sub Bouton35_Clic()
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] & [U3] & [L15] & [L16].Value, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim Repertoire As FileDialog
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
' Si aucun répertoire sélectionné
If Repertoire.SelectedItems().Count = 0 Then Exit Sub
' Récupérer le chemin sélectionné
Chemin = Repertoire.SelectedItems(1)
If Mid(Chemin, Len(Chemin), 1) <> "\" Then Chemin = Chemin & "\"
End Sub
Jusque là parfait me direz vous, mais dans ma liste je n'ai pas de choix multiples, et donc je dois générer fiches par fiche... il y en a 1500 d'où la nécessité de faire une macro.
J'aimerai changer ma liste déroulante formulaire mais j'ai des formules qui en dépendent pour générer les chiffres. Comment faire un activeX, un combobox ? listbox ? Quel code crée?
Comment puis je faire pour me sortir de ce probleme 🙁
Je vous met un fichier en pièce jointe, qui résume la chose de façon sucsinte.
Je vous remercie pour votre aide.
je viens vers vous car j'ai un souci excel qui devrait passionné, ceux d'entre vous qui aiment les casse tête 🙂
J'ai un classeur de données avec une feuille de synthese pour mes clients. Dans cette feuille j'ai une liste déroulante de formulaire, qui me permet de choisir mon client et de générer sa fiche de synthese.
J'aimerai envoyer ces fiches à mes clients par mail, donc j'ai décidé de créer uen macro les convertissant en pdf, et me permettant de choisir où les enregistrer, ce que j'ai réussi. Voici le code actuel:
Sub Bouton35_Clic()
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] & [U3] & [L15] & [L16].Value, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim Repertoire As FileDialog
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
' Si aucun répertoire sélectionné
If Repertoire.SelectedItems().Count = 0 Then Exit Sub
' Récupérer le chemin sélectionné
Chemin = Repertoire.SelectedItems(1)
If Mid(Chemin, Len(Chemin), 1) <> "\" Then Chemin = Chemin & "\"
End Sub
Jusque là parfait me direz vous, mais dans ma liste je n'ai pas de choix multiples, et donc je dois générer fiches par fiche... il y en a 1500 d'où la nécessité de faire une macro.
J'aimerai changer ma liste déroulante formulaire mais j'ai des formules qui en dépendent pour générer les chiffres. Comment faire un activeX, un combobox ? listbox ? Quel code crée?
Comment puis je faire pour me sortir de ce probleme 🙁
Je vous met un fichier en pièce jointe, qui résume la chose de façon sucsinte.
Je vous remercie pour votre aide.