VBA Ouvrir des fichiers avec dates spécifiées

G

Guest

Guest

• 4 Février 2014

• #2

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.

Cliquez pour agrandir...

Pas de macro dans le fichier joint!

A+

 

Vote positif 0 Vote négatif

L

Laurentl

Guest

• 4 Février 2014

• #3

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

Hello!

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 4 Février 2014

• #4

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.

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

L

Laurentl

Guest

• 4 Février 2014

• #5

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...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 4 Février 2014

• #6

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

Code:

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+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Février 2014

• #7

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

Bonjour

ou comme ceci

 

Pièces jointes

• testencours_v1.xlsm

  22.8 KB · Affichages: 49

Vote positif 0 Vote négatif