Erreur 1004: Méthode Open de l'objet workbook échouée

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur 1004: Méthode Open de l'objet workbook échouée

bmetias

Bonjour à tous,

Après de nombreuses recherches sur le net, je ne trouve toujours pas de solutions à mon problème de copie/Coller donc je m'en remet à vous!

Je cherche à exécuter les tâches suivantes à partir d'un fichier de consolidation "GlobalView":

1) Ouvrir 5 fichiers nommés
2) Sélectionner 2 onglets nommés dans chacun de ces fichiers
3) Copier ces 2 onglets dans chacun de ces fichiers
4) Coller ces 2 onglets dans mon fichier "Global View"

Le programme fonctionne très bien avec les 2 premiers fichiers mais pas à partir du 3ème, ça me donne "Erreur 1004: Méthode Open de l'objet workbook échouée". J'ai pensé que ca pouvait etre du au presse papier office alors j'ai appliqué 2 méthodes (voir programme ci-dessous) pour le vider mais le problème persiste.

Quelqu'un aurait-il une idée?

Merci d'avance!

voici le programme utilisé:

Code :

l = 9
Do While Not IsEmpty(Cells(l, 26)) ' number of sites or divisions
Windows("BTRT_sites selection_btna_jan.xls" ).Activate
Worksheets(1).Select
' ## Vidage du presse papier Version 1##
Dim oDataObject As DataObject
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
Set oDataObject = Nothing
' ## Vidage du presse papier Version 2##
Range("A1" ).Select
Selection.Copy
Application.CutCopyMode = False
'Selectionne les sites à consolider
site = Cells(l, 26).Value
'Demande de supression si le fichier existe
If FeuilleExiste(ThisWorkbook, "Input_" & site & "_" & Division) Then
Cells(5, 26).Value = site
Overwrite.NameTab.Caption = "Input_" & site & "_" & Division
Overwrite.Show
End If
Workbooks.Open "C:\program files\BTRT\sites\2009\BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls"
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Unprotect Password:=("BOSKPI" )
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Activate
Worksheets(1).Select
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Sheets("Input_" & site & "_" & Division).Copy After:=Workbooks("BTRT_sites selection_btna_jan.xls" ).Sheets(Worksheets.Count)
'Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Activate
'Worksheets(1).Select
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Sheets("Results_" & site & "_" & Division).Copy After:=Workbooks("BTRT_sites selection_btna_jan.xls" ).Sheets(Worksheets.Count)
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Protect Password:=("BOSKPI" )
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Saved = True
Workbooks("BTRT_" & site & "_" & Division & "_" & Cmonth & ".xls" ).Close
l = l + 1
Worksheets(1).Select
Loop

Message édité par bmetias le 16-07-2009 à 10:13:07

Publicité

bmetias

Rebonjour,

j'ai vraiment besoin d'avoir vos points de vue svp meme si ceux ne sont que des idées. Je suis vraiment bloqué à cause de cette erreur et ne peux plus avancer dans mon projet.

Merci d'avance!

GuiGui013

Tes fichiers Excel existent bien ?

bmetias

oui l"erreur est sur la ligne 29

sinon les noms de fichier sont corrects et les fichiers existent dans le repertoire indiqué.

Pour info, les onglets que je copie contiennent des macros elles aussi ce qui rend la copie volumineuse...

GuiGui013

A part une erreur dans le nom du fichier, je ne vois pas ce qui peut produire une erreur.
Tu as vérifié dans la fenêtre d'exécution ?

Message édité par GuiGui013 le 16-07-2009 à 11:10:56

bmetias

En fait, ce qui me fait croire que le problème ne vient pas de la, c'est que je fais le test avec le meme fichier que je copie colle - Efface - Copie Colle etc...

Ca fonctionne les 2 premières fois et la 3ème j'obtiens ce fameux message d'erreur... .

bmetias

Encore une remarque interressante:

Je fais le copie/colle - Efface - Copie/colle de mes onglets manuellement (ie sans passer par les macros), et c'est exactement la meme chose. Au bout de la 3ème opération, ca ne colle plus. Mais pas de message d'erreur cette fois-ci... .

bmetias

Problème toujours non résolu. Personne n'a une idée?... :-(

_xme_

Salut
Excuse moi mais je ne suis pas sur d'avoir bien compris ton script.
Je ne vois pas ou tu ouvres ton fichier et ou tu le fermes?
Car si c'est un problème de mémoire, est ce que tu fais bien ceci:
ouvrir un fichier, copier/coller 1 onglet, réutiliser les variables copier/coler le deuxieme, nettoyer les variables, fermer le fichier
et ceci 5 fois?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Erreur 1004: Méthode Open de l'objet workbook échouée

Sujets relatifs
message d'erreur "can not access a member of class X"	Probème : "workbook saveas" error excel version -- Object COM ?
[VBA Excel 2007] erreur Nombre d'arguments incorrects [RESOLU]	erreur : Set RS = db.OpenRecordset("SITE", dbOpenTable)
[VBA] Erreur out of range sur script	Erreur 1004 : La methode 'Cells' de l'objet '_Global' a échoué
Web Service Axis, inversion paramètres methode
Plus de sujets relatifs à : Erreur 1004: Méthode Open de l'objet workbook échouée

Page générée en 0.070 secondes