Discussion :

[kimai]

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

[Invité]

Bonjour,

Essayez ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Print2Pdf()
 
Dim NomFichier As String
Dim MonRepertoire As String
 
Dim AireDesNomsDeFichiers As Range
Dim CelluleDesNomsDeFichiers As Range
Dim DerniereLigne As Long
 
       With Sheets("A")
 
            MonRepertoire = "C:\mondirectory"
 
             DerniereLigne = .Cells(1, 1).End(xlDown).Row
            Set AireDesNomsDeFichiers = .Range(.Cells(1, 1), .Cells(DerniereLigne, 1))
 
            For Each CelluleDesNomsDeFichiers In AireDesNomsDeFichiers
 
                Sheets(Array("General", "C")).Select
                NomFichier = CelluleDesNomsDeFichiers & "_Programme_" & Sheets("General").Range("A4")
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonRepertoire & "\" & NomFichier & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
            Next CelluleDesNomsDeFichiers
 
            Set AireDesNomsDeFichiers = Nothing
 
       End With
 
End Sub

[kimai]

Bonjour et merci pour votre précieuse contribution.
Il manquait une petite ligne pour indiquer que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("General").Range("A4") = CelluleDesNomsDeFichiers

Ca marche parfaitement

Merci encore
Julie