Erreur 1004 , copier/coller [Résolu/Fermé]

Signaler
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
-
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
-
Bonjour à tous et merci de votre aide,

Je rencontre une erreur 1004 lorsque je cherche à copier un onglet dans un autre classeur via VBA.


Le bout de code qui ne me posait pas de problème jusqu'à présent :

Set newWk = Workbooks.Add(xlWBATWorksheet)
ws.Copy newWk.Sheets(1)
newWk.SaveAs ("blablabla" & ws.Name & ".xls"), FileFormat:=56
newWk.Close
Set newWk = Nothing
Sheets(ws.Name).Delete


C'est la ligne souligné en gras qui pose problème apriori.
Est ce que quelqu'un a une idée ?

Encore merci pour votre aide.

Cordialement,



Nos seules limites sont celles que nous nous imposons nous-même.
Fahora

2 réponses

Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Bonjour,
Vous copiez une feuille d'un classeur 2007 ou plus vers un classeur 97-2003 ????
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
60
Bonjour ,

Pour ainsi dire je n'en sais rien , je demande juste à ce qu'il ouvre un nouveau fichier et qu'il copie la feuille de mon premier classeur vers le second.
C'est seulement après que je demande à ce qu'il enregistre en .xls
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361 >
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019

Re,

Quel EXCEL utilisez-vous ??
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
60
Re, excel 2010
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
510
Bonjour,

L'erreur 1004 c'est une erreur d'objet.
Vérifie que tu utilises les bons objets.
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
510
Il s'appelle comment ton fichier?
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
60
Celui ci s'appelle ACE all depart.xlsx

un autre (pour lequel le problème existe aussi) CAPinvest.xlsx
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
510
 ws.Copy newWk.Sheets(1)


Sheets(1) ça signifie feuille et il faut lui donner un nom pour qu'il le trouve alors que toi tu lui donne un entier, c'est ça ton problème je pense.
Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
60
Le problème est résolu. Sans toucher au code. Après une mise a jour, l’enregistrement par défaut à bouger. En le remettant comme avant, ça refonctionne. Merci de ton aide.
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
510
pas de soucis bonne journée.