Programmation vba
libasse76
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Programmation vba
- Application de programmation - Guide
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Bonjour,
C'est du VBA Excell mais il est possible que ca va aussi sur Access
A+
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+
