Afficher les éléments d'un dossier

C'est bon j'ai trouvé, en plaçant le Debug.Print monFichier avant la ligne 19.

Et le programme prend en compte le nom du fichier sur lequel se lance la macro, qui lui ne possède pas (2) "_"

Merci à tous les deux pour votre aide, j'ai enfin compris !

Bonjour,

Il faut deux "_" pour que ca donne le bon resulat.
Verifiez le nom du fichier

Bonjour,

Veuillez m'excuser pour mon délais et la non réponse à votre précédente question.

Concernant la valeur de monFichier, j'ai utilisé la commande

Debug.Print monFichier

et cela me renvoie tout simplement tous les noms de fichier présent dans mon dossier, et pour la dernière ligne, le nom du dernier fichier.

Voici mon code complet, j'ai peut être omis de vous spécifier quelques informations qui ont une importance dans la boucle :

Sub toto()
Dim monFichier As String
Dim wb As Workbook
Dim chemin As String
Dim i As Integer
Dim nom As String
Set wb = Workbooks(ThisWorkbook.Name) 'classeur reception
' On a besoin du chemin absolu du dossier
' Doit se terminer par \
chemin = ThisWorkbook.Path & "\"
' La fonction Dir(chemin, mode) permet de parcourir un dossier
' Ici je rajoute à mon chemin "*.xlsx",
' pour ne retrouver que mes fichiers Excel
' vbNormal permet de ne récupérer que des fichiers,
' vbDirectory récupère tout (dossiers et fichiers)
monFichier = Dir(chemin & "*.xlsx", vbNormal)

Do While monFichier <> ""
    onglet = Split(monFichier, "_")(2)
    wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = onglet
    'Debug.Print onglet
    Debug.Print monFichier
    monFichier = Dir

Loop
End Sub

Ligne de l'erreur à la fin de l’exécution du code :

onglet = Split(monFichier, "_")(2)

Merci encore pour votre aide.

Do While monFichier <> ""
   wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Split(monFichier, "_") (2) 
' Permet de passer au fichier suivant
onglet = Split(monFichier, "_")(2)
monFichier = Dir
Loop
End Sub

Voici la boucle complète

Et l'erreur porte sur la ligne :

onglet = Split(monFichier, "_")(2)

Bonjour,

Et merci à tous les deux pour vos réponses.
Elle affiche bien le nom du dernier fichier dans un onglet, mais me renvoie l'erreur juste après : "L'indice n'appartient pas à la section" erreur d'execution 9. Je me suis fourvoyé dans mon précédent poste.

Bonjour,

dès qu'il ne trouve plus de fichiers
Desole, mais si plus de fichier, la variable Fichier="", donc pas de passage dans la boucle

Au moment de l'erreur, quelle est la valeur de Fichier?

Bonjour,

Merci pour ta réponse, en faite j'effectue une boucle avec une copie des noms des fichiers, présents dans un dossier, en les mettant en onglet dans mon fichier ou s’exécute ma macro.

Avec ce code :

Do While monFichier <> ""
   wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Split(monFichier, "_") (2) 
' Permet de passer au fichier suivant
monFichier = Dir
Loop
End Sub

Mais du coup dès qu'il ne trouve plus de fichiers, il s'arrête avec l'erreur "indice non défini" sur cette ligne :

wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Split(monFichier, "_") (2) 
' Permet de passer au fichier suivant

Bonjour,

Merci beaucoup pour ta réponse, c'est parfait !

J'aurais juste une autre petite question, quand ma boucle While parcours mon dossier elle s'arrête avec un message d'erreur (j'imagine parce qu'elle a parcouru tous les fichiers du dossier).

J'ai regardé sur la doc Microsoft pour sortir de ma boucle s'il n'y a plus de fichier à ajouter mais je n'arrive pas à l’implémenter à mon code..

Merci d'avance

Bonjour,

 Cells(i, j).FormulaR1C1 = "='" & ThisWorkbook.Path & "\[" & Fichier & "]Feuil1'!R" & i & "C" & j

Vous n'allez pas chercher les valeurs, vous creez un lien entre les cellules de fichiers et votre fichier!