Répéter n fois un programme VBA (avec une boucle)

Bonjour,

J'aimerais répéter un certains nombre de fois un programme VBA.
J'avoue être un peu perdue.
Plus précisément, j' ai fait un programme pour ouvrir un document texte et coller un programme ZPL;
J'aimerais rajouter une boucle qui permettrait de répéter l'impression sur chaque ligne (une ligne valeur différente) jusqu’à par exemple la 100 ème lignes.
Je ne vois pas comment faire.


J'ai un autre soucis, quand je sélectionne la colonne (voir programme ci-dessous)
Le programme m'indique erreur 1004 "la méthode Range de l'objet Global a échoué".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Application.ScreenUpdating = False Dim IndexFichier As Integer Dim MonFichier As String Dim ContenuLigne As String Dim i As Integer Dim A As String MonFichier = "C:\Users\loiseaua.EUOTIS\Desktop\RelaisCode.txt" Open MonFichier For Output As #1 Print #1, "^XA" Print #1, "^A0N,52,52^FO200,50^FDRange("; A; " & i).select^FS" Print #1, "^BY2^FO200,115" Print #1, "^BCN,120,N,N,N^FD"; Range("B," & i); "^FS" Print #1, "^XZ" Close #1

---

Merci de votre aide,

Cdt

Bonjour,

l'instruction Call nomProgramme permet d'appeler un programme spcifique déjà développé (une Sub par exemple).

Cette instruction peux tout à fait être incluse dans une boucle (For ... Do While ... )

pour te permettre de savoir jusqu'à quelle ligne je te conseille d'utiliser InputBox

pour gérer les fichiers textes voici un tuto

http://warin.developpez.com/access/fichiers/

sinon perso
- j'ouvrirai tout document dans Excel
- je sélectionnerai tes lignes
- Je ferai une impression que de la sélection

ou alors j'ai pas tout compris

bonne soirée

Avez-vous résolu votre problème?
Et comment faites-vous pour imprimer le contenu du code ZPL à partir de la macro excel, svp?
J'ai essayé et ça m'imprime le contenu du fichier "XA,A0N...., ça ne communique pas avec l'imprimante.
Merci de votre aide.

Citation:

---

Envoyé par Electrizec45

Bonjour,

J'aimerais répéter un certains nombre de fois un programme VBA.
J'avoue être un peu perdue.
Plus précisément, j' ai fait un programme pour ouvrir un document texte et coller un programme ZPL;
J'aimerais rajouter une boucle qui permettrait de répéter l'impression sur chaque ligne (une ligne valeur différente) jusqu’à par exemple la 100 ème lignes.
Je ne vois pas comment faire.


J'ai un autre soucis, quand je sélectionne la colonne (voir programme ci-dessous)
Le programme m'indique erreur 1004 "la méthode Range de l'objet Global a échoué".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Application.ScreenUpdating = False Dim IndexFichier As Integer Dim MonFichier As String Dim ContenuLigne As String Dim i As Integer Dim A As String MonFichier = "C:\Users\loiseaua.EUOTIS\Desktop\RelaisCode.txt" Open MonFichier For Output As #1 Print #1, "^XA" Print #1, "^A0N,52,52^FO200,50^FDRange("; A; " & i).select^FS" Print #1, "^BY2^FO200,115" Print #1, "^BCN,120,N,N,N^FD"; Range("B," & i); "^FS" Print #1, "^XZ" Close #1

---

Merci de votre aide,

Cdt

---