appexcel As Excel.Application ne fonctionne pasRésolu

Question

Je ne comprends pas pourquoi il beuge &#224; ce niveau ??

Dim appexcel As Excel.Application
Dim Strfichier As String


strname = "TBClients_" & Mois & Annee & "_" & strnomagence & ".xls"
strname2 = "TBClients_" & Mois & Annee & "_" & strnomagence


'Cr&#233;ation du classeur excel
Strfichier = DonneChemin("export") & "\clientsTT_F.xls"
Set appexcel = CreateObject("Excel.application")
Set fichier = appexcel.Workbooks.Open(Strfichier)
appexcel.Visible = True


fichier.saveas strcheminmois & strname
appexcel.Workbooks.Close
appexcel.Visible = False

Merci 

Patrick

pataccess · Accepted Answer

Merci c'est g&#233;nial je l'ai trouv&#233; ne meme temps que toi !! 
Merci pour ton aide c g&#233;nial !! 
Ca marche !

Patrick

mrdep1978 · Answer

Salut,

C'est parce que tu n'as pas ajouté Excel aux références de ton projet (donc,il ne connait pas les types de données associés à Excel.

Tu dois faire
Dim appexcel as Object.

Si tu ajoutes la référence à excel, tu peux faire
Dim appexcel as Excel.Applicatoin
et
Set appexcel new Excel.Application (à la place de Set appexcel CreateObject("Excel.Application"))

Dans tous les cas, n'oublie pas de faire :
appexcel.Quit (Ferme excel)
Set appexcel = Nothing (détruit l'objet temporaire)
à la fin de ton traitement

pataccess · Answer

Comment y faire r&#233;f&#233;rence STP ???

Patrick

yuri1961 · Answer

Salut!

Regarde

Y-a t-il dans

Project->References 

 Microsoft Excel  X.0 Object Library?

Appexcel As Excel.Application ne fonctionne pas

4 réponses