Copier Coller valeur autre fichier Excel

Résolu/Fermé
thyroox
Messages postés
34
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
25 février 2022
- 27 avril 2018 à 14:29
thyroox
Messages postés
34
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
25 février 2022
- 28 avril 2018 à 14:38
Bonjour,


J'ai créé une macro qui vise à faire cela :

1) Filtrer des données d'un classeur (fichier A)
2) Copier ces données filtrées
3) Créer un nouveau classeur (fichier B)
4) Coller les données du fichier A dans le fichier B

Voila le rendu :

Sub Macro1()
'
' Macro1 Macro
'

'


    [A1].AutoFilter Field:=2, Criteria1:= _
        "PRODUIT"
    ActiveSheet.AutoFilter.Range.Copy _
    

Dim classeur As Workbook
Dim Nom As String

Set classeur = Application.Workbooks.Add
Nom = InputBox("Nom de fichier", "Enregistrer sous")

    With classeur

ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAs Filename:=Nom
    
    End With
    
ActiveSheet.Paste

End Sub



Tout se déroule bien jusqu’à l'étape 4. J'ai ce message d'erreur "La méthode Paste de la classe Worksheet a échoué."
Voyez vous l'anomalie ?


Cordialement

1 réponse

michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
28 avril 2018 à 08:35
Bonjour


dans quelle cellule commences tu la copie ?
0
thyroox
Messages postés
34
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
25 février 2022

28 avril 2018 à 14:38
Bonjour,


En A9
0