Discussion :

[volubiliss]

Bonjour

J’ai un petit problème de construction logique : je fais un code qui dois me permettre d’ouvrir un workbook
Dont le nom change en fonction de la date à laquelle on le génère (toujours la date de fin de mois en cours exemple : si je génère le fichier aujourd’hui le nom sera position_extract_20110331)
Le but est de pouvoir activer le fichier quelque soit le jour de l’année ou je le lance Etant donné que la date indiqué est toujours celle de la fin du mois au moment du lancement, j’ai pensé faire une boucle sur 12 mois
En code « parlé » ca donnerai

Code :

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

1
2
3
4
5
6
7
IF nom du workbook = position 30 janvier THEN 
Ouvrir
ELSE IF nom du workbook = position 28 fevrier THEN
Ouvrir
ELSE IF nom du  workbook = position 31 mars THEN 
Ouvrir
….

je n’arrive pas à structurer la boucle, je dois faire des erreurs sur la relation objet collection je crois

j’identifie le workbook avec le code suivant, mais après je bloque….

Code :

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

1
2
Application.Workbooks("position_extract_" & (Format((DateSerial(Year(Now), 1, 31)), _
"yyyymmdd"))).Activate

Merci d’avance pour votre aide !

[Philippe Tulliez]

Bonjour,
Je n'ai pas très bien compris ce que tu veux exactement mais voici le code d'une boucle qui te permet de connaître le dernier jour de chaque mois de l'année en cours.

Code :

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

1
2
3
4
5
 
 Dim m As Byte
 For m = 1 To 12
  Debug.Print Day(DateSerial(Year(Date), m + 1, 0))
 Next

[volubiliss]

Merci pour ce retour en fait pour etre un peu plus clair : si je génère le fichier aujourd’hui ( c’est un workbook parmi
d’autres workbooks déjà ouvert) j’aurai le nom suivant position_extract_20110331
le but est de pouvoir l’ouvrir (parmi d’autres workbooks déjà ouvert ) j’avais l’idée de parcourir une boucle relatant 12 noms possible ( 1 par mois, sur la base du nom concaténé ci-dessus dans mon premier message)
en disant si un nom de workbook dans application est le suivant (janvier) alors activer le fichier sinon si un nom de workbook dans application est le suivant (fevrier) alors activer le fichier…et ainsi de suite jusqu'à trouver le nom
J’espère que j’ai été un peu plus clair

Merci