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 46897 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 18 novembre 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

A voir également:

Application.workbooks.open vba
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 10016 epson - Forum Imprimante
Erreur 3005 france tv - Forum TV & Vidéo

2 réponses

Réponse 1 / 2

yg_be Messages postés 23333 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
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)

Réponse 2 / 2

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!

baladur13 Messages postés 46897 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 18 novembre 2024 13 443
2 sept. 2019 à 13:53

Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Code erreur 3000