Discussion :

[Corwin69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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 .

[Corwin69]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[OhMonBato]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

While Col1 < "5"

mais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Col1 < 5

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sinon je te suggère un truc du style :

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

[Corwin69]

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 !