Pbl de Paste au sein d'un Before_Save

Bonjour à tous,

Mon problème viens du fait que je dois copier le contenu d'une feuille en format .XLSB dans un fichier .XLS

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)   'Application.ScreenUpdating = False Stop plage = "A1:P" & [A1].End(xlDown).Row Range(plage).Copy Workbooks.Open Filename:= _ "\\adresse réseau de ma société\RECUP_ANOS_DU_MATIN_POUR_PLANIF.xls" ' Sheets("Feuil1").Select Cells.ClearContents   Range("A1").Select ActiveSheet.Paste 'ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone Range("A1").Select   ActiveWorkbook.Save ActiveWindow.Close   'Application.ScreenUpdating = True   End Sub

---

et sur la ligne : ActiveSheet.Paste
j'ai le message : Erreur 1004 La méthode paste de la classe Worksheet à échoué

et là je sèche

j'ai fait par l'assistant et il me propose cette instruction :calim2:

j'ai essayé PasteSpecial idem

mon problème vient surement que ma cible est un fichier XLS (version 2003)

petite précision ma plage Copier est A1: P504 dont au niveau place ça passe ! (j'ai rajouté un espace avant le P pour évité le smiley)

deuxième précision quand je le fait avec l'assistant ça marche (avec l'assistant)

merci pour ceux qui pourront m'aider à débugger mon soucis

@ bientôt

Je pense que ton problème vient du Cells.ClearContents placé entre Copy et Paste.
Excel est un peu chatouilleux question copie. Si tu fais Ctrl+C sur une cellule et qu'ensuite tu saisies quelque chose dans n'importe quelle cellule, tu ne peux plus faire Ctrl+V (du moins pas avant d'avoir faire un autre Ctrl+C).

Tu pourras vérifier ce que je dis en avançant pas à pas : tu verras ta plage s'entourer de tirets après le Copy (pour marcher la zone copiée) mais après le ClearContents, ces tirets devraient disparaitre, montrant qu'on ne peut plus copier la zone.

La solution :

Code:

---

1 2 3 4 5 6

Dim plage As Range Set plage = Range("A1:P" & [A1].End(xlDown).Row) Workbooks.Open Filename:="\\adresse réseau de ma société\RECUP_ANOS_DU_MATIN_POUR_PLANIF.xls" Cells.ClearContents plage.Copy Range("A1").PasteSpecial

---

Bonjour Menhir
Je serais personnellement encore plus prudent.
- 1) j'attribuerais une variable objet Cl0 au classeur source
- 2) j'ouvrirais le classeur destination et lui attribuerai également une variable objet CL1
- 3) je "lessiverais" alors le classeur CL1 et appliquerais la méthode range.copy du classeur CL0 vers le classeur CL1

(pour ne pas courir le risque de copier et coller du "vide")

Amitiés

Bonjour à tous,

Citation:

---

Envoyé par Igloobel

Mon problème viens du fait que je dois copier le contenu d'une feuille en format .XLSB dans un fichier .XLS
mon problème vient surement que ma cible est un fichier XLS (version 2003)

---

Je ne suis pas sûr que xls soit en cause mais comme apparemment tu écrases ton fichier xls, je procéderai ainsi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim wo As Worksheet Application.ScreenUpdating = False ' Stop Set wo = ThisWorkbook.ActiveSheet Workbooks.Add wo.Range("A1:P" & [A1].End(xlDown).Row).Copy ActiveWorkbook.ActiveSheet.Range("A1") Application.DisplayAlerts = False ActiveWorkbook.SaveAs "\\adresse réseau de ma société\RECUP_ANOS_DU_MATIN_POUR_PLANIF.xls" ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

---

Citation:

---

Envoyé par unparia

- 1) j'attribuerais une variable objet Cl0 au classeur source

---

Dans la variable Range est incluse la référence au classeur et à la feuille.
Même si on change de classeur ou de feuille actif, une variable de type Range pointera toujours sur la même cellule de la même feuille du même classeur.
Donc, pas de risque concernant la source.

Bonjour et Merci à Menhir, anasecu et Unparia de m'avoir répondu

J'ai opté pour la solution de Menhir qui fonctionne très bien

voici mon résultat qui marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)   Application.ScreenUpdating = False Stop Dim plage As Range   Set plage = Range("A1:P" & [A1].End(xlDown).Row)   Workbooks.Open Filename:= _ "\\.....\RECUP_ANOS_DU_MATIN_POUR_PLANIF.xls" Cells.ClearContents Cells.Delete ActiveWorkbook.Names("Classement_Anos").Delete ActiveWorkbook.Names("Reparation").Delete plage.Copy Range("A1").PasteSpecial ActiveWorkbook.Save ActiveWindow.Close   Application.ScreenUpdating = True   End Sub

---

Cependant c'est pas joli les deux .names à supprimer

si je voulais faire un "for each" je prendrais quoi comme collection ?

Merci encore à vous

Citation:

---

Envoyé par Igloobel

Cependant c'est pas joli les deux .names à supprimer
si je voulais faire un "for each" je prendrais quoi comme collection ?

---

Bin... Names.

Attention de faire la différence entre la version Workbook et la version Worksheet.
https://msdn.microsoft.com/fr-fr/lib.../ff195422.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff197993.aspx

Ok

alors si j'ai bien compris

ActiveWorkbook.Names : c'est tous les noms du classeur actif

ActiveWorksheet.Names : C'est tous les noms de la feuille active uniquement


dans mon cas les fichier xls ne contient qu'une feuille donc le résultat sera identique mais merci de la précision

je test

Citation:

---

Envoyé par Igloobel

ActiveWorkbook.Names : c'est tous les noms du classeur actif
ActiveWorksheet.Names : C'est tous les noms de la feuille active uniquement
dans mon cas les fichier xls ne contient qu'une feuille donc le résultat sera identique

---

Pas forcément.

Si un nom est déclaré au niveau Classeur, même s'il est associé à ces cellules de la feuille, il ne sera pas visible de Worksheet.Names.

Fais le test :
Dans la même feuille, déclare un nom au niveau classeur et un autre au niveau feuille et lance la macro suivante :

Code:

---

1 2 3 4 5 6 7 8

Dim yy As Name For Each yy in ThisWorkbook.Names Debug.Print yy.Name Next yy Debug.Print "" For Each yy in ActiveSheet.Names Debug.Print yy.Name Next yy

---