Discussion :

[bmartin0903]

Bonjour à tous et merci d'avance pour vos retours.

Je souhaite éditer des PDF uniques (une centaine) selon deux valeurs que j'aurai choisi: valeur de début et valeur de fin.
j'arrive à éditer un pdf unique (PDF_UNITAIRE) selon une valeur en M6 mais pas sur un intervalle.

J'ai 2 boutons selon les besoins:
- PDF unitaire : créé après le choix du n° client
- Tous les PDF : créé après l'intervalle renseigné

Cellule M6 = cellule de référence pour l'affichage des données dans le tableau pour l'export en PDF
Cellule N13 = début de mon intervalle
Cellule N14 = Fin de mon intervalle

Je voudrais que si l'intervalle est de 1 à 15, le code fasse un PDF du n°1 puis un PDF du n° 2 etc jusqu'à 15.
Mais cela pourrait être du 13 au 25 ou autre...

Merci pour votre aide




Je vous mets le code écrit pour les copier/coller au besoin.

Sub PDF_TOUS()

'changer la valeur n° client M6
Range("N13").Select
Selection.Copy
Range("M6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Boucle selon condition
Dim x As Integer
For x = Range("M6") To Range("n14") Step 1

'Création PDF
Dim nompdf As String
Dim dossier As String

dossier = ThisWorkbook.Path

nompdf = dossier & "\" & Sheets("impression").Range("D8") & Sheets("impression").Range("P6")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False



Next x


End Sub

[Pierre Dumas]

Bonjour

Je suppose qu'inscrire le numéro du client en M6 influe sur le contenu de la feuille.
Et donc, comme dans la boucle il n'y a pas de changement de la cellule M6, il s'agit toujours du même PDF qui est édité un certain nombre de fois.

Vite fait, sans tester, on pourrait faire quelque chose comme suit.

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
Sub PDF_TOUS()
 
'Boucle selon condition
Dim x As Integer
For x = Range("N13") To Range("N14") Step 1
Range("M6").Value=x
'Création PDF
Dim nompdf As String
Dim dossier As String
 
dossier = ThisWorkbook.Path
 
nompdf = dossier & "\" & Sheets("impression").Range("D8") & Sheets("impression").Range("P6")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
Next x
 
End Sub

En espérant que cela aide

Bonne journée

Pierre Dumas

[bmartin0903]

Bonjour

Je suppose qu'inscrire le numéro du client en M6 influe sur le contenu de la feuille.
Et donc, comme dans la boucle il n'y a pas de changement de la cellule M6, il s'agit toujours du même PDF qui est édité un certain nombre de fois.

Vite fait, sans tester, on pourrait faire quelque chose comme suit.

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
Sub PDF_TOUS()
 
'Boucle selon condition
Dim x As Integer
For x = Range("N13") To Range("N14") Step 1
Range("M6").Value=x
'Création PDF
Dim nompdf As String
Dim dossier As String
 
dossier = ThisWorkbook.Path
 
nompdf = dossier & "\" & Sheets("impression").Range("D8") & Sheets("impression").Range("P6")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
Next x
 
End Sub

En espérant que cela aide

Bonne journée

Pierre Dumas

Super merci beaucoup c'est tout à fait ça <3