Discussion :

[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 :

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

 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

[Jean-Philippe André]

salut,

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

[NicolasC91]

Code :

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

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

[Jean-Philippe André]

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

[Jean-Philippe André]

en passant par une variable ca donnerait quoi ?

Code :

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

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