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

Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- - Dernière réponse : petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- 4 avril 2011 à 07:08
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 115 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_ghuysmans99
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
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
Commenter la réponse de petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Ok j' ai trouvé Merci
"Fichier Excel (*.xls)|*.xls|Fichier Excel (*.xlsx)|*.xlsx"
Commenter la réponse de petiflamand