Discussion :

[Igloobel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

[Menhir]

- 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.

[Igloobel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

[Igloobel]

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

[anasecu]

Bonjour à tous,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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