VBA Ouvrir des fichiers avec dates spécifiées

[Laurentl]

Bonjour à tous!

Et merci d'avance pour vos réponses!

Je souhaite créer une macro qui ouvre deux fichiers dont le nom contient une partie fixe et une partie variable(date).
Dans le fichier joint qui n'est pas très explicite on voit les cases date1 et date2.

Pour l'instant ma macro fait tous les calculs mais il faut que je change le nom du fichier initial à chaque fois.
Je souhaite donc renseigner par exemple:

date1: 01/02/14
date2:02/02/14

puis la macro ouvre le fichier janvier010214 et le fichier janvier020214.

Si vous avez des idées, elles sont bienvenues!

Merci!

 

[Guest]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Bonjour,

Pour l'instant ma macro fait tous les calculs mais il faut que je change le nom du fichier initial à chaque fois.

Pas de macro dans le fichier joint!

A+

 

[Laurentl]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Hello!

Merci de votre réponse!
J'ai changé la pièce jointe!

 

[Guest]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Re,

Pour l'instant ma macro fait tous les calculs mais il faut que je change le nom du fichier initial à chaque fois.

Toujours pas de macro dans le fichier ni explications précises. Je passe la main

A+

 

[Laurentl]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Aïe, désolé je n'avais pas enegistré en excel prenant en charge les macros...

 

[Guest]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Bonjour,

Manque date1 dans ton fichier!!!! faire attention à ce que les fichiers exemple soient cohérents avec la demande!

Où date1 est en C1 de Feuil1 et date2 en C2 de Feuil1

Sub Ouvrir()

    Const Chemin As String = "Z:\Team\Du jour\Fichiers de comparaison Excel\"
    Dim dte As Variant
 ChDir Chemin 'ligne facultative

'premier fichier
    dte = Sheets("Feuil1").Range("C1")
    If IsDate(dte) Then Workbooks.Open Filename:=Chemin & Format(dte, "mmmmddmmyyyy") & ".xlsm"
   
'Deuxième fichier 
   dte = Sheets("Feuil1").Range("C2")
    If IsDate(dte) Then Workbooks.Open Filename:=Chemin & Format(dte, "mmmmddmmyyyy") & ".xlsm"
End Sub

A+

 

[gilbert_RGI]

Re : VBA Ouvrir des fichiers avec dates spécifiées

Bonjour

ou comme ceci