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
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 !
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
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
---------------
はくなまたた (´・ω・`)