Discussion :

[Manu-jtr]

Bonjour,

Je cherche à faire un script vbs pour ouvrir et enregistrer un fichier Excel quotidiennement dont le nom change chaque jour car il intègre la date.
Nom du fichier : test_17_03_2019.xls puis test_18_03_2019.xls etc...

Je code le façon suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set Wk = oXL.workbooks.open("C:"test" & Format(Date, "dd_mm_yyyy") & ".xls")

Cela bloque sur le nom du fichier

Quelqu'un aurait-il le bon codage pour la partie JJ_MM_AAA ?.

Je vous en remercie par avance

[ProgElecT]

Salut

Tu peux t'inspirer de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function RetourNameFichier(LaDate)
dim j,m
j = day(LaDate)
if j<10 then j = "0" & j
m = month(LaDate)
if m<10 then m = "0" & m
RetourNameFichier = "test_" & j & "_" & m & "_" & year(LaDate) & ".xls"
end function
 
 
'appel de la fonction
nomfichier = RetourNameFichier(now)
msgbox nomfichier

[Manu-jtr]

Bonjour ProgElecT,

Merci pour ce retour qui a un peu amélioré les choses car maintenant, je vois l'année s'afficher si je met Date à la place de Ladate.
en revanche, je n'ai pas le jour ni le mois.

Windows me dit :
Désolé, nous ne trouvons pas test___2019.xls

J'avais codé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function RetourNameFichier(Date)
dim j,m
d = day(Date)
if j<10 then j = "0" & j
m = month(Date)
if m<10 then m = "0" & m
 
end function
 
set Wk = oXL.workbooks.open("C:\test_" & d & "_" & m & "_" & year(Date) & ".xls")

Merci d'avance

[Manu-jtr]

Juste un point, j'ai mis j partout et non d comme sur mon post précédent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function RetourNameFichier(Date)
dim j,m
j = day(Date)
if j<10 then j = "0" & j
m = month(Date)
if m<10 then m = "0" & m
 
end function
 
set Wk = oXL.workbooks.open("test_" & j & "_" & m & "_" & year(Date) & ".xls")

[ProgElecT]

Salut

N'oublies pas les balises [CODE] ICI TON CODE [/CODE] quand tu postes du code.

Revenons à nos moutons


Pour éviter toutes confusions, toutes les variables utilisées doivent être nommées autrement que les mots réservés du langage, on ne nomme pas une variable date mais par exemple madate.
function RetourNameFichier(date)
function RetourNameFichier(LaDate)

Pour que la fonction renvoie une information, il faut donner cette information au nom de la fonctionRetourNameFichier = "test_" & j & "_" & m & "_" & year(LaDate) & ".xls" juste avant la fin de celle-ci

A chaque fois que tu veux construire un nom de fichier tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'appel de la fonction
nomfichier = RetourNameFichier(now)

nomfichier sera composé de test_(n° jour du mois)_(n°du mois)_(Année).xls, pourquoi, car now est égal à la date et heure du moment, soit test_18_03_2019.xls

Si tu appels la fonction de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomfichier = RetourNameFichier(#13/04/1956#)

nomfichier sera égal à test_13_04_1956.xls

[Manu-jtr]

Rebonjour,

Je suis désolé, mais je ne comprends pas toutes tes remarques vu mon niveau en programmation (c'est la première fois que j'utilise le Blog)

Pour être très simple, ci-joint le codage que j'ai repris avec tes conseils mais qui ne marche pas, sûrement car je les applique mal...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Dim oXL
Set oXL = WScript.CreateObject("EXCEL.application")
oXL.Visible = True
 
function RetourNameFichier(LaDate)
dim j,m
j = day(LaDate)
if j<10 then j = "0" & j
m = month(LaDate)
if m<10 then m = "0" & m
RetourNameFichier = "test_" & j & "_" & m & "_" & year(LaDate) & ".xls"
end function
 
'appel de la fonction
nomfichier = RetourNameFichier(now)
 
set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\test_" & j & "_" & m & "_" & year(LaDate) & ".xls")
 
Wk.save
wk.close
 
oxl.quit
 
Set oXL = Nothing

Cela ne marche pas, car windows ne trouve pas le document (message idem précédent post).

Sais-tu où mon codage est défaillant ?

Merci d'avance pour ton aide avisée