Code VBA ouverture fichier!!

Marsh Posté le 14-05-2007 à 09:21:44

Bonjour,
Au secours svp, je cherche le code d'une macro qui permet de parcourir un répertoire ( spécifié à l'aide d'une zone de saisie excel) pour ouvrir les fichiers du répertoire et appliquer une autre macro( tata par exemple) et fermer les fichiers.

J'en ai besoin dans le cadre d'un processus de consolidation d'un certains nombre de fichiers excel ( = 70 fichiers), chose qui est presque mission impossible manuellement.

Merci par avance pour votre aide.

Marsh Posté le 14-05-2007 à 09:21:44

Marsh Posté le 14-05-2007 à 09:33:49

Bonjour,
Quelque chose comme ça :

Code :

Sub test()
Application.GetOpenFilename
End Sub

ou comme ça ?

Code :

Sub test()
Application.Dialogs(xlDialogOpen).Show
End Sub

A+

Message édité par galopin01 le 14-05-2007 à 09:37:28

Marsh Posté le 14-05-2007 à 09:53:58

La différence entre les deux c'est que le premier n'ouvre pas réellement de fichier mais permet de récuperer le nom et chemin d'un fichier (ou le nom seul) :

Code :

Sub text()
ret = Application.GetOpenFilename
MsgBox ret 'ou MsgBox Dir(ret)
End Sub

tandis que Application.Dialogs(xlDialogOpen).Show ouvre directement le fichier.

A+

Message édité par galopin01 le 14-05-2007 à 09:56:27

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *