ouvrir un fichier excel sous vb !!!

Question

Bonjour,
alors voila, j'ai un code pour ouvrir un fichier exel sous vb, mais il me met une erreur, que je ne comprend pas. Il me marque Compile Error: Invalide outside procedure (il me met l'erreur sur le SET)

'D&#233;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")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\relever_polluants.xls")
'wsExcel correspond &#224; la premi&#232;re feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

jrivet · Answer

Salut,

Est ce que le code que tu as mis est dans une Sub ou un fonction, (exemple Sub Form_Load ou sub Command1_Click...

Si ce n est pas le cas c est normal qu il te sorte ce message d'erreur.

S4ngo · Answer

non il est directement comme sa dans le programme. Parce que d'apr&#232;s ce que j'avais compris, il y avait pas besoin de le mettre dans un sub

jrivet · Answer

Re,

Et bien si.

Les Dim ... peuvent rester dehors si ce sont des variables que tu vas reutiliser apres mais les Set et autres operation doivent etre dans une fonction ou un sub

S4ngo · Answer

ok, donc si je le met ans un sub Command1_Click sa evrais marcher !!!

ok je vais essayer de se pas.

Merci de ton aide

S4ngo · Answer

j'ai mis commande_click, mais mnt il me met une autre erreur.
Compile error: User-defined type not defined

Private Sub Command5_Click()
'D&#233;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")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\relever_polluants.xls")
'wsExcel correspond &#224; la premi&#232;re feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
End Sub

jrivet · Answer

Re,

Excuse moi, mais n'étant pas devin, ca m'avancerait peut etre de savoir la ligne ou il te donne l'erreur si tu la connais...

Merki,

@+
Julien

S4ngo · Answer

d&#233;sol&#233;, j'avais oublier ce petit d&#233;tail. Il me donne l'erreur a

Dim appExcel As Excel.Application 'Application Excel

laurentferry · Answer

tu as certainement oubli&#233; de declarer excel dans tes references tu vas dans le menu:
project->references-> et tu cherche un truc dustyle microsoft excel object 10 librairy ou  dans ce genre l&#224; et normalement &#231;&#224; marche pareille pour ce qui est word etc

xenografter · Answer

jai appliqué le meme code sur un bouton de commande classique
(j' ai ajouté le composant microsoft excell 11.0 library)
 c'est le seul composant excel quil y a :/

je clique sur mon bouton
je constate aucune erreur
mais le fichier  excel ne s'ouvre pas

je ferme visual basic
j'ouvre ma feuille excell et celle ci souvre et se referme immediatement
je la re-ouvre et elle saffiche correctement

je n'arrive a ce jour tj pas a faire a ouvrir le fichier exel via vb

jrivet · Answer

Salut,
[auteurdetail.aspx?ID=860124 xenografter] , il serait intéressant de preciser ce que tu fais, de mettre un bout de code.
De nous dire ou est ce que ce code est placé pour ne pas se retrouver avec les même erreur que plus haut.
Enfin bref être plus précis pour avoir une réponse rapide.

@+: Ju£i?n
Pensez: Réponse acceptée

Ouvrir un fichier excel sous vb !!!

10 réponses

Discussions similaires