macro pour ouvrir plusieurs fichiers

[Droussel]

bonjour

j'ai cherché sur le forum une macro pour ouvrir tous les fichiers d'un repertoire
a priori j'ai trouve mais le code bloque sur la premiere ligne

"set ficcherche...'

je joins mon fichier en exemple

quelq"'un pourrait il m'aider
merci d'avance

Denis

 

[Papou-net]

Re : macro pour ouvrir plusieurs fichiers

Bonjour Droussel,

FileSearch n'est plus supporté depuis la version 2007.

Une recherche sur le Forum t'aurait conduit au fil suivant qui traite de la question et devrait t'apporter une réponse satisfaisante :

https://www.excel-downloads.com/threads/recherche-de-fichiers-vba.147357/

Espérant avoir aidé.

Cordialement.

 

[Droussel]

Re : macro pour ouvrir plusieurs fichiers

merci bien
donc en fait filesearch n'existe plus mais en fait cela n'aurait pas résolu mon problème

je connais le répertoire mais ce que je cherche c'est à ouvir tous les fichiers d'un repertoire
en boucle
c'est à dire :
ouvrir premier fichier
faire mon traitement
fermer
ouvrir second fichier
etc...

merci de votre aide

 

[Papou-net]

Re : macro pour ouvrir plusieurs fichiers

RE

Je n'ai pas trop le temps d'approfondir le sujet mais, si tu ne l'as déjà fait, je te conseille de suivre la procédure dictée dans le lien suivant :

Un complément FileSearch pour Excel 2007

pour installer la macro complémentaire Classefilesearch.

Il te suffira ensuite d'intégrer ta procédure de traitement au sein de la boucle

For i = 1 To .FoundFilesCount

dans la macro Test().

Cordialement.

 

[Droussel]

Re : macro pour ouvrir plusieurs fichiers

bonjour
merci beaucoup
ça fonctionne parfaitement en 2010
j'ai fait un essai avec 100 fichiers et c'est nickel
Denis

 

[MJ13]

Re : macro pour ouvrir plusieurs fichiers

Bonjour Droussel, Papou

On peut aussi faire un code de ce type:

Sub Lister_Noms_Et_Ouvrir_Xlsm()
Dim chemin As String
  Dim nomFichier As String
   
  chemin = ThisWorkbook.Path & Application.PathSeparator
  nomFichier = Dir(chemin)
  i = 1
  Do While Len(nomFichier) > 0
    ActiveSheet.Range("A" & i + 1).Value = nomFichier
    nomFichier = Dir
    i = i + 1
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:=Range("A" & i).Value
    If Right(Range("A" & i).Value, 4) = "xlsm" Then Workbooks.Open (ThisWorkbook.Path & "\" & Range("A" & i).Value)
      Loop
End Sub