Macro VBa pour ouvrir des fichiers excel selon une date

Version imprimable

18/05/2018, 08h48
lovlov33

Macro VBa pour ouvrir des fichiers excel selon une date

Bonjour ,

Je voudrais ouvrir différents fichiers excel à partir d'une date reprise dans un classeur excel.
Je m'explique.
Lors d'une ouverture de session sur windows , j'ai mis dans le menu démarrer un classeur excel qui reprend dans la case B3 la formule =Maintenant().
Je voudrais à partir du moment ou ce classeur est ouvert , faire une macro automatique, qui par rapport à la date dans la case B3 m'ouvre 3 autres fichiers excel correspondant à cette date.
La macro pour l'ouverture des fichiers est faite, mais il me manque celle pour l'ouverture à partir du premier fichier.
Bien entendu une fois les 3 autres fichiers ouvert, je veux fermer le fichier tampon.

Merci de votre aide......
18/05/2018, 10h29
Igloobel

Bonjour,

Ils sont correspondant de quelle manière ?

-date dans le nom du fichier
-date de création
-Tableau de correspondance
-...
18/05/2018, 10h46
lovlov33

En fait mes dossiers sont repris mois par mois, avec dedans 3 fichiers excel.ceux sont ces 3 fichiers que je veux ouvrir suivant la date.
En résumé , j'ai dans mon fichier tampon ( que j'ouvre automatiquement en début de session) dans la case B3 (=Maintenant() , transformé en date Mois/Année) c'est à dire que ma case reprend la date du jour et met ( ex MAI 2018) . A partir de là je voudrais ouvrir automatiquement mes 3 fichiers qui sont dans le dossier MAI 2018. Les raccourcis pour aller chercher ces dossiers je les mettrais dans la formule.
Petite précision , mes dossiers sont marqués "5.MAI 2018" est-ce un problème?

non c'est pas un problème

voici un programme qui permet de listerles fichier d'un dossier

il te reste à l'adapter

et ouvir tes classeurs pour faire tes traitements

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub test_dir()
	' Le dossier à analyser
    Repons = "D:\TEMPO\*.*"
 
	' Trouver tous les fichiers
    Fichier = Dir(Repons)
    Tot_Fic = 0
    Mess = ""
    Do While Fichier <> ""
		' Afficher le nom du fichier 1 par 1 dans la Message pour avoir la liste
        Mess = Mess & Repons & Fichier & vbCrLf
 
		' Fichier suivant
        Fichier = Dir
        Tot_Fic = Tot_Fic + 1
    Loop
    Mess = Mess & vbCrLf & "Nombre de fichier = " & Tot_Fic
    MsgBox Mess
 
End Sub