XL 2019 Ouverture et copier coller d'un classeur excel dans un autre

[l.et.lilou]

Bonjour,

Je suis à la recherche d'un moyen de copier coller des données d'un onglet excel dans un autre classeur excel.

En premier temps, j'aimerais avoir un MSGBOX qui me dise ou aller cherche le fichier que je veux copier / coller (le chemin peut changer, c'est pour ca que je voudrais aller le chercher).
En deuxième temps, j'aimerais qu'il me fasse un copier coller des données du 1er classeur dans le 2e précédemment ouvert.
Le fichier ou je récupère les données s'appelle "CLASSEUR COPIER"
Le fichier ou je veux que les données soient collées est "CLASSEUR COLLER".

J'ai mis en jaune le résultat que j'aimerais qu'il me donne dans le classeur COLLER.


Ci-joint les 2 classeurs excel
J'essai mais en vain... Merci de votre aide !!

 

[Staple1600]

Bonsoir le fil

Je suis à la recherche d'un moyen de copier coller des données d'un onglet excel dans un autre classeur excel.

Tout ceci se trouve déjà dans les archives du forum
Mot-clé pour la recherche
Application.GetOpenFilename
Et l'outil de recherche est ici

Rechercher des discussions

www.excel-downloads.com

 

[Staple1600]

Re

[moment Recyclerie]
Adapté d'une réponse que j'ai faite en janvier 2021

Sub Test_OK()
Dim fichier As Variant, wbk As Workbook
fichier = _
        Application.GetOpenFilename("Fichiers EXCEL ,*.xls?", , "Choisir un fichier, svp", False)
If fichier <> False Then
Set wbk = Workbooks.Open(fichier)
End If
wbk.Worksheets(1).Range("A1:C10").Copy ThisWorkbook.Worksheets(1).[A1]
Application.CutCopyMode = False
wbk.Close False
End Sub

Je te laisse faire les adaptations nécessaires.

 

[l.et.lilou]

Bonjour Staple1600,

je vais regarder avec plus d'attention. merci à toi

 

[Staple1600]

Re

Tu as essayé le bout de code du message#3?
Copies le dans un classeur vierge puis lance la macro
Normalement, tu auras alors déjà la réponse à comment faire ceci

En premier temps, j'aimerais avoir un MSGBOX qui me dise ou aller cherche le fichier que je veux copier / coller (le chemin peut changer, c'est pour ca que je voudrais aller le chercher).