Probleme entre declaration de mes variables et set .... [Résolu]

Signaler
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005
-
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005
-
Pourquoi la fonction : "


Set ClasseurExcel = AppExcel.Workbooks.Open(FichierXls)" ne marche pas?



Dim
AppExcel
As Object



Dim horaire2005 As Object

Dim
a
As Object

Dim
FichierXls
As String

Dim
Feuille
As String





FichierXls = "c:\horaire2005.xls"

Feuille = "a"





Set AppExcel = CreateObject("Excel.Application")





Set ClasseurExcel = AppExcel.Workbooks.Open(FichierXls)



Merci,

Nico

8 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
As-tu chargé la référence Excel :



menu Projets/Références/Microsoft Excel X.y ?




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Re-salut nicosne,

L'exemple que je t'ai donné lors de ta dernière question ne te convenait pas ?

http://www.vbfrance.com/forum.v2.aspx?ID=385473

Cordialement, CanisLupus
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
Tu n'aurais pas juste oublié de déclarer ta variable ClasseurExcel
Dim ClasseurExcel as Object
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005

oui c'est vrai que j'avais pas mis cette variable, mais cela ne change rien a mon probleme.



merci quand meme pour ton aide et si tu a d'autre idee n'hesite pas.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
De plus, il est préférable de déclarer ceci :

DimAppExcel As Excel.Application



déclarer des variables comme 'Object', c'est lourd, et pas très beau. Autant les appeler par leur nom.

Ca ne changera rien à ton problème,mais ce sera déjà mieux.





De plus, quand tu dis que la fonction ne marche pas ... quelle est l'erreur indiquée par VB ?




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005

Salut CanisLupus,









Déjà merci pour l’aide que tu m’as
apporté la dernière fois.



J’ai essayé de comprendre par moi-même les raisons pour lesquels ce que tu
m’avais envoyé ne fonctionne pas.




Car un problème étais présent dans ces
variable:
Dim
AppExcel
As Excel.Application

Dim
ClasseurExcel
As Excel.Workbook

Dim
FeuilleExcel
As Excel.Worksheet



je les ais donc modifier et mis object pour quelles fonctionnent.

Ensuite un nouveau problème est survenu un peu plus loin sur :

<!--[if !supportLineBreakNewLine]-->

<!--[endif]-->






Set ClasseurExcel =
AppExcel.Workbooks.Open(FichierXls)"



et je n'arrive pas a comprendre pourquoi elle ne fonctionnent toujours pas?





Merci,

Nico
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005

Salut aussi a toi Manu,



J’oublier de préciser que la référence
Excel était bien chargée jusqu'à la version 10.0




Merci,

Nico
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005

Déjà merci pour l'aide que vous avez pu m'apporté.



En désespoir de cause j'ai testé mon programme chez un ami et il
fonctionne????

J'ai donc réinstallé mon PC et depuis il marche.







Nico