Erreur 1004-La méthode 'Open' de l'objet 'Workbooks' a échoué
Résolu
A voir également:
- La methode open de l'objet workbooks a échoué
- Lockserverfile - Meilleures réponses
- Activeworkbook.lockserverfile - Meilleures réponses
- Gros soucis avec "workbooks".....! ✓ - Forum - VBA Office (Excel, Word ...)
- La méthode Open de l'objet Recordset a echoué .... selon la requete appliquée ! ✓ - Forum - VB.NET
- La méthode ~ de l'objet ~ a échoué - Forum - Visual Basic 6
- Probleme - Forum - Visual Basic 6
- Methode cells de l'objet _global a échoué dans boucle pour créer des graphiques ✓ - Forum - Visual Basic 6
5 réponses
Whismeril
2 oct. 2014 à 09:34
- Messages postés
- 17336
- Date d'inscription
- mardi 11 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 20 mai 2022
2 oct. 2014 à 09:34
Bonjourn sans code impossible de répondre.
Voir ici comment utiliser la coloration syntaxique.
Voir ici comment utiliser la coloration syntaxique.
tjrod
2 oct. 2014 à 10:40
- Messages postés
- 24
- Date d'inscription
- jeudi 20 décembre 2012
- Statut
- Membre
- Dernière intervention
- 5 novembre 2016
2 oct. 2014 à 10:40
peut être ce code pourrait être utile
Sub OuvreExcel()
Dim a As Variant, nom As String
Dim ws As Worksheet
nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:" 'Choix du répertoire
a = Application.GetOpenFilename("(*.xlsx), *.xlsx,(*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)
'active la feuille à importer les données
Sheets("Feuil1").Activate
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows(nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(Nom2).Close
End Sub
MkDir chem_dat & "" & numind_dvaff FileCopy chem_out & "" & repert_aff & "" & fich_aff, chem_dat & "" & numind_dvaff & "" & fich_aff Workbooks.Open Filename:=chem_dat & "" & numind_dvaff & "" & fich_aff
La macro fonctionne jusqu'à FileCopy (le fichier est créé dans le nouveau répertoire) mais elle plante sur Workbooks.open
jordane45
Modifié par jordane45 le 4/10/2014 à 04:49
- Messages postés
- 35466
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 21 mai 2022
Modifié par jordane45 le 4/10/2014 à 04:49
Bonjour,
déjà.. à quoi servent des doubles quotes entre chaque variable ?
EDIT : Tu n'avais pas des "\" entre tes quotes ??
Le forum les a enlevé... oupsss...
Il faut les "doubler" lorsque tu postes sur le site.. c'est un bug...
Ensuite..
As tu regardé ce que valaient tes différentes variables au moment du plantage ? Elles correspondent à ce que tu devrais avoir ?
Et tu peux aussi essayer comme ça :
au lieu de
Au cas où le souci persiste.. pourrais tu essayer de renommer ton fichier en .XLSX au lieu de. XLSM .. pour voir si le souci ne viendrait pas de l'extension (et/ou des macros qui y seraient contenues)
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane
déjà.. à quoi servent des doubles quotes entre chaque variable ?
& "" &...
EDIT : Tu n'avais pas des "\" entre tes quotes ??
Le forum les a enlevé... oupsss...
Il faut les "doubler" lorsque tu postes sur le site.. c'est un bug...
MkDir chem_dat & "\" & numind_dvaff FileCopy chem_out & "\"& repert_aff & "\"& fich_aff, chem_dat & "\"& numind_dvaff & "\"& fich_aff Workbooks.Open Filename:=chem_dat & "\"& numind_dvaff & "\" & fich_aff
Ensuite..
As tu regardé ce que valaient tes différentes variables au moment du plantage ? Elles correspondent à ce que tu devrais avoir ?
Et tu peux aussi essayer comme ça :
Workbooks.Open(myFile)
au lieu de
Workbooks.Open Filename:=myFile
myFile = chem_dat & "\" &numind_dvaff & "\" & fich_aff debug.print myFile If Dir(myFile)="" then MsgBox "Erreur : Le fichier n'existe pas" else 'Workbooks.Open Filename:=myFile Workbooks.Open(myFile) End If
Au cas où le souci persiste.. pourrais tu essayer de renommer ton fichier en .XLSX au lieu de. XLSM .. pour voir si le souci ne viendrait pas de l'extension (et/ou des macros qui y seraient contenues)
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci Jordane45, j'ai bien sûr regardé ce que valaient mes variables, d'ailleurs tout fonctionne jusqu'à la commande d'ouverture du fichier. J'ai par contre modifié la macro pour qu'elle ouvre un fichier vide au format .xlsm et je n'ai plus de problème. Ce sont donc les macros à l'intérieur du fichier que je veux ouvrir qui posent problème. Reste à corriger ces macros et d'abord à trouver le mot de passe mis par le concepteur (ce qui ne sera pas le plus simple).