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

Question

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

econs · Accepted Answer

As-tu charg&#233; la r&#233;f&#233;rence Excel :



menu Projets/R&#233;f&#233;rences/Microsoft Excel X.y ?




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

mrdep1978 · Answer

Tu n'aurais pas juste oubli&#233; de d&#233;clarer ta variable ClasseurExcel 
Dim ClasseurExcel as Object

nicosne · Answer

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.

econs · Answer

De plus, il est pr&#233;f&#233;rable de d&#233;clarer ceci :

DimAppExcel  As Excel.Application



d&#233;clarer des variables comme 'Object', c'est lourd, et pas tr&#232;s beau. Autant les appeler par leur nom.

Ca ne changera rien &#224; ton probl&#232;me,mais ce sera d&#233;j&#224; mieux.





De plus, quand tu dis que la fonction ne marche pas ... quelle est l'erreur indiqu&#233;e par VB ?




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_CanisLupus · Answer

Re-salut nicosne,

L'exemple que je t'ai donn&#233; lors de ta derni&#232;re question ne te convenait pas ?

http://www.vbfrance.com/forum.v2.aspx?ID=385473

Cordialement, CanisLupus

nicosne · Answer

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

nicosne · Answer

Salut aussi a toi Manu,



J&#8217;oublier de pr&#233;ciser que la r&#233;f&#233;rence
Excel &#233;tait bien charg&#233;e jusqu'&#224; la version 10.0




Merci,

Nico

nicosne · Answer

D&#233;j&#224; merci pour l'aide que vous avez pu m'apport&#233;.



En d&#233;sespoir de cause j'ai test&#233; mon programme chez un ami et  il
fonctionne????

J'ai donc r&#233;install&#233; mon PC et depuis il marche.







Nico