Discussion :

[trezz]

Bonjour à tous,

J'ai créé un fichier avec un feuille "Base de données" avec plus de 200 lignes qui correspondent à autant de clients.
La deuxième feuille affiche et met en forme ces données en entrant simplement le n° client en A1 puis avec des "recherchev".
J'ai aussi mis une macro pour l'exportation en PDF.

Le problème : Comment exporter en PDF toutes les fiches clients en une seule macro ce qui limiterai les oublis et cette action rébarbative ?

[Menhir]

Tu fais une boucle qui scrute toutes les lignes du tableau de ta feuille 2 et qui, à chaque tour, met le nom du client dans le A1 de ta feuille 2 et génère le PDF.

En supposant que tes noms de clients sont en colonne A à partir de la ligne 1

Code :

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

1
2
3
4
5
6
7
Dim Client as range
For each Client in Feuille1.Range("A1:A"&Feulle1.Cells(Rows,1).End(xlUp).Row)
   Feuille2.Value = Client.Value
 
   procédure d'impression du PDF
 
Next Client

[trezz]

Merci Menhir, je pense que la solution est bonne mais étant novice au stade bidouille je n'arrive à l'adapté:

En fait le code client est entré en B1 de la feuille de synthèse et le 1er numéro client est en A3 de la feuille de saisie.

Voici le code que j'ai essayer mais il bloque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Publi_Tout_Pdf()
 
Dim Client As Range
For Each Client In Sheets("Feuille de saisie").Range("A3:A" & Sheets("Feuille de saisie").Cells(Rows, 3).End(xlUp).Row)
   Sheets("Feuille de synthèse").Range("B1") = Client.Value
 
Call PubliPdf
 
Next Client
 
End Sub

[Menhir]

étant novice au stade bidouille je n'arrive à l'adapté:

J'ai cru que tu avais créé ta macro d'exportation des PDF.

Si tu ne mets pas le contenu de la macro, impossible de te dire comment l'adapter.

Code :

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

Sheets("Feuille de synthèse").Range("B1") = Client.Value

Effectivement, j'avais oublié de mettre la référence de la cellule destination dans mon code.
Tu l'as très bien corrigé.

Voici le code que j'ai essayer mais il bloque :

Que veux-tu dire par "il bloque" ?
Quelle intitulé d'erreur ? Sur quelle ligne ?

Pourquoi pas le bon forum ?

Parce que ce qui concerne les macro VBA se met dans la sous-rubrique "Macros et VBA Excel".
Ici, normalement, c'est la rubrique Excel pur (mais tu n'es pas seul à faire cette erreur).

[trezz]

Il me met "erreur d'exécution 13 incompatibilité de type" et cette ligne s'affiche en jaune :

Code :

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

For Each Client In Sheets("Feuille de saisie").Range("A3:A" & Sheets("Feuille de saisie").Cells(Rows, 3).End(xlUp).Row)

La macro PubliPdf fonctionne très bien quand je rentre le n° client manuellement c'est pour ça que je fait un call sinon la voici : .

Code :

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

1
2
3
4
5
6
7
8
9
Sub PubliPdf()
 
Dim fichier As String
fichier = "C:\\" & [A2].Value & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    ignorePrintAreas:=False, OpenAfterPublish:=False
 
End Sub

[Menhir]

Code :

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

For Each Client In Sheets("Feuille de saisie").Range("A3:A" & Sheets("Feuille de saisie").Cells(Rows, 3).End(xlUp).Row)

J'ai tapé mon code un peu vite. J'ai oublié que Rows n'est pas un nombre de cellules mais un ensemble de cellules. Il faut y ajouter .Count

Code :

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

For Each Client In Sheets("Feuille de saisie").Range("A3:A" & Sheets("Feuille de saisie").Cells(Rows.Count, 3).End(xlUp).Row)

Code :

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

1
2
3
4
5
6
Dim fichier As String
 
fichier = "C:\\" & [A2].Value & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    ignorePrintAreas:=False, OpenAfterPublish:=False

Es-tu sûr de ton A2 pour créer le nom de fichier ?
Essaye de le précéder d'un Worksheets() avec le nom de l'onglet dans lequel se trouve cette cellule.

[trezz]

Pour le A2 c'était OK.

Merci Menhir pour cette aide et l'astuce du "worksheets" c'était bien vu j'en ai coller 2 pour blinder le tout !

Les macros en état de marche :

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
Sub PubliPdf()
 
 
Dim fichier As String
fichier = Sheets("Fiche de synthèse").Range("O2") + "\" & Worksheets("Fiche de synthèse").Range("A2").Value & ""
Worksheets("Fiche de synthèse").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    ignorePrintAreas:=False, OpenAfterPublish:=False
 
End Sub
 
Sub Publi_Tout_Pdf()
 
Dim Client As Range
For Each Client In Sheets("Feuille de saisie").Range("A3:A" & Sheets("Feuille de saisie").Cells(Rows.Count, 3).End(xlUp).Row)
   Sheets("Fiche de synthèse").Range("B1") = Client.Value
 
Call PubliPdf
 
Next Client
 
End Sub