Insérer une variable dans une valeur ?

Bonjour,

C'est BleuBite le Hobbit qui vient encore chercher de l'aide :)

Je cherche à faire ne boucle pour écrire dans un fichier excel sur une même ligne mais dans plusieurs colonne.
Je n'arrive pas à écrire correctement ma variable dans la valeur d'écriture, j'ai testé &col1 &col1& "&col1" "&col1&" sans succès
Peut-être n'est-ce pas possible ?
Voici mon script si quelqu'un a la bonté de jeter un œil :)
voir ligne 8

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

While Col1 < "5" col1 = col1 + 1   Set objExcel = CreateObject("Excel.Application") 'objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open(fichier2) Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Cells(9,&col1&).Value = Lect1 objWorkbook.Save() objExcel.Quit   Wend

---

Merci pour vos réponses

Salut
Ligne 1, While Cstr(col1) = "4" ou mieux (plus propre) While Col1 = 4 .
Ta ligne 8, tu devrais essayer objWorksheet.Cells(9,col1).Value = Lect1 .

Bonjour,

Merci pour ta réponse ProgElecT mais mon problème porte sur la variable de la ligne 8

Code:

---

objWorksheet.Cells(9,&col1&).Value = Lect1

---

Ma commande est bonne mais je n'arrive pas à écrire la variable col1 correctement, à chaque fois cela me mets erreur de syntaxe (&col1 &col1& "&col1" "&col1&")

Si tu as une idée ?

Bonjour,

quelques remarques :
- Evite de fermer/ouvrir Excel plusieurs fois dans la même sub, surtout si tu as plusieurs valeurs à enregistrer dans ta feuille
- Si, comme je le pense, Col1 est une variable de type numérique tu ne peux pas écrire

Code:

---

While Col1 < "5"

---

mais plutôt :

Code:

---

While Col1 < 5

---

Et du coup la ligne qui te poses problème devient tout simplement (comme te le suggérait ProgElect) :

Code:

---

objWorksheet.Cells(9,Col1).Value = Lect1

---

Sinon je te suggère un truc du style :

Code:

---

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

Dim xl As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet   Private Sub Command1_Click() Set xl = CreateObject("Excel.Application") Set wb = xl.Workbooks.Open(NomFichier) Set ws = xl.ActiveWindow.ActiveSheet   Do While col1 < 5 col1 = col1 + 1 ws.Cells(9, col1).Value = VariableDeTonChoix Loop   wb.save xl.Quit End Sub

---

Yeah ça marche ! Mon problème était donc la définition de variable col = 1

Merci OhMonBato (Trop délire ton profil"
Merci ProgElecT (désolé je n'avais pas vu la subtilité dans ta réponse)

Très bon week-end à vous !