Discussion :

[Corwin69]

Bonjour,

J'ai un souci avec une variable qui devrait indiquer un emplacement de cellule excel

Ma variable est renseignée à l'aide d'un select
case "03" CellsL = "10, 9"

le msgbox effectué avant le traitement de celle-ci montre que le contenu est bien celui attendu 10, 9

msgbox CellsL
Lect1 = objExcel.Worksheets(WorksL).Cells(CellsL).Value

Mais le contenu de la cellule retournée est celui de la 1, 11
Lorsque je renseigne manuellement l'emplacement de la cellule dans la commande cells, j'ai bien le bon retour, ce qui laisse à penser que c'est le contenu de ma variable qui n'est pas correctement interprété.

Quelqu'un a-t-il une idée ?
Je débute en vbs donc c'est certainement un truc tout bête.
J'ai essayé de déclarer ma variable en variant "dim CellsL as variant" mais j'otiens l'erreur Fin d'instruction attendue

Merci de vos conseils

[l_autodidacte]

La déclaration Dim CellsL As Variant n'est pas acceptée en VBS : Les variables ne doivent pas être typées, pas comme en VB.

Si tu nous mettais la partie du code qui pose problème et une petite esquisse du contenu du fichier Excel, cela nous permettrait de t'aider.

[Corwin69]

Merci pour ta réponse
voici la partie du script concernée
Lorsque la variable arrive à la lecture de la cellule, elle comprend bien les bonnes données (10, 9) dans ce cas mais c'est le contenu de la cellule 1, 11 qui est remonté

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Set Lect1 = Nothing
Set CellsL = Nothing 
FichierL = SdICT
WorksL = 1
Select Case Mois_traite
case  "01" CellsL = "10, 7"
case  "02" CellsL = "10, 8"
case  "03" CellsL = "10, 9" 
case  "04" CellsL = "10, 10"
case  "05" CellsL = "10, 11"
case  "06" CellsL = "10, 12"
case  "07" CellsL = "10, 1"
case  "08" CellsL = "10, 2"
case  "09" CellsL = "10, 3"
case  "10" CellsL = "10, 4"
case  "11" CellsL = "10, 5"
case  "12" CellsL = "10, 6"
End Select
Call Lecture_Excel
msgbox Lect1
 
 
'54 ###################################
 
Sub Lecture_Excel
Dim objExcel, objClasseur, ExcelFile, strCell 
msgbox FichierL
Set objExcel = CreateObject("Excel.Application") 
Set objClasseur = objExcel.WorkBooks.Open(FichierL) 
objExcel.DisplayAlerts = False 
objExcel.Application.Visible = False 
msgbox WorksL
msgbox CellsL
Lect1 = objExcel.Worksheets(WorksL).Cells(CellsL).Value 
objExcel.Quit 
Set objExcel = Nothing 
Set objClasseur = Nothing 
End Sub

Fichier excel

F. Cell. F. Cell. Janvier Février Mars Avril
Coef Valeur
1 1 3792 8999 567
1 1 1,3 788 956 1075
1 1 1 2139 2352 2524
1 1 0,8 137 110 146
1 1 0,5 165 114 9999
1 1 0,2 987 229 309

4216 3761 14053 0
1 1 -0,2 25 31 39

[Cachlab]

Salut Corwin69 !

Une remarque toute bête ... As-tu essayé de renommer ta variable autrement qu'en "CellsL" ?
Genre "CelluL" par exemple ... en tous cas un nom de variable qui ne contienne pas celui d'une commande.

++

[l_autodidacte]

Pour le fichier Excel, une capture d'écran serait plus lisible(juste la partie invoquée dans ton dernier message)

[Marc-L]

Bonjour, bonjour !

Si "10, 9" représente des numéros de ligne et de colonne, alors cette syntaxe Cells(CellsL) est aberrante !

Comme pourtant expliqué dans l'aide VBA d'Excel - suffit de la consulter ! - la syntaxe est Cells(n° ligne, n° colonne) …

Voilà, voilà !

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …