Excel 2003 = erreur macros sur 1 pc, pas l'autre...

Excel 2003 = erreur macros sur 1 pc, pas l'autre... - Logiciels - Windows & Software

Marsh Posté le 04-12-2017 à 14:33:01    

[:totoz] help !  
 
 
j'ai tenté de résumer la question comme j'ai pu dans le titre mais j'ai un problème étrange et complexe, voici les faits :  
 
un PC sous Windows XP lance une macro via un bouton custom dans la barre d'outils sur certains fichiers pour calculer un paquet de longueurs et quantités de tubes d'acier,  
le bouton en question pointe sur un autre fichier, fixe, placé dans un dossier sur C:  
 
et ça marche  [:spamafote]  
 
 
par contre,  
en tentant de faire la même chose sur un PC plus récent, avec les mêmes fichiers, toujours office 2003 mais fraîchement installé sur W7 à la place de XP, je n'arrive pas à exécuter la même macro sur le même fichier !  
http://reho.st/self/bfac02ea9e70c1517b48b66b2be7ce1e7708ee3e.jpg
 
j'obtiens invariablement une runtime error "9" de visual basic  
 
 
je ne pense pas avoir besoin de toucher aux fichiers eux-mêmes et encore moins au macros, puisqu'ils proviennent d'un système sur lequel ils marchent,  
 
mais alors, quelle est la différence?! peut-elle être dans la façon de créer le bouton custom, ou la version ou patchs d'office ou quelque chose dans windows lui-même ? bref je ne sais pas quoi chercher ... Excel c'est pas du tout mon truc :p  
 
 
des idées?
 
 
 
 
[edit]
j'ai fait une petite machine virtuelle XP pour tenter de répliquer l'originale, mais idem, même erreur ...
 
le debug surligne les 2 dernières lignes ici :  
 

'************************************************************************************
'*****     ENTETE  PAGE  DE  GARDE
'*****
Sub P_Entete(NumeroClasseurReserve, NumeroClasseurTete)
 
    '** Numero de Version
    Application.Workbooks(NumeroClasseurReserve).Sheets("R_Entete" ).Cells(8, 1).Value = "Version N° :"
    Application.Workbooks(NumeroClasseurReserve).Sheets("R_Entete" ).Cells(8, 2).Value = PuNumVersion
    '*** Date du jour
    Application.Workbooks(NumeroClasseurReserve).Sheets("R_Entete" ).Cells(1, 11).Value = Date
    '*** Programme de fabrication
    Application.Workbooks(NumeroClasseurReserve).Sheets("R_Entete" ).Cells(10, 5).Value = _
        Application.Workbooks(NumeroClasseurTete).Sheets("S_Def" ).Cells(6, 3).Value


 
mais j'ai pas l'impression que ce ne soit vraiment un indice ....


Message édité par nicky66 le 07-12-2017 à 12:27:48

---------------
はくなまたた (´・ω・`)  
Reply

Marsh Posté le 04-12-2017 à 14:33:01   

Reply

Marsh Posté le 05-12-2017 à 09:06:49    

L'erreur que tu as correspond à un souci de contenu de variable (valeur, format, ...)  ou d'un souci de déclaration implicite :
https://msdn.microsoft.com/en-us/li [...] 2147217396
 
Vu ton code, je penche pour la seconde option.


---------------
#TeamNoBidouille || Come to the Dark Side, we have cookies || Mangez 5 fruits et légumes par an ! || Le digital, c'est les doigts
Reply

Marsh Posté le 05-12-2017 à 10:51:47    

google m'avait aiguillé vers ce problème, sauf que je ne sais pas quoi faire de l'information, étant donné que sur la machine originale, ça marche quand même :|
 
donc dans ce cas là, qu'est-ce qui permettrait à la dite machine de ne pas afficher l'erreur?  
 


---------------
はくなまたた (´・ω・`)  
Reply

Marsh Posté le 09-12-2017 à 15:50:20    

ou au pire, comment réussir à causer cette erreur sur la machine sur laquelle ça marche, sans modifier les fichiers?  
 
je prends tout indice :|


---------------
はくなまたた (´・ω・`)  
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed