Macro impression multiple

[skin373]

Bonjour à tous,

j'ai navigué sur le net sans trouver la solution à mon problème. Je sais qu'ici, on pourra m'apporter une réponse.
Je dois imprimer sous excel une même feuille (imprime) , mais à chaque fois avec des données différentes (qui se trouvent dans l'onglet base).

Je voudrais que la macro lance l'impression avec la valeur de la cellule a1, puis avec la cellule a2; puis avec la cellule a3 etc.... jusqu'à ce que la macro rencontre une valeur vide, alors l'impression doit s'arrêter. J'ai environs 400 lignes.

Ci joint un fichier

 

[mth]

Re : Macro impression multiple

Bonjour,

Petit essai à tester (pas d'imprimante sous le coude)

Sub imprime()
Dim lig As Long
With Sheets("base")
    lig = .Cells(Rows.Count, 1).End(xlUp).Row
End With
For i = 1 To lig
    With Sheets("imprime")
         .Range("B2") = Sheets("Base").Cells(i, 1)
         ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    End With
Next i
End Sub

Bonne soirée,

mth

 

[skin373]

Re : Macro impression multiple

Bonsoir,

un grand merci MTH... C'est exactement ce que je voulais.
Par contre je ne sais plus par où il faut passer, pour indiquer que la réponse a été trouvée.

Bonne soirée à tous et encore merci à MTH.

 

[mth]

Re : Macro impression multiple

re

Tu peux modifier le titre du fil et indiquer [Résolu], mais ce n'est pas utile, les fils restent ainsi toujours ouverts pour que d'autres forumers puissent proposer d'autres idées.

Bonne soirée

mth