Re : Liste déroulante et pdf
alors voila j'ai crée mon Userform, ma liste déroulante, j'ai implanté mon code pour générer le PDF... mais ca ne marche pas voila ce que j'ai :
Private Sub cmdPDF_Click()
Dim lgList As Long
' Boucle sur chaque ligne dans la liste
For lgList = 0 To listVille.ListCount - 1
If listVille.Selected(lgList) = True Then
Worksheets("Feuille à transmettre a CE").Range("U3").Value = listVille.List(lgList) et la il me met OBJET REQUIS
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] & [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 If
Next lgList
End Sub
J'ai donc un message de debogage avec marqué Objet requis sur la ligne jaune que dois je faire vous avez une idée ?
Je sens que ce devient bon mais bon y'a toujours une coquille