ouvrir .xls comme feuille ds classeur actif

[pln]

Bonjour,
je réalise actuellement une macro en VB pour excel 2000

voilà mon problème:

connaissez-vous une méthode rapide pour ouvrir un classeur enregistré dans mon répertoire courant comme nouvelle feuille de mon classeur actif?

(pour info: le classeur à ouvrir ne contient qu'une seule feuille)

merci beaucoup pour votre aide
A++

 

[Adeus33]

Bonjour,
Je te propose une autre solution.

Importer les données contenu dans le classeur que tu vas ouvrir dans une page de ton classeur.

 If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
    nom = ActiveSheet.Name
    ActiveWorkbook.Sheets(nom).Cells.Copy Destination:= _
                ThisWorkbook.Sheets('nom de l'onglet ou tu veux copier les informations').Cells
    ActiveWorkbook.Close savechanges:=False

Voila bon courage

Adeus33

 

[Pierrot93]

Bonjour Pln, Adeu33

tu peux aussi utiliser le code ci dessous pour ouvrir un nouveau classeur en prenant celui entre paranthèses comme modèle.

Workbooks.Add ('NomClasseur')

Bonne journée
@+

 

[Pln]

merci pour l'aide

je m'en sors assez bien avec les bout de codes que vous m'avez filer

(toute autre solution reste la bienvenue)
A++