Discussion :

[MatMeuh]

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 :

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

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

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

[Vesta]

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

Code :

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

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

[ouskel'n'or]

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 :

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

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

[MatMeuh]

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 :

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

[ouskel'n'or]

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

Tu dis

A+

[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 !

[ouskel'n'or]

Tiré par les cheveux ? Tiré par les cheveux ?
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 !

[MatMeuh]

snif snif... fais pas peur...

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 :

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
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é !!

[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 !

A+

[AlainTech]

Code :

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

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