Discussion :

[Valmorin]

Bonjour à tous,
Je suis dans le secteur agricole. J'ai fait un classeur avec 31 feuilles pour enregistrer quotidiennement la production et d'autres paramètres.
A la fin du mois, je fais manuellement une sélection des feuilles qui ne sont pas vides (pas de production certains jours) et je les exporte dans un seul fichier pdf.
J'utilise ainsi le classeur pour le mois suivant.
Je souhaite savoir si cette opération peut être automatisée dans une macro?
Merci
Valmorin

[Alex020181]

Bonjour,

Oui ..... et non (du moins pas simplement).
Je m'explique.

Le VBA (=macro) est capable d'exporter UNE FEUILLE dans un PDF mais pas (du moins à ma connaissance) plusieurs feuilles dans le même PDF (et aussi de créer en une seule fois plusieurs PDF mais chacun d'eux ne reprendra qu'une feuille).

Une solution de contournement serait que votre code commence par regrouper les données des feuilles que vous souhaiter exporter dans une seule feuille puis il exporterait cette nouvelle feuille avant de la détruire. Ainsi vous auriez un seul PDF reprenant X feuilles.

[Philippe Tulliez]

Bonjour Alex,

Le VBA (=macro) est capable d'exporter UNE FEUILLE dans un PDF mais pas (du moins à ma connaissance) plusieurs feuilles dans le même PDF

Il est évident que de la même manière que l'on peut imprimer plusieurs feuilles d'un classeur, on peut également les exporter dans un seul document pdf

[Alex020181]

Au temps pour moi.

Je ne savais pas.

[Philippe Tulliez]

Bonjour,
Un exemple de l'exportation en pdf des feuilles nommées "Dossier", "Balance", "Client" et "ParamList" du classeur où se trouve le code VBA et qui est suffixé xlsb

Code :

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

1
2
3
4
5
6
7
8
9
Sub tt()
  Dim Name As String
  Name = Replace(ThisWorkbook.FullName, ".xlsb", "")
  Sheets(Array("Dossier", "Balance", "Client", "ParamList")).Select
  With ActiveSheet
  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name
  .Select
  End With
End Sub

[anasecu]

Bonjour Philippe,

Code :

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

  Dim Name As String

J'ergote peut-être un peu mais pourquoi ne pas utiliser nom à la place de Name qui est un terme VBA ?

[Valmorin]

Bonjour,
Un exemple de l'exportation en pdf des feuilles nommées "Dossier", "Balance", "Client" et "ParamList" du classeur où se trouve le code VBA et qui est suffixé xlsb

Code :

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

1
2
3
4
5
6
7
8
9
Sub tt()
  Dim Name As String
  Name = Replace(ThisWorkbook.FullName, ".xlsb", "")
  Sheets(Array("Dossier", "Balance", "Client", "ParamList")).Select
  With ActiveSheet
  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name
  .Select
  End With
End Sub

Bonjour,
Le problème que je cherche à résoudre, si c'est réalisable, c'est de tester toutes les feuilles (31 feuilles) de mon classeur et selon le résultat du test, sélectionner celles qui sont positives au test et les exporter dans un fichier pdf. Merci de vos participations.
Valmorin