Importer des données d'un autre classeur

[steph71]

Bonjour à tous,

j'ai un petit souci en cette fin de semaine.
Dans un onglet d'un fichier excel A,j'ai une petite base comprenant 18 colonnes avec des données numériques et alphanumériques.

Mon besoin :
En cliquant sur un bouton placé dans un onglet d'un autre fichier , j'aimerais l'import automatique de l'ensemble des données figurant dans la base de mon fichier A.

Contrainte :
- l'import doit pouvoir se faire que le fichier A soit ouvert ou fermé,
- seule les données doivent être importées en ligne 2

et là, je dois dire que je coince un peu.

Merci d'avance pour votre aide ou vos proposition

A bientôt et bon début de we

STEPH71

 

[Adeus33]

Bonjour steph71

Juste une piste de réflexion
Ce code permet de copier le contenu d'une feuille que tu vas ouvrir manuellement dans ton fichier.

'Initialisation de la feuil1
        Feuil1.Select
        Cells.Select
        Selection.Delete Shift:=xlUp

'après tu va rechercher manuellement le fichier que tu veux
        Range('A2').Select
        If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
        nom = ActiveSheet.Name
        ActiveWorkbook.Sheets(nom de ta feuil).Cells.Copy Destination:= _
                          ThisWorkbook.Sheets('Extraction').Cells
        ActiveWorkbook.Close SaveChanges:=False

Voila bon courage

Adeus33

Message édité par: adeus33, à: 17/03/2006 15:51