Erreur 91 sur workbooks.open

Résolu
chaymaek Messages postés 6 Statut Membre -  
baladur13 Messages postés 50097 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
Je veux ouvrir un fichier mais j'ai une erreur 91 sur la ligne en gras (workbooks.open)

Quelqu'un saurait il d'où vient l'erreur?

Merci d'avance

Sub recherche()
Dim fichier As String
Dim chemin As String
Dim GEPAMA As Workbook
chemin = "Y:\compta\9. STOCKS - MACHINES\MACHINES\Machines " & Year(Date) & "\"
fichier = "GESTION PARC MACHINES " & Year(Date) & ".xlsm"
<bold>GEPAMA = Workbooks.Open(chemin & fichier, 0)</bold>
End Sub




Configuration: Windows / Edge 18.17763

2 réponses

yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 585
 
bonjour,
merci d'utiliser les balises de code quand tu partages du code.
suggestion:
set GEPAMA = Workbooks.Open(chemin & fichier, 0)
1
chaymaek Messages postés 6 Statut Membre
 
Je vous remercie, c'est le "Set" qui manquait!
0
baladur13 Messages postés 50097 Date d'inscription   Statut Modérateur Dernière intervention   13 720
 
0