Copie de cellule provenant d'un classeur externe

Bonjour,

Je cherche à copier une plage de cellule d'un classeur en feuil1 pour les copier dans un autre classeur dans la feuille "toto" à partir de la cellule B2 par exemple.

Voici mon code :

Sub import()

'choix fichier

MsgBox "Choisir le fichier "

Fichier = Application.GetOpenFilename

Workbooks.Open Filename:=Fichier

ActiveWorkbook.Sheets(1).Cells.Copy

With ThisWorkbook.Sheets("toto").Cells

.PasteSpecial Paste:=xlPasteValues

.Application.CutCopyMode = False

End With

ActiveWorkbook.Close

ThisWorkbook.Activate

End Sub

Merci de votre aide !!!

bonjour

je te conseille de faire menu Données, Récupérer, Obtenir, de fichier Excel

aucune ligne de code n'est nécessaire

plus tard tu apprendras à utiliser toute la puissance de cette fonctionnalité d'Excel (appelée Power Query)

amitiés

Merci jmd pour ta réponse mais le truc c'est que j'ai toute les semaines une 20 aines de tableau à renouveler et le truc c'est que j'aimerais cliquer sur un bouton pour choisir le fichier à copier.

Cordialement

re

essaye !

tu trouveras plein de fonctionnalités dans les menus de Power Query, dont la possibilité rapide et instinctive de changer de source.

et aussi de concaténer des milliers de fichiers si tu en as besoin

et des tonnes d'autres choses, d'une puissance que personne n'imagine. Même moi je suis surpris

amitiés