probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

[didibzh]

Bonjour a tous, dans le cadre de mon travail j’ai créé un fichier pour permet au commerciaux de mon entreprise des estimatifs. C fichier je l’ai crée avec Excel 2007 avec le quel il fonctionne très bien.
Mais lorsque je l’exécute avec Excel 2003 sa me met un message d’erreur « erreur de compilation projet ou bibliothèque introuvable »
Je ne comprends pas trop car quand je regarde les versions de Visual basic c’est les même V6.3.
Je vous joins mon fichier d’installation c’est un fichier exécutable qui Install les dans c : \images toutes les images indispensables aux fonctionnements du fichier Excel et dans C:\Program Files\Estimatif le Fichier Excel
Merci par avance
Salutations
Didi
Voici le lien pour télécharger le fichier:
Free - Envoyez vos documents

 

[Roland_M]

Re : probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

bonsoir

si le programme doit tourner sous 2007 et 2003
le meilleur moyen et de le sauvegarder depuis Excel 2007 > compatible 97-2003

 

[didibzh]

Re : probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

bonsoir

si le programme doit tourner sous 2007 et 2003
le meilleur moyen et de le sauvegarder depuis Excel 2007 > compatible 97-2003

Bonjour Roland et merci.

seul petit ic c'est que mon fichier est bien sauvegarder en 97-2003

voici le code: je pense que sa bloque au niveau des constantes ( TOTALW, TOTALF, TOTAL....,....)

'((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
Private Sub CommandButton2_Click()
'--------------SOMME MURAUX------------------
TOTALW = Val(WC1_750) + Val(WC2_750) + Val(WC3_750) + Val(WC4_750) + Val(WC5_750) + Val(WC6_750)
TOTALF = Val(FC1_750) + Val(FC2_750) + Val(FC3_750) + Val(FC4_750) + Val(FC5_750) + Val(FC6_750)
TOTALST = Val(STC1_750) + Val(STC2_750) + Val(STC3_750) + Val(STC3_1000) + Val(STC4_660) + Val(STC4_750) + Val(STC5_750) + Val(STC6_750)
TOTALSI = Val(SIC1_750) + Val(SIC2_750) + Val(SIC3_750) + Val(SIC3_1000) + Val(SIC4_660) + Val(SIC4_750) + Val(SIC5_750) + Val(SIC6_750)

TOTALHA = Val(QMWHA) + Val(QMFHA) + Val(QMSIHA) + Val(QMSTHA)
TOTALJF = Val(QMSIJF) + Val(QMSTJF)
TOTALER = Val(QMWER) + Val(QMFER) + Val(QMSIER) + Val(QMSTER)
TOTALHU = Val(QMWHU) + Val(QMFHU) + Val(QMSIHU) + Val(QMSTHU)
TOTALFL = Val(QMWFL) + Val(QMFFL) + Val(QMSIFL) + Val(QMSTFL)
TOTALDF = Val(QMWDF) + Val(QMFDF) + Val(QMSIDF) + Val(QMSTDF)
TOTALRM = Val(QMWRM) + Val(QMFRM) + Val(QMSIRM) + Val(QMSTRM)
TOTALPE = Val(QMWPE) + Val(QMFPE) + Val(QMSIPE) + Val(QMSTPE)
TOTALBC = Val(QMWBC) + Val(QMFBC) + Val(QMSIBC) + Val(QMSTBC)
TOTALB = Val(QMWB) + Val(QMFB) + Val(QMSIB) + Val(QMSTB)
TOTALBS = Val(QMWBS) + Val(QMFBS) + Val(QMSIBS) + Val(QMSTBS)

Worksheets("BASE Devis").Cells(40, 6).Value = TOTALHA
Worksheets("BASE Devis").Cells(41, 6).Value = TOTALJF
Worksheets("BASE Devis").Cells(42, 6).Value = TOTALER
Worksheets("BASE Devis").Cells(43, 6).Value = TOTALHU
Worksheets("BASE Devis").Cells(44, 6).Value = TOTALFL
Worksheets("BASE Devis").Cells(45, 6).Value = TOTALDF
Worksheets("BASE Devis").Cells(46, 6).Value = TOTALRM
Worksheets("BASE Devis").Cells(47, 6).Value = TOTALPE
Worksheets("BASE Devis").Cells(48, 6).Value = TOTALBC
Worksheets("BASE Devis").Cells(49, 6).Value = TOTALB
Worksheets("BASE Devis").Cells(50, 6).Value = TOTALBS


'-----------OPTION KOMACEL----------------
If QMWKB.Value = True Then
TotalQMWKB = Val(TOTALW)
Else
TotalQMWKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMWTA.Value = True Then
TotalQMWTA = Val(TOTALW)
Else
TotalQMWTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMWIG.Value = True Then
TotalQMWIG = Val(TOTALW)
Else
TotalQMWIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMWSP.Value = True Then
TotalQMWSP = Val(TOTALW)
Else
TotalQMWSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMWG.Value = True Then
TotalQMWG = Val(TOTALW)
Else
TotalQMWG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMFKB.Value = True Then
TotalQMFKB = Val(TOTALF)
Else
TotalQMFKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMFTA.Value = True Then
TotalQMFTA = Val(TOTALF)
Else
TotalQMFTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMFIG.Value = True Then
TotalQMFIG = Val(TOTALF)
Else
TotalQMFIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMFSP.Value = True Then
TotalQMFSP = Val(TOTALF)
Else
TotalQMFSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMFG.Value = True Then
TotalQMFG = Val(TOTALF)
Else
TotalQMFG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMSTKB.Value = True Then
TotalQMSTKB = Val(TOTALST)
Else
TotalQMSTKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMSTTA.Value = True Then
TotalQMSTTA = Val(TOTALST)
Else
TotalQMSTTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMSTIG.Value = True Then
TotalQMSTIG = Val(TOTALST)
Else
TotalQMSTIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMSTSP.Value = True Then
TotalQMSTSP = Val(TOTALST)
Else
TotalQMSTSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMSTG.Value = True Then
TotalQMSTG = Val(TOTALST)
Else
TotalQMSTG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMSIKB.Value = True Then
TotalQMSIKB = Val(TOTALSI)
Else
TotalQMSIKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMSITA.Value = True Then
TotalQMSITA = Val(TOTALSI)
Else
TotalQMSITA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMSIIG.Value = True Then
TotalQMSIIG = Val(TOTALSI)
Else
TotalQMSIIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMSISP.Value = True Then
TotalQMSISP = Val(TOTALSI)
Else
TotalQMSISP = "0"
End If
'-----------OPTION GELATINE----------------
If QMSIG.Value = True Then
TotalQMSIG = Val(TOTALSI)
Else
TotalQMSIG = "0"
End If

TOTALKOMACEL = Val(TotalQMWKB) + Val(TotalQMFKB) + Val(TotalQMSTKB) + Val(TotalQMSIKB)
TOTALTEXTE = Val(TotalQMWTA) + Val(TotalQMFTA) + Val(TotalQMSTTA) + Val(TotalQMSITA)
TOTALIMAGE = Val(TotalQMWIG) + Val(TotalQMFIG) + Val(TotalQMSTIG) + Val(TotalQMSIIG)
TOTALSOCLE = Val(TotalQMWSP) + Val(TotalQMFSP) + Val(TotalQMSTSP) + Val(TotalQMSISP)
TOTALGELATINE = Val(TotalQMWG) + Val(TotalQMFG) + Val(TotalQMSTG) + Val(TotalQMSIG)

Worksheets("BASE Devis").Cells(53, 6).Value = TOTALKOMACEL
Worksheets("BASE Devis").Cells(54, 6).Value = TOTALTEXTE
Worksheets("BASE Devis").Cells(55, 6).Value = TOTALIMAGE
Worksheets("BASE Devis").Cells(56, 6).Value = TOTALSOCLE
Worksheets("BASE Devis").Cells(57, 6).Value = TOTALGELATINE

ActiveSheet.Unprotect "200384"
ActiveSheet.Range("$A$1:$A$322").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Protect "200384", UserInterfaceOnly:=True
Unload Me

End Sub

 

[Roland_M]

Re : probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

re:

j'ai téléchargé et essayé le débogage !
ça bloque avec 2003 et 2007 pour manque de library (MSExchange 1.0 type library)

en effet ça bloque au niveau de ces variables (car ce ne sont pas des constantes !)
TOTALW = Val(WC1_750) + . . .

Mais ce n'est pas la variable 'TOTALW' qui bloque !
c'est la lecture de (WC1_750) et tous les autres idem . . .
qui sont, d'après ce que j'ai pu voir, des événements mousemove etc...
(je n'ai d'ailleur jamais vu cela comme ça mais soit...)
le débogeur indique qu'il manque une bibliothèque !?
dans les références il indique un MANQUANT MSExchange 1.0 type library
probablement pour échange des événements avec mouse !?
car même en demandant de l'aide sur 'mousemove' j'ai le même message !

problème avec compatible ! encore faut t'il avoir les références nécessaires(type library)
mais si vous l'avez dans le répertoire Excel2007 il doit être possible de le recopier dans le répertoire de Excel2003 !? car j'ai déjà recopié des manquants sans install et ça marche !

 

[didibzh]

Re : probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

re:

j'ai téléchargé et essayé le débogage !
ça bloque avec 2003 et 2007 pour manque de library (MSExchange 1.0 type library)

en effet ça bloque au niveau de ces variables (car ce ne sont pas des constantes !)
TOTALW = Val(WC1_750) + . . .

Mais ce n'est pas la variable 'TOTALW' qui bloque !
c'est la lecture de (WC1_750) et tous les autres idem . . .
qui sont, d'après ce que j'ai pu voir, des événements mousemove etc...
(je n'ai d'ailleur jamais vu cela comme ça mais soit...)
le débogeur indique qu'il manque une bibliothèque !?
dans les références il indique un MANQUANT MSExchange 1.0 type library
probablement pour échange des événements avec mouse !?
car même en demandant de l'aide sur 'mousemove' j'ai le même message !

problème avec compatible ! encore faut t'il avoir les références nécessaires(type library)
mais si vous l'avez dans le répertoire Excel2007 il doit être possible de le recopier dans le répertoire de Excel2003 !? car j'ai déjà recopié des manquants sans install et ça marche !

Un grand merci Roland… pour ta réponse. Effectivement c’était bien le module « MSExchange 1.0 type library » qui est activé dans mon fichier Excel. Je l’ai tout simplement désactivé et plus de problème. Je ne sais pas a quoi il sert exactement mais maintenant qu’il est désactivé sa marche très bien que se soit sur Excel 2007 ou 2003…
Par contre dans ta reponce je comprent pas un truc, tu me dit que WC1_750 sont des événements mousemove....
se sont pour moi des Textbox que je rapel de mon userform....???

​

Salutation

​

Et merci encore

 

[Roland_M]

Re : probleme d'excution d'un fichier créé avec excel 2007 sur excel 2003

re: bonsoir

parceque j'avais vu ceci (entre autre):

Private Sub WC1_750_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("C:\Images\Woodline\W-C1.jpg")
End Sub