Erreur 91 sur workbooks.open

Résolu/Fermé
chaymaek Messages postés 6 Date d'inscription lundi 2 septembre 2019 Statut Membre Dernière intervention 2 février 2020 - Modifié le 2 sept. 2019 à 13:50
baladur13 Messages postés 46393 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 24 avril 2024 - 2 sept. 2019 à 13:53
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 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 sept. 2019 à 12:49
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 lundi 2 septembre 2019 Statut Membre Dernière intervention 2 février 2020
2 sept. 2019 à 13:49
Je vous remercie, c'est le "Set" qui manquait!
0
baladur13 Messages postés 46393 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 24 avril 2024 13 219
2 sept. 2019 à 13:53
0