Ouvrir un fichier pas avec app.path mais choisir comme windows

Résolu
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 - 3 avril 2011 à 10:17
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

3 réponses

cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
3 avril 2011 à 21:07
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
3
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 1
4 avril 2011 à 06:49
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
0
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 1
4 avril 2011 à 07:08
Ok j' ai trouvé Merci
"Fichier Excel (*.xls)|*.xls|Fichier Excel (*.xlsx)|*.xlsx"
0
Rejoignez-nous