Discussion :

[retraite83]

Bonjour,

j'ai une macro qui ouvre un fichier, cette macro marche sur plusieurs postes depuis des mois, et il se trouve que depuis quelques jours elle provoque une erreur uniquement sur un poste et de façon systématique.

erreur d'exécution 1004

J'ai beau chercher dans tous les sens je ne vois plus de piste de recherche, voici la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub openCatalPC()
 
Dim fichCatal As String, pathcatal As String
 
fichCatal = fich2 & ".xlsm"
pathcatal = ThisWorkbook.Path & "\" & fichCatal
Application.ScreenUpdating = False
 
Workbooks.Open pathcatal
Application.Run "'" & fichCatal & "'!OpenCatal", ThisWorkbook.Name, "openCatalPC"
 
End Sub

"Application.run" exige-t-il un paramètre dans Excel (qui aurait pu changer) sur le PC où la macro s'exécute ?

J'ai une macro similaire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "'" & fichCatal & "'!OpenCatal", ThisWorkbook.Name, "openCatalServeur"

bien sur même pb uniquement sur le poste enquestion

[anasecu]

Bonjour,

fichCatal = fich2 & ".xlsm"

fich2 vient d'où ?
En tout cas dans ton code il n'est ni défini, ni documenté.
Il se pourrait bien qu'il ne le soit pas non plus sur ce poste.

[retraite83]

oui "fich2" est bien défini en constante public dans un module

[anasecu]

Il est public mais il peut :
- ne pas être documenté sur ce pc
- ne plus être présent
- ne pas avoir les autorisations nécessaires sur ce poste
etc

[retraite83]

fich2 est dans le module du fichier lui même, de plus le fichier "pathcatal" est bien ouvert au moment du plantage qui se produit sur la ligne "Application.run"

[anasecu]

au moment du plantage qui se produit sur la ligne "Application.run"

Cela ne veux pas dire que c'est là qu'est l'erreur car elle peux se situer dans la procédure que tu lances.
Il faudrait mettre un 'stop' avant le 'run' puis faire du pas à pas avec F8 sur le poste qui plante.