Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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

  • CLASSEUR COLLER.xlsx
    8.7 KB · Affichages: 9
  • CLASSEUR COPIER.xlsx
    8.5 KB · Affichages: 2

Staple1600

XLDnaute Barbatruc
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.
 

Staple1600

XLDnaute Barbatruc
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).
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…