Access 2007 : cmd sélectionne des fichiers de différents formats
cs_Enaira
Messages postés26Date d'inscriptionmercredi 24 juillet 2002StatutMembreDernière intervention24 septembre 2013
-
24 sept. 2013 à 11:52
jordane45
Messages postés38112Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention29 mars 2024
-
24 sept. 2013 à 17:30
Bonjour,
J'ai une base de données Access qui est mise à jour grâce à des fichiers Excel par importation des données. Pour l'instant elle n'accepte que les ".xls" et j'aimerai qu'elle accepte également les autres types de fichiers Excel (.xlsx, .xlsm, .xlsb). Je vous donne mes lignes de code actuelles :
Sub Ouverture(iTypeChoix As Integer)
Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
'Select a filter
If iTypeChoix = 0 Or iTypeChoix = 2 Then _
OFName.lpstrFilter = "Excel Files (*.xls)" + Chr$(0) + "*.xls"</code>
A voir également:
Access 2007 : cmd sélectionne des fichiers de différents formats
jordane45
Messages postés38112Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention29 mars 2024344 24 sept. 2013 à 17:30
Bonjour,
Avez vous essayé d'ajouter les différentes extensions d'Excel dans votre code ?
Sub Ouverture(iTypeChoix As Integer)
Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
'Select a filter
If iTypeChoix = 0 Or iTypeChoix = 2 Then _
OFName.lpstrFilter = "Excel Files (*.xls;*.xlsx;*.xlsm)" + Chr$(0) + "*.xls"