Erreur 91 sur workbooks.open

Résolu
chaymaek Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
baladur13 Messages postés 47801 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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
Je vous remercie, c'est le "Set" qui manquait!
0
baladur13 Messages postés 47801 Date d'inscription   Statut Modérateur Dernière intervention   13 688
 
0