Commnt faire pourr aller chercher le nom des onglets dans un autre workbook [Résolu]

Signaler
Messages postés
101
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
8 septembre 2010
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour

Comme le titre l'indique, je cherche à aller chercher le nom des onglets d'un autre workbook. Ceci dit, je dois le faire pour une série de fichiers que je liste avec Application.FileSearch . Ma question est, serait-il possible de mettre un fichier excel (Exemple : Allo.xls) dans une variable pour n'utiliser que cette variable pour aller chercher le contenu d'un autre fichier excel. J'ai besoin de lire plusieur fichiers de cette façon qui sont tout listé avec Application.FileSearch.

Merci beaucoup!

1 réponse

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

voici un exemple avec un CommonControl sur le UserForm :

Sub EXEMPLE()
        Dim Fd As FileDialog, refItemSelectionne As Variant
        Dim xlSheet As Worksheet

    Set Fd =  Application.FileDialog(msoFileDialogFilePicker)
    
    With Fd
        .Filters.Add "Fichiers Excel", "*.xls", 1
        If .Show = -1 Then
            For Each refItemSelectionne In .SelectedItems
                MsgBox "Chemin de la sélection : " & refItemSelectionne
                Workbooks.Open refItemSelectionne
                For Each xlSheet In ActiveWorkbook.Sheets
                    MsgBox xlSheet.Name
                Next xlSheet
                ActiveWorkbook.Close False
            Next refItemSelectionne
        Else
        End If
    End With
    
    Set Fd = Nothing

End Sub

~ <small> Mortalino ~ Colorisation automatique </small>

@++

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>