macro répétition d'un texte contenant une donnée/variable issue d'un fichier excel

[ninajams]

Bonjour, bonsoir, et bon matin

Je travail sur AS/400 et je souhaite crée une petite macro.
Comme personne ne semble connaitre cette antiquité je me suis dis que je n'ai qu'a créer une macro qui me créera le texte de la macro AS400 . LOGIQUE IMPARABLE.

Donc voici le résultat de la macro AS 400

[tab field]
"029984
[enter]
[pf10]

Mon problème :

La deuxième ligne est issue d'un tableau excel.
Je souhaite reproduire à la suite cette petite macro autant de fois qu'il y a de ligne sur mon fichier excel.
Bien évidement il faut qu'a chaque fois cela prennent la cellule suivante du tableau excel qui va surement contenir 4 à 5000 lignes. (j'aimerais éviter de les saisir manuellement)

A1 =029984
A2 =064584

exemple

[tab field]
"029984
[enter]
[pf10]
[tab field]
"064584
[enter]
[pf10]

J'espère avoir été assez claire et je vous remercie pour votre aide.
Vu l'heure à laquel je poste on peut dire que j'y ai passé la nuit sans vraiment avancé. Il faut que le résultat s'enregistre dans un fichier texte pour être exploitable.

Cordialement

 

[roro69]

Re : macro répétition d'un texte contenant une donnée/variable issue d'un fichier exc

Bonjour
ne serait t-il pas plus facile d'importer tes données AS400 par Access ensuite liaison office et analyse excel.
A ++

 

[JNP]

Re : macro répétition d'un texte contenant une donnée/variable issue d'un fichier exc

Bonjour le fil ,

Sub Test()
Dim I As Double, Ligne As String
I = 1
Open "C:\Test.txt" For Output As #1
While Cells(I, 1) <> ""
Print #1, "[tab field]"
Ligne = """" & Cells(I, 1)
Print #1, Ligne
Print #1, "[enter]"
Print #1, "[pf10]"
I = I + 1
Wend
Close #1
End Sub

devrait faire ton bonheur .
Bon dimanche

 

[ml30fr]

Re : macro répétition d'un texte contenant une donnée/variable issue d'un fichier exc

Bonjour, bonsoir, et bon matin

Je travail sur AS/400 et je souhaite crée une petite macro.
Comme personne ne semble connaitre cette antiquité je me suis dis que je n'ai qu'a créer une macro qui me créera le texte de la macro AS400 . LOGIQUE IMPARABLE.

Donc voici le résultat de la macro AS 400

[tab field]
"029984
[enter]
[pf10]

Mon problème :

La deuxième ligne est issue d'un tableau excel.
Je souhaite reproduire à la suite cette petite macro autant de fois qu'il y a de ligne sur mon fichier excel.
Bien évidement il faut qu'a chaque fois cela prennent la cellule suivante du tableau excel qui va surement contenir 4 à 5000 lignes. (j'aimerais éviter de les saisir manuellement)

A1 =029984
A2 =064584

exemple

[tab field]
"029984
[enter]
[pf10]
[tab field]
"064584
[enter]
[pf10]

J'espère avoir été assez claire et je vous remercie pour votre aide.
Vu l'heure à laquel je poste on peut dire que j'y ai passé la nuit sans vraiment avancé. Il faut que le résultat s'enregistre dans un fichier texte pour être exploitable.

Cordialement

Bonjour

Avez vous réussi cette opération ? Je suis intéressé également