[VBA-E] Copie par valeur d'une feuille dans un nouveau classeur

Version imprimable

17/05/2006, 14h35
MatMeuh

[VBA-E] Copie par valeur d'une feuille dans un nouveau classeur
Bonjour

J'ai un classeur dans lequel j'applique ma macro
je veux copier par valeur une feuille de ce classeur (nommée "Indicateurs_données") et coller cette feuille dans un classeur nouvellement crée nommée "test.xls"

j'ai le code suivant
Code:

1 2 3 4 5 Sub Resultat() ActiveWordbook.Sheets("Indicateurs_données").Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\test.xls" End Sub
et l'erreur 424 "objet requis"... je ne comprends pas

merci d'avance
17/05/2006, 15h03
Vesta

ActiveWorkbook est le classeur courant.

Je te conseille de faire comme suit:

1. Créer un nouveau claseur, et l'ouvrir.
2. Dans les parametres du Active Workbook.copy tu peux donner la destination en parametre. Destination = nouveau classeur créé
3. Fermer le nouveau.

Allé un coup de pouce je suis dans un bon jour...

Code:

1
2
3
4
5
6
7
8
9
 
    Dim nWkbk As New Workbook
    Set nWkbk = Workbooks.Add
 
    ActiveWorkbook.Sheets("Indicateurs_données").Copy , nWkbk.Sheets("Feuil3")
    nWkbk.SaveAs Filename:="c:\test.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    nWkbk.Close

Comme tu sembles ne vouloir copier que les valeurs, tu fais ce que Vesta t'a indiqué, puis tu copies la feuille en précisant valeurs seulement.

Code:

1
2
3
4
5
6
7
8
9
10
 
    'Tu es dans le classeur contenant la macro...
    '...sur la feuille contenant les données à copier
    Range("A1").CurrentRegion.Copy
    With Application
        .Workbooks.Add
    End With
    Worksheets("Feuil1").Select
    Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False

mais je lutte à mort là alors que c'est trop naze ce que je veux faire

- créer un fichier qui porte le nom de l'ancien + qq caractères
- mettre dans ce fichier la première feuille en copie par valeur...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Resultante() Dim NomFichier As String Dim Path As String Dim NouveauClasseur As Workbook NomFichier = ActiveWorkbook.Name Path = ActiveWorkbook.Path ActiveWorkbook.Sheets("Indicateurs_données").Copy Workbooks.Add 'Créer un fichier Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ActiveWorkbook.SaveAs Path & "\Valeurs_" & NomFichier & ".xls" End Sub
merci

modif: j'avais pas vu vos deux dernières réponses... mais je suis dans le brouillard la... le premier code que j'avais mis était quasiement bon au détail pres qu'il copiait tout simplement au lieu de copier par valeur....

17/05/2006, 15h20
ouskel'n'or

Je crois que tu as la réponse dans mon dernier post ;)

Tu dis

A+
17/05/2006, 15h30
MatMeuh

c'est pas un truc tiré par les cheveux ? moi je veux absolument pas touché au classeur 1... disons d'ailleurs que je n'ai que le droit en lecture dessus !
17/05/2006, 17h11
ouskel'n'or

Tiré par les cheveux ? Tiré par les cheveux ? :furieux:
Je t'en donnerai, moi !
Non, ça fonctionne. Le seul pb est avec currentRegion. Il prend toutes les lignes et colonnes mais la plage ne doit comporter aucune ligne ni aucune colonne entièrement vide. Sinon la plage copiée se limite aux lignes et colonnes renseignées entre lignes et/ou colonnes vide
Si tu te places en A1 mais que la ligne 10 est vide, la sélection se fera sur les lignes 1 à 9
Idem pour les colonnes
Si tu te places en B1 mais que la colonne N est entièrement vide, la sélection se fera de A (si la colonne est renseignée) à M.
Si tel n'est pas le cas (si tu as des colonnes ou lignes entièrement vides dans ta plage) tu dis, il y a d'autres méthodes

Non mais ! Tiré par les cheveux ! T'as voir ! :furax:

snif snif... fais pas peur... :aie:

bon j'ai fait une autre feinte de charognard basée sur la copie sur elle meme de la sélection mais dans le fichier résultat (et non source, puisque je peux pas modifier)

globalement j'ai ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Valeurs_pour_publication()
    Dim NomFichier As String
    Dim Path As String
    Dim DateFichier As String
 
 
    NomFichier = ActiveWorkbook.Name
    Path = ActiveWorkbook.Path
    DateFichier = ActiveWorkbook.Worksheets("Indicateurs_données").Range("A1")
    ActiveWorkbook.Sheets("Indicateurs_données").Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Value = DateFichier
    ActiveWorkbook.SaveAs Path & "\Valeurs_" & NomFichier & ".xls"
End Sub

merci encore et pas frappé ! steuplé !! ;)

17/05/2006, 17h53
ouskel'n'or

Un peu lourd ton histoire... 65535 lignes et 256 colonnes copiées, t'as pas intérêt à le faire en boucle... ;)
ma solution était plus économique. Cependant tu commets une erreur : Elle ne collait pas sur le fichier d'origine mais sur le fichier créé sur lequel tu te trouves automatiquement dés lors que tu l'as créé... Faut apprendre à lire ! :langue:

A+

Citation:
Envoyé par MatMeuh
Code:

1 2 3 4 5 Sub Resultat() ActiveWordbook.Sheets("Indicateurs_données").Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\test.xls" End Sub
Voilà ce qui se passe quand on n'a pas une bonne orthographe :mouarf: