Salut    
 
Je voudrais savoir comment je peux ouvrir tous les fichiers d'une extension donnée situés dans un répertoire donné ( et les sous-rep également ) avec une macro Word, Excel peu importe.
Par la suite je voudrais faire un traitement sur ces fichiers, mais c'est au niveau de la recherche que je peine.
Je suis newbie en macro, et si en plus/à la place d'une réponse vous avez un bon tuto, je suis preneur !
Merci  

Salut Chandy,
 
regarde ce post, il te donne les fonctions sous excel faire apparaitre le nom de tous tes fichiers ici "*.xls" présents dans un dans un répertoire sélectionné par l'utilisateur, il peut fonctionner avec les sous répertoires si tu places un ".SearchSubFolders = True" dans le filesearch.
 
Je ne sais pas si les macros peuvent être identiques entre excel et word mais ça te donnera une base pour faire ta propre macro.
 
Ensuite il te restera à les ouvrir pour les retravailler mais pour ça il faudrait au moins leur extention et le programme pour l'ouverture.

Salut,
 
J'ai un problème concernant l'ouverture de plusieurs fichiers dans un répertoire. Je voudrais ouvrir tous les fichiers d'un répertoire mais ce répertoire doit pouvoir être choisi par l'utilisateur de mon programme (avec une InputBox par exemple). Je voudrais savoir comment rendre possible le choix du nom du répertoire et l'ouverture de tous les fichiers .xls qu'il contient.
Pour l'ouverture de mes fichiers contenus dans le répertoire choisi, j'ai écrit la macro suivante :  
 
Dim File_Is As String
    File_Is = Dir("M:\Deutschland\*.XLS" )
    Do Until File_Is = ""
        Workbooks.OpenText FileName:="M:\Deutschland\" & File_Is _
        , Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False _
        , Comma:=False, Space:=True, Other:=True, OtherChar:="*", FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 9), Array(5, 9), Array(6, 9), Array(7 _
        , 9), Array(8, 9), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 9), Array _
        (14, 9), Array(15, 9), Array(16, 9), Array(17, 2), Array(18, 2), Array(19, 9), Array(20, 9), _
        Array(21, 9))
        File_Is = Dir
    Loop
 
Le nom du repertoire mis en rouge doit être le nom choisi par l'utilisateur.
J'espère que mon problème est exprimé clairement. Si vous avez une solution, je suis preneuse.
Merci.

Salut tipimousse,
Voilà une fonction qui te permet de faire sélectioner un dossier à un utilisateur, la fonction retourne 0 en cas d'annulation et le chemin complet du dossier dans le cas contraire :

 
si tu as besoin de plus d'information hésites pas
@+
 
EDIT : Correction de la fonction (enlever un des 2 allowmultiselect)

Bonjour,
Cette fonction ne fonctionne pas sous Word ou Excel 97 (FileDialog donne une erreur = Type défini par l'utilisateur non défini).
Quels sont les références à ajouter au projet pour que cela fonctionne ?
Merci
 
Epéna

Salut,
 
J'allais poser exactement la même question.
J'aimerais savoir aussi comment je peux récupérer le chemin du répertoire choisir par l'utilisateur pour l'utiliser ensuite dans mon programme.
Merci d'avance
 
Tipimousse27

salut epena cett fonction je ne sais pas si elle va être accessible avec word ou excel 97 ou 988, j'utilise  excel 2002, je sais qu'elle marche sous 2003, (surement sur 2000 mais j'ai pas eu confirmation).
Les références que j'ai d'ouvertes sont :
Visual Basic For Application
Microsoft excel 10,0 Oject library
OLE Automation
Microsoft Office 10,0 Object library
 
Les versions excel étant rarement données ... difficile de faire mieux.
 

Pour lancer une fonction comme ceele-ci sans argment :
Tu place la fonction dans ton module et dans la macro ou tu as besoin de cette fonction tu marques par exemple :
MonDossier = ChoixDossier
 
@+
 

Merci Watashi pour ta réponse. Donc, cela ne fonctionnera pas.  
 
Epéna

Merci Watashi!
Comme je travaille aussi avec Excel 97, ca ne marchera pas pour moi non plus.
Je vais essayer de fonctionner d une maniere.
Encore merci!

Ben vi ! Ne pas marquer sa version d'excel ... c'est risquer d'obtenir des codes incompatibles surtout en 97
 
bon courage