Ouvrir un fichier pas avec app.path mais choisir comme windows [Résolu]

Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Bonjour , je voudrais ouvrir un fichier excel
mais a la place de faire
Set exldoc = exlapp.workbooks.Open(App.Path & "\export_redevance.xls")
je voudrais que l'on puisse choisir avec parcourir comme windows

Merci

3 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
Colle un composant Microsoft Common Dialog Control sur ton form, renomme-le en cdlg et utilise ce bout de code :
Private Sub OuvreFichierExcel()
 With Me.cdlg
  .CancelError = True
  .Filter = "Fichier Excel (*.xls)|*.xls"
  .InitDir = App.Path
  On Error GoTo err
  .ShowOpen
  Set exldoc = exlapp.workbooks.Open(.FileName)
 End With
err:
End Sub


VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Bonjour et merci

peu tu me dire comment je doit faire
pour pour ajouter les xlxs aussi
j' ai fait
(*.xlx/*.xlsx)|*xls|*.xlsx mais sa fonctionne pas
Merci
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Ok j' ai trouvé Merci
"Fichier Excel (*.xls)|*.xls|Fichier Excel (*.xlsx)|*.xlsx"