prise en compte d'un changement journalier !?

[Novice avance !?]

bonjour le forum,
j'enregistre une application à l'ouverture et à la fermeture de celle-ci pour qu'elle se nomme "Application_(la date du jour)"

dasn cette application j'ai une macro qui après avoir ouvert un autre classeur revient sur la fenêtre de mon application mais le nom de mon application change tous ls jours donc... je voulias que ma macro prenne en compte ce changement journalier d'où mon code ci-dessous !?

mais ça bloque sur W !?

_____________________________________
Dim M, N, O, P As String
Dim v As Variant
Dim W As ?????

v = Format(Date, "dd mm yyyy")
W = "Application_" & v

Workbooks.Open Filename:= _
"\\xxxx\xxxxx.xls"

Windows(W).Activate
Sheets("xxxxx").Range("K22").Select
_____________________________________

quel serait le bon code !?

merci par avance

 

[Creepy]

Re : prise en compte d'un changement journalier !?

Bonjour le Forum, Novice avance,

Ci-dessous un exemple :

Dim Ws_File As Workbook, Ws_This As Workbook
Set Ws_This = ThisWorkbook
Set Ws_File = Workbooks.Open(Filename:="c:\dede.xls")

Maintenant tu peux jouer avec tes fichiers en utilisant les variables Ws_File & Ws_this. PAr exemple Ws_this.activate ou ws_file.activate. A la fin de ton code pense à libérer la mémoire en mettant :

Set Ws_This = Nothing
Set Ws_File = Nothing

A+

Creepy