Bonjour la compagnie,
alors voila, c'est mon premier post sur le fofo mais j'ai déjà utilisé des "trucs & astuces" que vous donniez à d'autres internotes et cela m'a beaucoup aidé jusqu'à maintenant =)
Voila mon problème : Je dois créer un fichier Excel dans lequel je dois répertorier tous les fichiers d'un dossier. Jusque là pas de soucis de mon coté, ils se mettent tous dans la première colonne de mon fichier actif (celui que je dois remplir). Le soucis est que pour ces fichiers, je dois copier une valeur (nommée Alerte) qui se trouve en B8 (dans chacun des fichiers) et la mettre dans la deuxieme colonne du fichier actif.
Je tente de faire le tout via une macro mais je vous avoue que j'ai du mal avec la prog, à mon grand désarroi...
Voici le code que j'ai pu pondre jusqu'a maintenant :
Merci d'avance pour l'aide apportée ^^
Cordialement,
RhaegarNorka
alors voila, c'est mon premier post sur le fofo mais j'ai déjà utilisé des "trucs & astuces" que vous donniez à d'autres internotes et cela m'a beaucoup aidé jusqu'à maintenant =)
Voila mon problème : Je dois créer un fichier Excel dans lequel je dois répertorier tous les fichiers d'un dossier. Jusque là pas de soucis de mon coté, ils se mettent tous dans la première colonne de mon fichier actif (celui que je dois remplir). Le soucis est que pour ces fichiers, je dois copier une valeur (nommée Alerte) qui se trouve en B8 (dans chacun des fichiers) et la mettre dans la deuxieme colonne du fichier actif.
Je tente de faire le tout via une macro mais je vous avoue que j'ai du mal avec la prog, à mon grand désarroi...
Voici le code que j'ai pu pondre jusqu'a maintenant :
Code:
Sub Lister()
Dim Chemin As String
Dim Fichier As String
Dim Alerte As String
Dim ligne As Integer
ligne = 2
Chemin = "chemin_réseau_du_dossier"
Fichier = Dir(Chemin)
Do While Fichier <> "" 'Jusqu'à ce que la recherche soit vide
Cells(ligne, 1) = Fichier 'On écrit le nom du fichier dans une cellule
Workbook(Fichier).Sheets("Feuil1").Range("B8").Copy
Alerte = ActiveWorkbook.Sheets("Feuil1").Paste
Cells(ligne, 2) = Alerte 'On écrit le nom de l'alerte correspondant au fichier
Fichier = Dir 'Fichier suivant
ligne = ligne + 1
Loop
End Sub
Merci d'avance pour l'aide apportée ^^
Cordialement,
RhaegarNorka