Changer date automatiquement

Le
MF
Bonjour

Dans une ligne de commande j'ai a peu près cecei

:http://www.maker.net/norso/MARDI/MARR1PAR1303.xls


Cette ligne me permet d'aller chercher des données remises à jour toutes les
jours
Je souhaite changer la date du indiquée ici par 1303.xls en fonction de la
date du jour ou du lendemai;.

J'éssayé beaucoup de chosesMais en vain.
Je me retourne donc vers vous, si vous avez un idée.

D'avance merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP25
Le #4564011
Bonjour,
Tu peux essayer ceci

Sub Test()
If Month(today) < 10 And Day(Month(Date)) < 10 Then
Dat = "0" & Day(Date) & "0" & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) < 10 And Day(Month(Date)) >= 10 Then
Dat = "0" & Day(Date) & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) > 10 And Day(Month(Date)) < 10 Then
Dat = Day(Date) & "0" & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) > 10 And Day(Month(Date)) > 10 Then
Dat = Day(Date) & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

Workbooks.Open Filename:=fich
End Sub

JP25

"MF" 46618ae3$0$25800$
Bonjour

Dans une ligne de commande j'ai a peu près cecei

:http://www.maker.net/norso/MARDI/MARR1PAR1303.xls


Cette ligne me permet d'aller chercher des données remises à jour toutes
les jours
Je souhaite changer la date du indiquée ici par 1303.xls en fonction de la
date du jour ou du lendemai;.

J'éssayé beaucoup de choses...Mais en vain....
Je me retourne donc vers vous, si vous avez un idée.

D'avance merci



MF
Le #4563851
JE TE REMERCIE...JATTAQUE DEMAIN MATIN
BONSOIR
MF




"JP25" Omm$
Bonjour,
Tu peux essayer ceci

Sub Test()
If Month(today) < 10 And Day(Month(Date)) < 10 Then
Dat = "0" & Day(Date) & "0" & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) < 10 And Day(Month(Date)) >= 10 Then
Dat = "0" & Day(Date) & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) > 10 And Day(Month(Date)) < 10 Then
Dat = Day(Date) & "0" & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

If Month(today) > 10 And Day(Month(Date)) > 10 Then
Dat = Day(Date) & Day(Month(Date)) & ".xls"
fich = "http://www.maker.net/norso/MARDI/MARR1PAR" & Dat
End If

Workbooks.Open Filename:=fich
End Sub

JP25

"MF" 46618ae3$0$25800$
Bonjour

Dans une ligne de commande j'ai a peu près cecei

:http://www.maker.net/norso/MARDI/MARR1PAR1303.xls


Cette ligne me permet d'aller chercher des données remises à jour toutes
les jours
Je souhaite changer la date du indiquée ici par 1303.xls en fonction de
la date du jour ou du lendemai;.

J'éssayé beaucoup de choses...Mais en vain....
Je me retourne donc vers vous, si vous avez un idée.

D'avance merci







Publicité
Poster une réponse
Anonyme