ouvrir fichier le plus recent

**yoran56** · 08/07/2009, 15h31

Bonjour, je débute dans VB 6,
ma question est
Comment fait-on pour ouvrir le fichier excel le plus recent dans un repertoire donné à l'aide de Vb6?

Ce serait sympa de me donner un coup de main

Merci

**DeaD78** · 08/07/2009, 15h50

Salut,

Ici, c'est le forum VBA : je suis sûr que tu aurais plus de succès dans le forum VB6

Sinon regarde la discussion jsute en dessous de la tienne (pour le moment) qui a presque le même titre ! http://www.developpez.net/forums/d77...ichier-recent/ Ca, c'est en VBA.

A+

**yoran56** · 08/07/2009, 15h57

Bonjour, etant debutant en VB6
Je souhaitais créer un programme qui ouvre automatiquement le fichier le plus recent d'un dossier donné

ce serait sympa de m'aider pour mon code

Merci

**OhMonBato** · 08/07/2009, 16h26

La FAQ répond à la plupart de tes besoins :

Pour obtenir le contennu d'un répertoire :
http://vb.developpez.com/faq/?page=Fichiers#contenu_rep

Pour connaitre la date de dernière modification d'un fichier : http://vb.developpez.com/faq/?page=F...#dates_fichier

Pour utiliser Excel avec VB6 :
http://vb.developpez.com/faq/?page=excel#utilExcel

**yoran56** · 08/07/2009, 17h00

je rappele que je suis un debutant et que je n'ai aucune idée malgrés la FAQ proposée comment faire le code

**OhMonBato** · 08/07/2009, 17h36

Je rappelle alors qu'on a tous débuté un jour, qu'on peut bien évidemment rencontrer des difficultés qui nécessitent une aide extérieure (et ce forum est là pour ça) mais qu'en revanche il faut quand même au préalable essayer un peu par soi même.
Si tu es vraiment débutant (et ce n'est pas un reproche), peut être commences tu par quelque chose de trop compliqué pour un premier essai en VB6, bien que la FAQ soit assez claire sur les points dont tu as besoin. Mais en aucun cas ce forum n'est fait pour "pondre" du code à ta place.

**yoran56** · 09/07/2009, 08h33

DOnc je répond que ça fait depuis lundi matin 8h que mon stage a commencé que je n'ai pas avancé d'un centimètre a cahque fois que je compile un programme ya une fenetre grise qui s'ouvre sans aucun résultat. Je demande a personne de faire le code ama place je sais très bien que si je veux apprendre c'est par moi même mais la ca me saoule je n'avance a rien

**DarkVader** · 09/07/2009, 08h51

Achète un livre pour débutant,
charge un code source et essaie de comprendre son fonctionnement,
enregistre une macro Excel et analyse son contenu
etc.
Il y a plein de méthode pour commencer et apprendre les rudiments -
la moins efficace est surement de vouloir le faire au travers d'un forum.

**yoran56** · 09/07/2009, 09h16

ma derniere demande: serait-il possible que quelqu'un copie colle un programme qui s'execute en tache de fond et qui est tres simple à comprendre

**OhMonBato** · 09/07/2009, 10h31

Montre nous plutot ton code en nous expliquant où ça coince, si on peut t'aider on le fera mais il faut quand même une base de départ.

**yoran56** · 09/07/2009, 10h48

chaque jour je recois un fichier excel dans un repertoire, je voudrai que le programme detecte ce nouveau fichier et le donne a manger a une appli mdb
Donc mon idée etait de verifier tous les 24h la presence d'un fichier mais il y a deja pas mal de fichier dans ce repertoire donc je suis bloqué.de plus mon code m'annonce l'erreur 424....

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
 
Private Sub Command1_Click()
 
 
Do
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.FileName = code & ".xls"
.LookIn = "C:\RECEPTIONS\Leh"
.Execute
 
If .foundfiles.Count = 0 Then
newhour = Hour(Now())
newminute = Minute(Now())
newhour = Hour(Now()) + 24
WaitTime = TimeSerial(newhour, newminute, newsecond)
Application.Wait Time
 
ElseIf .foundfiles.Count > 0 Then
Workbooks.Open (.foundfiles(1))
End If
End With
Loop
End Sub

**OhMonBato** · 09/07/2009, 11h12

Juste une question, quel version de VB utilises tu ? Utilises tu le VB de Excel ou VB6 Edition professionnelle ?

**yoran56** · 09/07/2009, 11h15

VB6

**yoran56** · 09/07/2009, 11h19

donc jai tout repris du debut maintenant j'ai un sembland de resultat

Code :

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

1
2
3
4
 
Private Sub Command1_Click()
Shell ("C:\Program Files\Microsoft Office\OFFICE\Excel.exe C:\RECEPTIONS\070709.xls")
End Sub

Excel s'ouvre avec une page

par contre je suis loin du resultat.....

**yoran56** · 09/07/2009, 14h51

j'ai une derniere question question qui j'espere sera plus fondé pour vous :

Comment ecrire une fonction FileExists si on ne connait pas le nom du fichier sur lequel on veut l'appliquer ?

**ucfoutu** · 09/07/2009, 15h42

Envoyé par yoran56

j'ai une derniere question question qui j'espere sera plus fondé pour vous :

Comment ecrire une fonction FileExists si on ne connait pas le nom du fichier sur lequel on veut l'appliquer ?

Cà, alors ...
Tenté de te répondre, :
de la même manière que tu écrirais une fonction QuelEstLePrix si tu ne connais pas l'objet dont tu veux déterminer le prix !
Je veux croire que tu as mal posé ta question (j'espère !) ...

**OhMonBato** · 09/07/2009, 16h17

Là encore, la FAQ répond à cette question (il suffit d'adapter un tout petit peu le code pour mettre le nom de fichier dans une variable) :

http://vb.developpez.com/faq/?page=F...fichier_existe

Merci de prendre le temps de faire des recherches.

**yoran56** · 09/07/2009, 16h28

j'essaye d'être plus clair :

SI il y un fichier excel dans le repertoire voulu je l'ouvre sinon j'attend de le recevoir

Malgrés la FAQ, qui est pourtant pertinente je n'y arrive pas

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
If Dir("c:\RECEPTIONS\Leh", vbHidden) <> "" Then
    'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
 Shell ("C:\Program Files\Microsoft Office\OFFICE\Excel.exe C:\RECEPTIONS\Leh")
 End If

ce que je voulais c'est garder le fichier excel dans "une variable" pour le reutilisé plus loin dans le code

**OhMonBato** · 09/07/2009, 17h21

Il suffit alors de stocker le nom du fichier dans une variable :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim NomFichier as string
NomFichier = "c:\RECEPTIONS\Leh.xls"
 
Private Sub Command1_Click()
If Dir(NomFichier , vbHidden) <> "" Then
    'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
Shell ("C:\Program Files\Microsoft Office\OFFICE\Excel.exe " & NomFichier)
End If

**ucfoutu** · 10/07/2009, 08h19

Bonjour,

Si j'ai bien compris, yoran56 veut ouvrir un fichier dont il ne connait pas le nom si le répertoire dont il s'agit contient un fichier d'extension .xls, quel que soit le nom de ce fichier.

Une lecture attentive de la fonction Dir dans son aide en ligne lui apporte sa solution (cette fonction admet en effet les caractères génériques)....

Maintenant :
- l'utilisation simple de cette fonction lui permettra de déterminer le nom du premier fichier .xls trouvé dans le répertoire. A moins (après traitement) de le supprimer ou de le déplacer, il sera à nouveau le fichier trouvé la prochaine fois ... Et même en le supprimant, rien ne garantira jamais qu'un utilisateur quelconque ne s'amuse un jour à se servir de ce répertoire pour y enregistrer un fichier xls autre que désiré ....
S'il veut être certain de ne pas se faire de croche-pieds, il lui faudra donc doubler de précautions par l'utilisation d'autres méthodes, parmi lesquelles je "vidage" systématique de tous les fichiers xls du répertoire concerné avant tout lancement d'une appli de réception éventuelle

- Je ne comprends pas pourquoi le nom tant gourmandé de ce fichier n'est pas extrait au moment même de la réception et simplement placé dans un fichier texte qu'il suffirait ensuite d'ouvrir et de lire lors de l'appli du traitement d'exploitation (il éviterait ainsi de nombreux aléas) ...

ouvrir fichier le plus recent

VB 6 et antérieur

Discussions similaires

Partager

Partager