Importer une feuille dans un autre classeur

bonjour,

je souhaite a l aide d un bouton:

1) ouvrir le disque dur pour rechercher le fichier a copier,selectionner la feuille a copier

2) copier celle ci dans la feuille active en a1.

j ai le debut du code seulement celui ci me cree une nouvelle feuille^^

Sub tt()

Set WB2 = ActiveWorkbook

thefile = Application.GetOpenFilename

Set WB = Workbooks.Open(thefile)

WB.Sheets(1).Copy After:=WB2.Sheets(Sheets.Count)

bonsoir,

une version corrigée

Sub tt()
    Set ws2 = ActiveSheet
    thefile = Application.GetOpenFilename
    Set wb = Workbooks.Open(thefile)
    Set ws1 = Application.InputBox("veuillez selectionner une cellule de la feuille à copier", Type:=8)
    ws1.Parent.Cells.Copy ws2.Cells(1, 1)
    wb.Close
End Sub

Bonjour,

merci ca marche bien.

par contre les fichiers que je recopie contiennent des noms identiques car issu de fichier de dematerialisation.et il faut accorder a chaque nom le remplacement en validant oui sur la fenetre qui apparait.

y aurait il un code vba pour autorise tout cela directement?

bonsoir,

version corrigée dans le message précédent.