XL 2013 Boucle avec Print

jeremyz45

XLDnaute Nouveau
Bonjour à tous;

Je souhaiterais effectuer une boucle dans l’écriture d'un fichier texte en vba.
Ma macro créer un fichier texte, écrit plusieurs ligne avec une variable qui correspond à ma cellule sélectionner, et le ferme.

N'etant vraiment pas un expert des boucles je fais appel à vous, je voudrais pouvoir faire la même chose mais avec plusieurs cellules sélectionnées (qui se trouveront toutes dans la même colonne mais pas forcement à la suite).
En sachant que je ne veut pas faire plusieurs fichier texte, mais bien écrire plusieurs fois le petit bout de texte à la suite avec plusieurs variables

La macro et un fichier d'exemple en piece jointe. :

Code:
Sub Launch()


Dim ref As String
ref = ActiveCell.Value

'Ouvre un fichier texte pour ecrire la imacros

Open "\\Mondossier\MacroCluster.iim" For Output As #1


Print #1, "URL GOTO=https://monlien.com?person=" & ref & "&action=edit"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas1.html ATTR=NAME:PE_cas1 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas2.html ATTR=NAME:PE_cas2 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas3.html ATTR=NAME:PE_cas3 CONTENT=YES"

Close #1

'Fichier bat qui me permet d'executer la macro avec firefox
Shell "\\Mondossier\MacroCluster.bat"
   
End Sub

Cordialement,
Jérémy
 

Discussions similaires

Réponses
6
Affichages
330

Membres actuellement en ligne

Statistiques des forums

Discussions
312 453
Messages
2 088 550
Membres
103 881
dernier inscrit
malbousquet