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