Appexcel As Excel.Application ne fonctionne pas [Résolu]

pataccess 39 Messages postés mardi 2 août 2005Date d'inscription 31 mars 2006 Dernière intervention - 19 oct. 2005 à 11:01 - Dernière réponse : pataccess 39 Messages postés mardi 2 août 2005Date d'inscription 31 mars 2006 Dernière intervention
- 19 oct. 2005 à 12:35
Je ne comprends pas pourquoi il beuge à ce niveau ??

Dim appexcel As Excel.Application
Dim Strfichier As String


strname = "TBClients_" & Mois & Annee & "_" & strnomagence & ".xls"
strname2 = "TBClients_" & Mois & Annee & "_" & strnomagence


'Cré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
Afficher la suite 

4 réponses

Meilleure réponse
pataccess 39 Messages postés mardi 2 août 2005Date d'inscription 31 mars 2006 Dernière intervention - 19 oct. 2005 à 12:35
3
Merci
Merci c'est génial je l'ai trouvé ne meme temps que toi !!
Merci pour ton aide c génial !!
Ca marche !

Patrick

Merci pataccess 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 19 oct. 2005 à 11:46
0
Merci
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 39 Messages postés mardi 2 août 2005Date d'inscription 31 mars 2006 Dernière intervention - 19 oct. 2005 à 11:52
0
Merci
Comment y faire référence STP ???

Patrick
yuri1961 71 Messages postés jeudi 16 juin 2005Date d'inscription 16 février 2007 Dernière intervention - 19 oct. 2005 à 12:22
0
Merci
Salut!

Regarde

Y-a t-il dans

Project->References

Microsoft Excel X.0 Object Library?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.