XL 2019 Macro générer PDF en fonction du nombre de page

fanch55

XLDnaute Barbatruc

• 11 Avril 2023

• #2

Bonjour,
Votre demande n'est pas assez précise .
Vous voulez exporter des feuilles numériques à partir de cellules alphabétiques ?

 

Vote positif 0 Vote négatif

Z

Zemixx25300

XLDnaute Nouveau

• 11 Avril 2023

• #3

bonjour,
non, en gros, si je renseigne l'article A, j'aurais ma feuille de calcul 1 qui va se renseigner, et du coup je voudrais uniquement cette feuille de calcul 1 en PDF.
Par contre, si je renseigne l'article A , B et C, alors j'aurais la feuille de calcul 1, 2 et 3 qui va se renseigner et c'est ces 3 feuilles que je voudrais sur 1 seul PDF

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Avril 2023

• #4

C'est à dire que le A=1, B=2 ,C=3 etc ...
ou bien il n'y a aucune relation et en ce cas,
si ligne 2 remplie ==> export Feuille 1
si ligne 3 remplie ==> export Feuille 2
etc ...
?

 

Vote positif 0 Vote négatif

Z

Zemixx25300

XLDnaute Nouveau

• 11 Avril 2023

• #5

Oui c'est tout à fait ça, A=1 , etc

Merci d'avance

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Avril 2023

• #6

Dans le classeur joint,
Cliquez sur l’icône

 

Pièces jointes

• Zemixx F55.xlsm

  32.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Z

Zemixx25300

XLDnaute Nouveau

• 11 Avril 2023

• #7

Merci Fanch55 pour le temps accordé. Cela répond quasiment à mon besoin.

En réalité, les articles ne sont pas des lettres alphabétiques (A-B-C) mais des références produits (Ex : ACU120304, VOI83020), ils ne seront pas rangés dans l'ordre alphanumérique dans l'onglet Master.

Egalement, il y aura des onglets que je ne veux pas enregistrer dans le PDF (Je viens d'étoffer le fichier excel test). En gros, je souhaiterais que les feuilles 1,2,3,4 et/ou 5 en fonction du nombre d'articles renseignés (Si j'ai mis 1 article, alors je veux la feuille 1, si j'ai mis 3 articles, je veux la feuille 1, 2 et 3)

Merci encore pour votre aide précieuse

 

Pièces jointes

• Zemixx F55.xlsm

  31.2 KB · Affichages: 1

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Avril 2023

• #8

Zemixx25300 à dit:

En gros, je souhaiterais que les feuilles 1,2,3,4 et/ou 5 en fonction du nombre d'articles renseignés (Si j'ai mis 1 article, alors je veux la feuille 1, si j'ai mis 3 articles, je veux la feuille 1, 2 et 3)

Cliquez pour agrandir...

 

Pièces jointes

• Zemixx 2 F55.xlsm

  35.4 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Avril 2023

• #9

Bonjour Zemixx25300, fanch55,

Une variante :

VB:

Sub PDF()
Dim nf, s As Object, n
nf = Application.CountA(Sheets("Master").[A:A]) - 1
For Each s In Sheets
    If IsNumeric(s.Name) Then
        n = n + 1
        If n > nf Then Exit For
        s.Select n = 1  'sélection multiple
    End If
Next
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Mon PDF.pdf", OpenAfterPublish:=True
Sheets(1).Select
End Sub

A+

 

Pièces jointes

• Test 2.xlsm

  28.1 KB · Affichages: 3

Vote positif 0 Vote négatif