Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Changer date automatiquement

Changer date automatiquement

2 réponses
Avatar
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 choses...Mais en vain....
Je me retourne donc vers vous, si vous avez un idée.

D'avance merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JP25
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" a écrit dans le message de news:
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



Avatar
MF
JE TE REMERCIE...JATTAQUE DEMAIN MATIN
BONSOIR
MF




"JP25" a écrit dans le message de news:
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" a écrit dans le message de news:
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