Création macro pour ouvrir un fichier et copier coller un onglet

Bonjour,
Je souhaite créer une macro VBA sur un fichier Excel qui va ouvrir un autre classeur et copier le 1er onglet pour ensuite le coller sur mon fichier principal.
Merci pour votre aide

Bonjour, avec si peu d'information il n'y aura que peu de réponses.

Le plus simple vous avez un enregistreur de macro : Enregistrez vous en train de réaliser ces opérations ...

Ensuite si celà n'est pas exactement adapté à ce que vous voulez ; vous nous transmettez une copie du code obtenu avec ce que vous souhaitez comme modifications.

Bonjour,

J'ai commencé à faire ça mais je n'arrive pas à copier le 1er onglet du fichier ouvert via boite de dialogue dans mon fichier où j'ai la macro.

Merci

Sub Bouton3_Cliquer()

Dim Fichier As String

'Ouverture du fichier

With Application.FileDialog(3)

.Show

On Error Resume Next 'si annuler

Fichier = .SelectedItems(1)

If Err.Number <> 0 Then Exit Sub

End With Set Fichier = Workbooks.Open(Fichier)

Workbooks(Fichier).Worksheets(1).Select

Workbooks("Fichier").Sheets(1).Copy After:=ThisWorkbooks.Sheets(1)

End Sub

Mais ça ne marche pas !

Merci pour votre aide

Bonjour, à partir du moment ou vous ouvrez un autre fichier excel le ficher actif est le nouveau fichier non plus celui qui contiend la macro.

Vous ne pouvez donc pas utiliser : Workbooks("Fichier").Sheets(1).Copy After:=ThisWorkbooks.Sheets(1)

Vous devriez avoir plus de lignes correctes avec l'enregistreur de macro.

C'est sur cette partie que j'ai un problème... je l'ai rajouté manuellement :/

ThisWorkbooks avec un n'existe pas , C'est ThisWorkbook