Création d'un PDF dans une boucle For

Fermé
worship76-63 Messages postés 4 Date d'inscription vendredi 18 décembre 2015 Statut Membre Dernière intervention 28 décembre 2015 - Modifié par worship76-63 le 18/12/2015 à 23:08
worship76-63 Messages postés 4 Date d'inscription vendredi 18 décembre 2015 Statut Membre Dernière intervention 28 décembre 2015 - 20 déc. 2015 à 09:40
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.
A voir également:

1 réponse

worship76-63 Messages postés 4 Date d'inscription vendredi 18 décembre 2015 Statut Membre Dernière intervention 28 décembre 2015
20 déc. 2015 à 09:40
j'ai complété dans les fonctions zone de texte : linkedcell (la cellule correspondante ). Sauf que celle-ci ne se met pas à jour correctement quand je lance la macro à partir d'un bouton.
0