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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

l.et.lilou

XLDnaute Junior
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 !!
 

Pièces jointes

Re

[moment Recyclerie]
Adapté d'une réponse que j'ai faite en janvier 2021
VB:
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.
😉
 
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).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
307
Retour