ouvrir un fichier comprenant une date

Re : ouvrir un fichier comprenant une date

Bonjour Chirs74250
Voici une première réflexion pour trouver la feuille la plus jeune (ayant le nom le plus grand) :

-récuperer le nom des feuilles de votre fichier (collection : sheets ; commande 'for each feuille_observee in sheets [...] next)
-mettre toute la collection des noms de feuille (feuille_observee.name) dans un tableau
-trier le tableau (on doit trouver dans ce forum de nombreuses manières de trier un tableau) de manière décroissante
-la première valeur sera la feuille la plus récente.

Est-ce que cela répond en partie à votre demande ?
Concernant la deuxième feuille à trouver, je n'ai pas compris le besoin, pouvez-vous le reformuler et éventuellement mettre un fichier joints pour la compréhension globale ?

Cordialement
Olivier

Re : ouvrir un fichier comprenant une date

Désolé je pense m'etre ma expliqué.

Je souhaite recuperer deux feuilles sur un fichier nommé avec une date et c'est ce fichier que je souhaite retrouver par code.

le fichier porte un nom specifique et s'update tous les jours en fonction de la date comme :
Host - 20100215.xls pour celui du jour

Pour les feuilles cela ne me pose pas de problèmes.

merci pour vos recherches et merci pour vos eventuelles reponses

Re : ouvrir un fichier comprenant une date

Re

Ahhhh, ok.
La recherche est à peu près la même, sauf que l'on va chercher toutes les noms de fichiers présent dans un dossier (si tel est le cas)
Méthode et commandes :

chemin = "chemin de mon répertoire"

Set fso = CreateObject("Scripting.filesystemobject")
Set mon_dossier = fso.getfolder(chemin)

For Each fichier_observe In mon_dossier.Files '(méthode)
'fichier_observe est un objet type fichier, qui peut donc être manipulé avec
'un Workbooks.Open (fichier_observe) par exemple, et le nom du fichier est simplement fichier_observe.name
[...]

Next

Voici donc une première solution

Tenez-moi au courant

O

Re : ouvrir un fichier comprenant une date

Odesta à dit:

Re

Ahhhh, ok.
La recherche est à peu près la même, sauf que l'on va chercher toutes les noms de fichiers présent dans un dossier (si tel est le cas)
Méthode et commandes :

chemin = "chemin de mon répertoire"

Set fso = CreateObject("Scripting.filesystemobject")
Set mon_dossier = fso.getfolder(chemin)

For Each fichier_observe In mon_dossier.Files '(méthode)
'fichier_observe est un objet type fichier, qui peut donc être manipulé avec
'un Workbooks.Open (fichier_observe) par exemple, et le nom du fichier est simplement fichier_observe.name
[...]

Next

Voici donc une première solution

Tenez-moi au courant

O

Cliquez pour agrandir...

Je voyais plus la technique de recherche a partir de la commande Now ou le fichier de la veille serait Now-1 mais je seche pour les lundi ou je dois faire -3

Re : ouvrir un fichier comprenant une date

J'ai reussis ce que je voulais vous en pensez quoi ?

Dim dateveille As Date
Dim Chemin As String
Dim Fichier As String
Dim ouverturefichier As String

dateveille = DateAdd("d", -1, Now()) permet de recuperer la date j-1 au format jj/mm/aaaa

Chemin = "\\chemin reseau\" chemin reseau caché pour confidentialité au cas ou

If Dir("\\chemin reseau\debut nom fichier" & Mid(dateveille, 7, 4) & Mid(dateveille, 4, 2) & Left(dateveille, 2) & ".xls", vbHidden) <> "" Then recuperation du format qu'il me faut pour la date
If Weekday(Date) = 2 Then 2 etant le lundi cela me permet de contrôler le nbre de jour pour recuperer le dernier fichier
Fichier = "debut nom fichier" & Mid(dateveille, 7, 4) & Mid(dateveille, 4, 2) & Left(dateveille, 2) - 2 & ".xls"
Else
Fichier = "debut nom fichier" & Mid(dateveille, 7, 4) & Mid(dateveille, 4, 2) & Left(dateveille, 2) & ".xls"
End If

ouverturefichier = Chemin & Fichier

Workbooks.Open Filename:=ouverturefichier
Else: MsgBox "fichier non present"
End If

Re : ouvrir un fichier comprenant une date

Bonjour
Ok, vous créez le nom d'un fichier et vous testez sa présence.
Je proposais un code qui lit tous les noms de fichiers, et qui vous permet ensuite de les comparer (pour trouver le dernier par exemple).

L'idée est différente mais le résultat devrait être le même.

Pour insister un peu, et pour la culture générale ^^ :
Dans ma proposition, vous pouvez récupérer des informations types windows comme la date de dernière modification, qui était la deuxième condition de votre demande. :



Toutefois, si votre code vous convient, c'est qu'il est bon !

Bien cordialement
Olivier