Probleme entre declaration de mes variables et set ....

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

Tu n'aurais pas juste oublié de déclarer ta variable ClasseurExcel
Dim ClasseurExcel as Object

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.

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.

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  :

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

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


Merci,
Nico

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

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