Discussion :

[StefLedoc]

HELP PLEASE--> Toujours le même résultat sur l'ouverture:

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet.

Quelle que soit la méthode que je récupère qui semblent fonctionner, y compris du code qui fonctionnait chez moi, je n'arrive plus à ouvrir un fichier Excel à partir du code dans un autre fichier Excel.


Aidez-moi svp!!!

Exemple utilisé trouvé sur internet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'------------------------------------------------------------
  Dim ApplicationExcel
  Dim ClasseurExcel
 
  Set ApplicationExcel = CreateObject("Excel.Application")
  Set ClasseurExcel = ApplicationExcel.Workbooks.Open("Classeur1.xls")
 
  ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False
msgbox "pause"
  ApplicationExcel.Quit
 
  Set ClasseurExcel = Nothing
  Set ApplicationExcel = Nothing
'-----------------------------------------------------------------

[Cameloot]

Bonjour,
as-tu essayé d'indiquer le chemin d'accès au dossier contenant le fichier à ouvrir ?

ex :

Code :

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

1
2
3
Set ApplicationExcel = CreateObject("Excel.Application")
ChDir "chemin vers du dossier contenant le fichier à ouvrir"
Set ClasseurExcel = Workbooks.Open("Classeur1.xlsx")

bonne journée

[ChristianBosch]

Salut,

Il faut mettre le chemin complet du fichier excel, exemple :

Code :

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

Set ClasseurExcel = ApplicationExcel.Workbooks.Open("C:\Users\documents\Classeur1.xls")

[StefLedoc]

J'ai exactement le même résultat avec le chemin. Et les deux fichiers Excel sont placés dans le même répertoire.
Je ne comprends plus rien.

Quelles sont les références à cocher dans l'éditeur pour les manipulation de fichiers excel?

[ChristianBosch]

Quand tu passe en mode debogage ca bloque a quelle ligne ?

[StefLedoc]

Systématiquement à cette ligne :

Code :

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

Set ClasseurExcel = ApplicationExcel.Workbooks.Open("D:\TMP\MAJClasseur1.xls")

J'ai recréé un autre fichier mais c'est pareil. Sur un autre ordi aussi. Est-ce une de mes références qui pose pbm?
J'ai : visual basic pour application, Microsoft Excel 16.0 object library, C'est tout.
Au secours!!!


OK, j'avais réparti mes variables globales entre 2 modules.
J'ai tout mis dans un seul module et cela fonctionne.

Pourquoi n'ai-je pas pu faire cela?
Bref au moins cela marche.

[ChristianBosch]

Tu peux déclarer des variables partagées mais dans ce cas il faut les mettre en dehors d'un sub, et les déclarer comme ceci :

Code :

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

Public MaVariable as String

Ainsi tu pourra utiliser cette variable dans plusieurs modules et userform, ca reste surtout utile quand on fait des call a d'autre sub ou alors quand on initialise des userforms via un module, ca permet d'utiliser les variables dans tous les userform qu'on ouvrira par la suite et pas seulement dans celui ou l'on a déclarer celle ci.