Discussion :

[lodan]

Bonjour,

Je souhaite ouvrir un fichier pour le lire. Ce fichier est en réseau et j'ai une erreur d'exécution '424' Objet requis

Code :

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

1
2
3
4
Sub MonTest()
Worbooks.Open "X:\Informatique\Développements\Interventions\succursales\Genève.xlsx"
Worbooks("X:\Informatique\Développements\Interventions\succursales\Genève.xlsx").Close
End Sub

Peut-être n'ai-je pas les droits sur ce fichier placé sur le serveur, aussi pour faire un test, j'ai déplacé mon fichier sur mon poste local et changé ma syntaxe.

Code :

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

1
2
3
4
Sub MonTest()
Worbooks.Open "C:\Documents\Interventions\succursales\Genève.xlsx"
Worbooks("C:\Documents\Interventions\succursales\Genève.xlsx").Close
End Sub

Je ne vois pas d'erreur sur ma syntaxe qui est simplissime.
Merci pour vos lumières.

[Ben_L]

Bonjour,

Pourriez-vous indiquer :

• Dans votre premier code, sur laquelle des 2 lignes se produit l'erreur ;
• Dans votre second code, si une erreur se produit ou pas.

Cordialement

[lodan]

Bonjour,

Pourriez-vous indiquer :

• Dans votre premier code, sur laquelle des 2 lignes se produit l'erreur ;
• Dans votre second code, si une erreur se produit ou pas.

Cordialement

Merci
L'erreur est sur la ligne 1 dans les 2 cas et c'est la même erreur

[a_diard]

J'ai essayé sur mon poste avec:

Code :

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

Workbooks.Open Filename:="C:\Documents\aleatoire.xls"

ceci ne fonctionnait pas

Code :

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

Workbooks.Open Filename:="C:\Users\ALAIN\Documents\aleatoire.xls"

en mettant l'adresse compléte dans mon cas ça fonctionne.

bonne journée.

[lodan]

J'ai essayé sur mon poste avec:

Code :

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

Workbooks.Open Filename:="C:\Documents\aleatoire.xls"

ceci ne fonctionnait pas

Code :

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

Workbooks.Open Filename:="C:\Users\ALAIN\Documents\aleatoire.xls"

en mettant l'adresse compléte dans mon cas ça fonctionne.

bonne journée.

Merci beaucoup "Parmi" a trouvé la solution et j'ai honte... mais chut

[Invité]

Bonjour,
ouvre un explorateur Windows est copie colle le chemin du fichier dans LURL!

Code :

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

1
2
3
4
Sub MonTest()
set wb=Workbooks.Open("X:\Informatique\Développements\Interventions\succursales\Genève.xlsx")
wb.Close
 End Sub

[parmi]

Bonjour,

Tu écris worbooks.open au lieu de worKbooks.open

[lodan]

Bonjour,

Tu écris worbooks.open au lieu de worKbooks.open

Ouhaaa bien vu

Merci

[Invité]

Code :

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

1
2
3
4
Sub MonTest()
set wb=Workbooks.Open("X:\Informatique\Développements\Interventions\succursales\Genève.xlsx")
wb.Close 
End Sub

[lodan]

Code :

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

1
2
3
4
Sub MonTest()
set wb=Workbooks.Open("X:\Informatique\Développements\Interventions\succursales\Genève.xlsx")
wb.Close 
End Sub

Merci perfect.