Macro "Coller" / Erreur 400

[Fredox]

Bonjour à tous,

Je souhaite créer un bouton copier / coller, pour que lors du changement de fichier (mis à jour), je puisse simplement importer via un copier/coller ciblé ma base de client.

Sur mon essais, j'ai essayé de faire très simple:
- 1 bouton copier pour les valeurs B2:C2
- 1 bouton coller pour les coller sur la feuille "Tab", en A1

Mon code:

Sub copier()

Sheets("Feuil1").Select
Range("B2:C2").Copy

End Sub



Sub coller()

Sheets("Tab").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

Si la fonction copier fonctionne très bien, la fonction coller me donne une erreur 400, sans me spécifier où.

Un petit coup de main serait le bien venu.

Merci

 

[camarchepas]

Re : Macro "Coller" / Erreur 400

Bonjour,

Peut être en spécifiant le classeur avant de spécifier la feuille ?

 

[Fredox]

Re : Macro "Coller" / Erreur 400

Bonsoir camarchepas, comment faire ?

 

[camarchepas]

Re : Macro "Coller" / Erreur 400

en utilisant par exemple :

Workbooks("Données.xlsx").activate pour le fichier de données .

et

thisworkbook.activate pour le classeur contenant le code

 

[JCGL]

Re : Macro "Coller" / Erreur 400

Bonjour à tous,

Pourquoi ne pas tout mettre dans la même procédure :

Option Explicit

Sub Copier_Coller()
Sheets("Feuil1").Activate
Range("B2:C2").Copy Sheets("Tab").Range("A1")
End Sub

A+ à tous

 

[Fredox]

Re : Macro "Coller" / Erreur 400

Bonjour JCGL,
Parce-que j'utilise un premier fichier pour le coller, et un second pour le coller.

Merci