programmation vba Fermé

Question

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

lermite222 · Answer

Bonjour,
C'est du VBA Excell mais il est possible que ca va aussi sur Access
Sub 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+

Programmation vba

1 réponse

Discussions similaires