Ouvrir tous les fichiers d’un répertoire

Bonsoir,

Débutant dans le monde VBA, je veux automatiser mon travail : mettre à jour des bases de données...

Etan vraiment novice dans ce domaine, mes connaisances se basent sur des forums, mais sans trop de succès (je bloque souvent),

voici le point 1de mon automatisation :

Ouvrir tous les fichiers d’un répertoire

Exemple :

Path : « c:\x »

et je veux ouvrir tous les fichiers (.xlsx) de ce répertoire via VBA.

Bonjour,

Voici un essai :

sub Sonder()
Repertoire = "C:\x"
sFilename = Dir(Repertoire & "\*.xlsx")
Do While sFilename <> ""
    workbooks.open Repertoire & "\" & sFilename
    sFilename = Dir
Loop
End sub

Cdlt,

Bonjour,

Merci bcp

Cela fonctionne

Bonjour,

Impeccable ! Merci du retour et bonne continuation.