Programmation vba
Fermé
libasse76
Messages postés
7
Date d'inscription
lundi 2 juin 2008
Statut
Membre
Dernière intervention
10 juin 2008
-
10 juin 2008 à 13:48
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 10 juin 2008 à 14:34
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 10 juin 2008 à 14:34
A voir également:
- Programmation vba
- Programmation - Guide
- Application de programmation - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
1 réponse
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
10 juin 2008 à 14:34
10 juin 2008 à 14:34
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+
