Discussion :

[joooooo]

Je souhaite remplir un tableau dans excell depuis vb6. Je voudrais utiliser le code du tuto sur excell dispo sur le site de developpez, mais j'ai une erreur lorsque je mets ce 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
 
 
'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

L'erreur est : invalid outside procedure, et "Set" est surligné.
Je ne comprends pas d'où vient le problème, et je ne trouve pas de doc sur le net parlant de vb6 et d'excell autre que ce maigre tutoriel...
Si quelqu'un avait une idée d'où peut venir mon problème, ca m'aiderait bien !

[AlainTech]

Le message veut dire que Set doit être dans une procédure (Sub ou Function).