Discussion :

[thunderpat]

bonjour,

j'ai un problème pour l'envoi de donnée sur excel

il me dit que:
method range of object 'worksheet failed

et la ligne wsExcel.Range("A", ligne) = b est soulignée

voici le code

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
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet
Dim ligne As Integer
 
ligne = 1
 
 
While b <> 0
 
wsExcel.Range("A", ligne) = b
ligne = ligne + 1
Wend

[Delbeke]

Code :

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

wsExcel.Range("A" & cstr(ligne)) = b

Un objet range s'attend à avoir un seul parametre de type string, contrairement à l'objet cells, qui s'attend à deux parametres numeriques (ligne/colonne)

[thunderpat]

avec la ligne que j'ai remplacé le logiciel indique toujours la meme erreur

[La Praline]

Bonjour,

Mon avis personnel: ca tourne au foutage de gueule là !

Je le dis et le répète(ca doit faire la troisième fois que je te le dis mainetnant), personne ne fera le code à ta place!

Tu ne connais pas le langage ? Et bien les tutoriels sont là pour te l'apprendre... Il me rappel un certains Wolf...