Excel 2007 VBA: Ouvrir un fichier (bis)

Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - Modifié par Eaheru le 26/08/2010 à 14:26
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 29 août 2010 à 21:01
Bonjour,

J'ai testé l'ouverture de fichier tel que présenté dans ma demande précédente :

"Tout les jours je dois ouvrir un fichier qui s'appelle : toto_'date du jour-1'.xls
afin de remonter les informations d'une colonne dans le nouveau fichier qui s'appelle : toto_'date du jour'

La notion de date du jour -1 et date du jour changeant chaque jour ... :) je cherche le moyen de coder cette ouverture.

Je sais comment gérer la partie "recherche/copie", il ne me reste que la gestion de l'ouverture de ce fichier à nom variable
Pour info le nom est généré avec la commande :
ActiveWorkbook.SaveCopyAs Chemin & "toto_" & D & ".xls"

quelqu'un saurait il comment s'y prendre svp ?"


lorsque j'ai tenté d'écrire la macro suivante (basée sur l'astuce de Lermite22 ):

Dim D1, D2 As Date
D1 = DateValue(Date) - 1
D2 = Replace(D1, "/", "-")
'Chemin = "C:\tmp" & "\"
'Workbooks.Open Filename:=Chemin & "toto_" & D & ".xls"


La macro me renvoie le nom du fichier avec la date au format toto_25/08/10.xls ... hors la macro qui créé le fichier sauvegarde le nom au format : toto_25-08-10.xls

Une fois ceci résolu, j'ai aussi le problème des Lundi, en effet le lundi la macro ne doit pas chercher le fichier J-1 mais J-3
La .. je sèche :(
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 août 2010 à 21:01
Bonjour,

Dim D1, DD, D2 As Date
'Weekday donne le numero du jour de la semaine (voir aide vba excel)
DD = Weekday(Date, 2)

If DD = 1 Then
D1 = DateValue(Date) - 3
Else
D1 = DateValue(Date) - 1
End If
D2 = Replace(D1, "/", "-")


Bonne continuation.
0