1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic

Ouvrir un fichier excel sous vb !!!

Signaler
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
 -
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 -
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é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 à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
A voir également:

10 réponses

Réponse 1 / 10
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 55
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.
Réponse 2 / 10
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
non il est directement comme sa dans le programme. Parce que d'après ce que j'avais compris, il y avait pas besoin de le mettre dans un sub
Réponse 3 / 10
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 55
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
Réponse 4 / 10
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
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
Réponse 5 / 10
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
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é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 à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
End Sub
Réponse 6 / 10
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 55
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
Réponse 7 / 10
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
désolé, j'avais oublier ce petit détail. Il me donne l'erreur a

Dim appExcel As Excel.Application 'Application Excel
Réponse 8 / 10
Messages postés
3
Date d'inscription
mardi 30 décembre 2003
Statut
Membre
Dernière intervention
27 février 2006
tu as certainement oublié 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à et normalement çà marche pareille pour ce qui est word etc
Réponse 9 / 10
Messages postés
3
Date d'inscription
vendredi 15 septembre 2006
Statut
Membre
Dernière intervention
20 février 2007
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
Réponse 10 / 10
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 55
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
Posez votre question