Boucle ouverture fichier VBA excel Résolu

Question

Bonjour, 

Je travail actuellement sur une macro capable d'ouvrir des fichiers numérotés par mois, nommé suivant le schéma ci contre : XX - nom. XX étant le mois variant de 01 à 12 (logique ;-) ) et nom étant le nom de mon fichier, ce nom est invariant sur l'ensemble des fichiers.

Je cherche donc à réaliser une boucle me permettant d'ouvrir l'ensemble de ces fichiers; Attention si je lance ma macro en juin, il n'y aura que 6 fichiers dans mon dossier.

Merci beaucoup pour votre aide.


Configuration: Windows XP / Firefox 3.5.19

Jack_636 · Accepted Answer

je viens de trouver un code comptant le nombre de fichiers de mon répertoire. Le voici :

Sub test()
    Dim Rep As String
    Dim n   As Integer
   
    Rep = Dir("C:\Chemin\Dossier\*.xls")
    While Rep <> ""
        n = n + 1
        Rep = Dir()
        Wend
    MsgBox "Nombre de Fichiers : " & n
End Sub

Je vais essayer d'insérer ce résultat dans une cellule

michel_m · Answer

bonjour,

quel est le suffixe de tes fichiers (xls, xslx, xslm, doc, ppt....) ?

pijaku · Answer

Bonjour,
Tu dis : En juin, il n'y aura que 6 fichiers dans mon dossier en juillet 7, en septembre 9 etc... 
Ben il suffit de boucler sur tous les fichiers du-dit répertoire...
Tu dis : Je travail actuellement sur une macro quel est ton code? Qu'as tu déjà écris? Qu'elles sont tes pistes? sources?

Jack_636 · Answer

Mes fichiers sont des fichiers excel donc *.xls

Je souhaiterai compter les fichiers de mon répertoire pour ensuite lancer une boucle avec un compteur allant de 1 à Nombre_de_fichiers pour ouvrir les fichiers de mon dossier.

Je n'ai malheureusement pas les connaissances suffisantes en VBA pour coder moi même cette macro.

Merci

Jack_636 · Answer

Il me reste "juste" à créer ma boucle pour l'ouverture des fichiers :-)

pijaku · Answer

Maintenant que tu y es parvenu, merci de placer ton code dans une réponse. cela peux effectivement resservir à quelqu'un d'autre.
Merci pour eux.

Jack_636 · Answer

Voici le code


Sub ouverture_générale()
    Dim Rep As String
    Dim n   As Integer
    Rep = Dir("C:\Chemin\*.xls")
    While Rep <> ""
        n = n + 1
        Rep = Dir()
        Wend
    MsgBox "Nombre de Fichiers : " & n
    For i = 1 To n
        Range("A" & i).Value = i
        Workbooks.Open "C:\Chemin\" & i & " Nomfichier.xls"
        Next
End Sub

Boucle ouverture fichier VBA excel

7 réponses

Newsletters