Discussion :

[bobe32]

Bonjour à tous,
je suis en difficulté avec une macro qui semblait plutôt simple à première vue ...
excel me dit me message d'erreur suivant :
"La méthode "Open" de l'objet "Workbooks" à échoué "

Voici la macro,
Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test2()
Dim Chemin As String
Dim Feuille As String
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Chemin = "K:\Bench DataToolBar\Base de données\"
 
ChDir Chemin
Feuille = "Base de prix Bench.xlsx"
Workbooks.Open Chemin & Feuille
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
DoEvents
 
Range("AA1").Select
ActiveCell.Value = "Mise à jour"
 
ActiveWorkbook.Save
ActiveWorkbook.Close
 
End Sub

[joe.levrai]

Bonjour,

vérifie si le chemin et le nom du fichier est ok pour commencer :

1) ouvre manuellement le classeur
2) colle cette procédure et récupère dans la fenêtre d'execution (Ctrl+G pour l'afficher) le chemin qui t'es retourné

Code :

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

1
2
3
Sub MonChemin()
    Debug.Print Thisworkbook.Fullname
End Sub

voici ta procédure un peu aménagée, il te suffit de remettre le bon chemin et le bon nom de fichier si c'était bien le souci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test2()
Dim Chemin As String
Dim Nom_Fichier As String
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Chemin = "K:\Bench DataToolBar\Base de données\"
Nom_Fichier = "Base de prix Bench.xlsx"
    With Workbooks.Open(Chemin & Nom_Fichier)
        Application.CutCopyMode = False
        .RefreshAll
        DoEvents
        Range("AA1").Value = "Mise à jour"
        .Close True
    End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[bobe32]

Merci pour ta réponse,

Je ne comprend ...
Je n'arrive pas à vérifier si le chemin est bon avec ta technique.
Pour trouver le mien j'ai pris celui affiché dans les propriétés du classeur lui même.

La macro ne fonctionne pas elle plante toujours au même endroit.

[Docmarti]

Bonjour.

Le fichier a besoin de reparations.

Code :

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

Workbooks.Open filename:=CHEMIN & FICHIER, corruptload:=xlrepairfile

[bobe32]

Bonjour merci pour ta réponse,
Ca fonction mais maintenant il me dit que la commande "save" ne fonction pas ....

Décidément j'ai pas de chance ...

Merci d'avance

[bobe32]

Le message d'erreur exact est le suivant :
La méthode 'Save' de l'objet '_WorkBook' a échoué

Merci d'avance