[AC-2003] Mystérieux Problème (Open WorkBook)

[NicolasC91]

Bonjour !

J'ai un problème pour le moins mystérieux !

Je travail dans une entreprise, la BDD Access est sur le réseau de cette entreprise.

Mon problème est le suivant : Lorsque mon collègue (depuis son PC) appuie sur un bouton d'un formulaire, le programme plante et affiche le message suivant : Erreur d'execution 1004, La méthode 'Open' de l'objet 'Workbooks' à échoué.

Ca plante sur cette ligne :

Code :

 ClasseurXLS.Workbooks.Open NomFic

NomFic est le chemin + le nom du fichier

En revanche, lorsque moi (depuis mon PC) appuie sur le bouton, tout fonctionne correctement...

Je ne vois vraiement pas d'où vient le problème. Quelqu'un a t'il déjà été dans cette situation ?

Par avance, merci à ceux qui pourront m'aider !

Nicolas

[jpcheck]

salut,

peut-on avoir les lignes precedentes, notamment celles ou tu declares ClasseurXLS ?

[NicolasC91]

Code :

1
2
3
4
5
Dim ClasseurXLS As Excel.Application
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.DisplayAlerts = False
 
ClasseurXLS.Workbooks.Open NomFic

Déclaration on ne peut plus classique..
Ce qui est bizarre c'est que ça marche sur mon PC et pas sur le sien. Les références sont les mêmes, la langue est la même... je ne comprend pas !

Je compte vraiment sur vos aides :/

Merci

[jpcheck]

OK,
peux-tu nous dire si tu utilises une variable pour manipuler ce workbook ou bien est-ce une simple ouverture ??

[NicolasC91]

Il s'agit d'une simple ouverture

[NicolasC91]

Enfin après je manipule le classeur comme suit :

ClasseurXLS.Columns("E:E").Select
ClasseurXLS.Selection.Copy

[jpcheck]

en passant par une variable ca donnerait quoi ?

Code :

1
2
3
4
5
6
Dim ClasseurXLS As Excel.Application
Dim Wbk As Excel.Workbook
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.DisplayAlerts = False
 
set Wbk = ClasseurXLS.Workbooks.Open (NomFic)

[NicolasC91]

Pareil... ça marche sur le mien, pas sur le sien..

Vraiment bizarre tout ça !

Merci en tout cas de te creuser la tête