Erreur 91 sur workbooks.open

Résolu

chaymaek Messages postés 6 Statut Membre -
baladur13 Messages postés 47306 Date d'inscription Statut Modérateur Dernière intervention - 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

Afficher la suite

2 réponses

Réponse 1 / 2
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
merci d'utiliser les balises de code quand tu partages du code.
suggestion:
```
set GEPAMA = Workbooks.Open(chemin & fichier, 0)
```
1
Réponse 2 / 2
chaymaek Messages postés 6 Statut Membre

Je vous remercie, c'est le "Set" qui manquait!
0
1. baladur13 Messages postés 47306 Date d'inscription Statut Modérateur Dernière intervention 14 386
  
  Bonjour
  A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
  
  0

Erreur 91 sur workbooks.open

2 réponses

Discussions similaires

Newsletters