Copier Coller valeur autre fichier Excel [Résolu/Fermé]

Signaler
Messages postés
31
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
22 juillet 2020
-
Messages postés
31
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
22 juillet 2020
-
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

Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
Bonjour


dans quelle cellule commences tu la copie ?
Messages postés
31
Date d'inscription
jeudi 27 juillet 2017
Statut
Membre
Dernière intervention
22 juillet 2020

Bonjour,


En A9