Macro pour copier dans la bonne colonne et la bonne ligne

Bonjour,

Sur ce formidable site j'ai trouvé la macro pour lister des fichiers d'un dossier dans EXCEL.

Mais j'aimerais que la copie commence à la ligne D2.

Sub CommandButton2_Click()

Dim Dossier As String, Fichier As String, i As Integer

Dossier = "CHEMIN"

i = 0

Fichier = Dir(Dossier)

Do While Fichier <> ""

  i = i + 1

  Sheets("Liste").Range("E" & i) = Fichier

  Fichier = Dir

Loop
End Sub

Merci

Bonjour,

Dim Dossier As String, Fichier As String, i As Integer

Dossier = "CHEMIN"

i = 1

Fichier = Dir(Dossier)

Do While Fichier <> ""

  i = i + 1

  Sheets("Liste").Range("D" & i) = Fichier

  Fichier = Dir

Normalement ça devrait correspondre à ce que tu recherches.

Bonjour,

Modifie le texte pour avoir :

  Sheets("Liste").Range("D" & i + 2) = Fichier

Bonjour Oxydum,

J'ai modifié le texte ,

Sheets("Liste").Range("D" & i + 2) = Fichier

A la place de 2 j'ai mis 1 et tout est correct.

Merci très sincèrement.