Un probleme d'éxécution AccessRésolu

Question

Bonjour,

Je ne comprends pas je veux lancer mon module sous VBA et il bloque automatiquement sur ce niveau j'essai de comprendre d'ou vient le probl&#232;me mais sans succ&#232;s !

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 d'avance &#224; vous !
Patrick

yuri1961 · Accepted Answer

Salut!

 Regarde

 Y-a t-il dans

 Project->References 
  Microsoft Excel  X.0 Object Library?

s'il n'y a pas, Ajoute

acecel · Answer

Sur quelle ligne bloque t-il exactement? et quel message d'erreur ?

pataccess · Answer

Il bloque sur la ligne en rouge
et le message d'erreur : "Erreur de Compilation Type non d&#233;finit par l'utilisateur"
Merci 

Patrick

Un probleme d'éxécution Access

3 réponses

Discussions similaires