ouvrir un fichier dont le nom change chaque jour avec insertion date

Version imprimable

17/03/2019, 11h04
Manu-jtr

ouvrir un fichier dont le nom change chaque jour avec insertion date

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:

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

Salut

Tu peux t'inspirer de

Code:

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

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:

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

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

Code:

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")

18/03/2019, 17h49
ProgElecT
Salut

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

Revenons à nos moutons :mouarf:

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):nono:
function RetourNameFichier(LaDate):ccool:

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:

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:

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

nomfichier sera égal à test_13_04_1956.xls

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:

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

Re

Remplaces

Code:

Set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\test_" & j & "_" & m & "_" & year(LaDate) & ".xls")

par

Code:

Set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\" & RetourNameFichier(now))
Code:

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 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) Dim oXL Set oXL = WScript.CreateObject("EXCEL.application") 'oXL.Visible = Trues 'Set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\test_" & j & "_" & m & "_" & year(LaDate) & ".xls") Set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\" & RetourNameFichier(now)) Wk.save wk.close oxl.quit Set oXL = Nothing
Je comprend pas trop pourquoi tu ouvres le fichier pour le refermer sans le modifier :calim2: de plus,
il serait peut être bon de vérifier que le fichier "C:\Users\manu\Desktop\" & RetourNameFichier(now) existe avant que de vouloir l'ouvrir

18/03/2019, 20h48
l_autodidacte

Remplace la ligne 19 par Set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\" & nomfichier).

EDIT : Je vois que ProgElecT (salut) m'a devancé.
18/03/2019, 22h17
Manu-jtr

Bonsoir,

Un grand merci à tous les 2 pour votre aide. Avec le script de ProgElecT, cela marche parfaitement.

Pour répondre à la question de ProgElecT, le fichier que j'ouvre/enregistre/ferme est généré automatiquement toutes les nuits par un logiciel métier en mode SAS auquel je n'ai pas accès (RGPD oblige) et je l'intègre dans mon serveur pour que ses données soient compilées avec ses petits frères précédents via Clikview qui est notre logiciel de business intelligence.
Le seul hic, c'est que le logiciel métier nous fourni un excel dans un format que clikview n'arrive pas à ouvrir. En revanche, Excel arrive très bien et après enregistrement, le format devient lisible par Clikview.
D'où mon script que je vais commander par windows (tache programmée) afin que notre dashboard soit automatiquement à jour des remontées nocturnes du logiciel métier.
C'est un peu dédé la bricole, mais grâce à vous, j'ai toutes les pièce du puzzle.

Bonne soirée