Importer des données d'un fichier excel

-
Bonjour,
svp quelqu'un m'aider a trouver la solution d'importer des données d'un fichier excel a condition que je veux choisir cette fichier a partir d'un explorateur windows

désolé j'oublie que j'ai travaillé avec Visual basic 6
merci d'avance :)
Afficher la suite 

Votre réponse

5 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207
0
Merci
Bonjour,
cela s'appelle piloter Excel depuis VB6.
Commence s'il te plait par te servir du moteur de recherche de ce forum. Il est là pour cela.
Tu y trouveras de nombreuses sources déposées et discussions ouvertes à ce sujet.
Reviens ensuite, s'il te plait, avec le code au moins tenté sur les bases que tu auras ainsi découvertes.

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Commenter la réponse de ucfoutu
0
Merci
j'ai fait une recherche mais pas de réponse exacte a cette probleme
NHenry
Messages postés
14456
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 mai 2019
130 -
Tu ne trouvera pas toujours de réponse exacte à ton problème, mais des réponses approchantes qui t'aiguilleront vers une solution.
Commenter la réponse de amCIPI
0
Merci
le probleme que je peux choisir le fichier mais je peux pas recuperer des valeurs a partir de cette fichier
Commenter la réponse de amCIPI
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207
0
Merci
Si tu ne sais pas comment récupérer des valeurs de cellules Excel, c'est que tu ne sais pas le faire non plus depuis VBA/Excel.
Or, le pilotage d'une application implique la connaissance de l'appli pilotée.
Questions, donc :
- 1) qu'as-tu tenté ? (montre ton code)
- 2) connais-tu VBA/Excel ?
Si réponse négative à la seconde question ===>> Apprends à le faire depuis VBA avant de tenter de le faire en pilotage de Excel.

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Commenter la réponse de ucfoutu
0
Merci
le code :

Dim retour As String, i As Integer
Dim TB
Dim objXLApp As Excel.Application


Set objXLApp = New Excel.Application
    retour = ListeFichier()
    If retour = "" Then Exit Sub
    
    TB = Split(retour, vbNullChar)
    If UBound(TB) = 0 Then
        For i = Len(TB(0)) To 1 Step -1
   
            If Mid(TB(0), i, 1) = "\" Then Exit For
            

        Next
       
    End If
Dim j As Integer

With objXLApp
.Workbooks.Open (TB(0))
.Workbooks(1).Worksheets(1).Select




le pb au niveau d'ouverture de fichier ".Workbooks.Open (TB(0))"
NB:lt TB(0) est le chemin de fichier
Commenter la réponse de amCIPI