Création d'un PDF dans une boucle For
Bonsoir,
J'essaye de créer des PDF d'une zone de texte générée par une BDD mais j'ai un problème avec ce code qui fonctionne quand je l'exécute PAS à PAS mais qui disjoncte totalement (Mélange des lignes) quand je le lance avec un bouton.
à noter que ce code alimente une zone de texte dans une feuille EXCEL.
Ci-dessous un code simplifié similaire à celui que j'utilise :
Sub test()
For Ligne = 3 To 5
Range("L2") = Cells(Ligne, 8)
Range("M2") = Cells(Ligne, 9)
Range("n2") = Cells(Ligne, 10)
'création du pdf
chemin = ThisWorkbook.Path
nomFichier = Range("L2") & Range("M2")
chemin = chemin & "\" & nomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next Ligne
End Sub
Merci pour votre aide :)
Anne-Marie.
J'essaye de créer des PDF d'une zone de texte générée par une BDD mais j'ai un problème avec ce code qui fonctionne quand je l'exécute PAS à PAS mais qui disjoncte totalement (Mélange des lignes) quand je le lance avec un bouton.
à noter que ce code alimente une zone de texte dans une feuille EXCEL.
Ci-dessous un code simplifié similaire à celui que j'utilise :
Sub test()
For Ligne = 3 To 5
Range("L2") = Cells(Ligne, 8)
Range("M2") = Cells(Ligne, 9)
Range("n2") = Cells(Ligne, 10)
'création du pdf
chemin = ThisWorkbook.Path
nomFichier = Range("L2") & Range("M2")
chemin = chemin & "\" & nomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next Ligne
End Sub
Merci pour votre aide :)
Anne-Marie.
