Erreur 1004 "Classeur utilisé en référence..."

chafik.b Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention - 16 juin 2016 à 09:05

Bonjour,

J'étais sous excel 2010 et toutes mes macro fonctionnaient parfaitement. là je viens de passer sous 2013, et je pense avoir quelques problèmes de compatibilité surtout quand il s'agit de naviguer entre plusieurs fichiers excel !

dans ce code j'ai deux problèmes :
1) J'ai dû rajouter la commande ".activate" pour chaque classeur, mais ca me debog à chaque fois avant de passer avec F8, est ce qu'il y a une sollution pour que ca passe directement ?

2) le code bloque à la dernière ligne "WB.close" et me donne l'erreur "1004 : ce classeur est utilisé en référence par une autre classeur ...." , je dois donc le fermer manuellement avant de continuer le code.

Auriez vous une solution pour ces deux problèmes svp ? Merci

Sub Histo_Actualiser()
Dim MyWB As Workbook, WB As Workbook
Set MyWB = ActiveWorkbook

MyWB.Sheets("histo Valo").Select
Cells.ClearContents

Set WB = Workbooks.Open(Histo_Fichier, False)
WB.Activate
Sheets("Histo Valo").Select
Sheets("Histo Valo").Cells.Select
Selection.Copy

MyWB.Activate
Sheets("histo valo").Select
Sheets("histo valo").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.CutCopyMode = False

WB.Close False

End Sub

A voir également:

Erreur 1004 "Classeur utilisé en référence..."
Salut j'utilise whatsapp - Accueil - Messagerie instantanée
Comment savoir si quelqu'un utilise mon adresse ip - Guide
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 4201 france tv ✓ - Forum Réseaux sociaux

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Bonjour Chafik, bonjour le forum,

À mon avis ton classeur WB n'était pas ouvert (à cause des guillemets) d'où le planton à la fermeture... Sinon, évite autant que tu le peux les Select qui ne font que ralentir l'exécution du code. Ton code sans eux :

Sub Histo_Actualiser()
Dim MyWB As Workbook, WB As Workbook

Set MyWB = ActiveWorkbook
MyWB.Sheets("histo Valo").Cells.ClearContents
Set WB = Workbooks.Open("Histo_Fichier.xlsx", False) 'extension a adapter à ton cas
WB.Sheets("Histo Valo").Cells.Copy
MyWB.Sheets("histo valo").Range("A1").PasteSpecial(Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False)
Application.CutCopyMode = False
WB.Close False
End Sub

Discussions similaires

Erreur 3005 sur France TV

Ce numéro de téléphone a déjà été utilisé de trop nombreuses

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

Votre réponse

Discussions similaires