Bonjour le forum
Je souhaite faire des enregistrements en format pdf.
J’ai une plage Parametre!bx3:bx8 à partir de laquelle j’ai réalisé une liste déroulante (dans la cellule TABLEAU !B2)
Comment faire correspondre le nom de chaque fichier à la valeur de la cellule de la liste déroulante (Tableau !B2)
Exemple : Si la valeur de B2 = « Entretien », le nom du fichier devra être « Entretien » avec l’extension PDF et ainsi de suite jusqu’à la dernière valeur de la liste déroulante.
Voici le code que j’ai essayé de rédiger tout en sachant qu’il n’est pas correct d’où ma demande d’aide.
Dim i As String, dossier As String, sousdossier As String
Dim p As Worksheet
Dim cel As Range
dossier = "c:\users\" & Environ("username") & "\documents\"
sousdossier = dossier & "TBC 2018" & "\" & "Objectif" & "_" & choix & "_" & 2018 & ".pdf"
Set p = Sheets("PARAMETRE")
cel = p.Range("f3:f25")
choix = cel.Value
With Sheets("TABLEAU")
For Each choix In cel
.ActiveWorkbook.SaveAs Filename:=sousdossier
End With
Next choix