Erreur 1004 "Classeur utilisé en référence..."
Fermé
chafik.b
Messages postés
1
Date d'inscription
mercredi 15 juin 2016
Statut
Membre
Dernière intervention
15 juin 2016
-
15 juin 2016 à 14:02
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 juin 2016 à 09:05
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 juin 2016 à 09:05
A voir également:
- Erreur 1004 "Classeur utilisé en référence..."
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur d'execution 1004 - Forum Programmation
- Matthias utilise les réseaux sociaux. que doit-il faire dans chaque situation ? - Forum Cloud
- Cliquez sur ce lien. en n'utilisant que le clavier, quel mot obtenez-vous ? ✓ - Forum souris / Touchpad
- Erreur 1000 france tv - Forum MacOS
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
16 juin 2016 à 09:05
16 juin 2016 à 09:05
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 :
À 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