Discussion :

[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 :

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
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

[Igloobel]

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

[MDtruc]

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.

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 :

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
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