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
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
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+
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
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
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![]()
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.
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
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.
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![]()
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.
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
Juste une question, quel version de VB utilises tu ? Utilises tu le VB de Excel ou VB6 Edition professionnelle ?
VB6
donc jai tout repris du debut maintenant j'ai un sembland de resultat
Excel s'ouvre avec une page
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 Subpar contre je suis loin du resultat.....
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 ?
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.
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
ce que je voulais c'est garder le fichier excel dans "une variable" pour le reutilisé plus loin dans le code
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
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
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) ...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager