Programmation vba
libasse76
Messages postés
7
Date d'inscription
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour les amis,
chaque jour je recois des fichiers excels .
j'avais creer une base de données access et maintenant je veux à partir de ma base accéder à ces fichiers excels via un bouton de commande
plus précisement mes fichiers excels sont sauvegarder dans un répertoire et je veux lorsque je click sur mon bouton de commande je puisse acceder à ce repertoire et afficher mon fichier choisi
puisque je ne suis pas callé en vba je cherche ce code vba qui me permet de résoudremon probleme
merci de me donner un coup de pousse c'est extrémement urgent
chaque jour je recois des fichiers excels .
j'avais creer une base de données access et maintenant je veux à partir de ma base accéder à ces fichiers excels via un bouton de commande
plus précisement mes fichiers excels sont sauvegarder dans un répertoire et je veux lorsque je click sur mon bouton de commande je puisse acceder à ce repertoire et afficher mon fichier choisi
puisque je ne suis pas callé en vba je cherche ce code vba qui me permet de résoudremon probleme
merci de me donner un coup de pousse c'est extrémement urgent
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Bonjour,
C'est du VBA Excell mais il est possible que ca va aussi sur AccessSub OuvreFichier() Dim nomfich As String ChDrive "g" 'la lettre du DD ChDir "g:\Répertoir\sousRépertoir" 'te place dans le répertoire où sont les fichiers à ouvrir 'Affiche la boîte de dialogue Ouvrir 'Pour fichiers Excell nomfich = Application.GetOpenFilename(FileFilter:="Fichier Excell(*.xls),*.txt" _ ' , Title:="Sélectionnez le fichier à ouvrir") 'Pour tout fichiers ' nomfich = Application.GetOpenFilename(FileFilter:="Tout Fichier (*.*),*.*" _ ' , Title:="Sélectionnez le fichier à ouvrir") If LCase(Right(nomfich, 3)) <> "xls" Then Stop 'Pas fichier excell Workbooks.Open (nomfich) End Sub
A+
