petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
3 avril 2011 à 10:17
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 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
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 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