Bonjours à tous,
J'ai la macro suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Print2pdf()
Dim nomfichier As String
nomfichier = Sheets("A").Range("A1") & "_Programme_" & Sheets("General").Range("A4")
Sheets(Array("General", "C")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\mondirectory" & nomfichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Qui me permet de sauver mes onglets "General" et "C" avec le nom qui va bien au format pdf.
Dans l'onglet général j'ai une liste déroulante alimentée par une liste de valeurs dans l'onglet "A", qui commencent en A1.
Je voudrais faire la chose suivante :
- Jusqu'à ce que la macro ne trouve une cellule vide dans la colonne A de l'onglet "A" (sachant que A1 n'est jamais vide)
- elle demande à la liste déroulante de sélectionner chaque ligne de la colonne A de l'onglet "A"
- et pour chaque valeur elle génère le pdf en utilisant mon code ci-dessus.

J'ai l'impression qu'il ne me manque pas grand chose mais j'ai du mal avec le "For Each"

Si quelqu'un pouvait m'éclaire?
En espérant avoir été suffisamment explicite
Merci
Julie