Exportation PDF multtiple

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 ?

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:

---

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

---

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:

---

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

---

Citation:

---

Envoyé par trezz

é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.

Citation:

---

Code:

---

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é.

Citation:

---

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

---

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

Citation:

---

Envoyé par trezz

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).

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

Code:

---

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:

---

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

---

Citation:

---

Envoyé par trezz

Code:

---

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:

---

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

---

Citation:

---

Code:

---

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.

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:

---

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

---