Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1774 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de récupération de données

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème de récupération de données

n°2073478
Clemsoubar​d
Le savoir, c'est le pouvoir !
Posté le 03-05-2011 à 11:43:46  profilanswer
 

Bonjour à toutes et à tous,
 
Ayant un problème depuis quelque temps, je me résout à demander votre aide.
Mon objectif est de créer un "userform" dynamique sous visual basic 2010.
Pour cela, j'utilise un fichier excel auquel j'applique un filtre.
Seulement, j'ai un problème pour récupérer les valeurs de excel pour les afficher dans une combobox sur mon formulaire. Celle-ci affiche seulement 'True'.
J'ai trouvé des solutions en language vba mais je n'arrive pas à trouver un language vb 2010 qui marche.
Voici mon code:
 
Imports Microsoft.Office.Interop.Excel
 
Public Class Form1
    Public MonXl As Application
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MonXl As Object
        MonXl = CreateObject("Excel.Application" )
        'Rend Excel visible, ce n'est pas indispensable, mais plus spectaculaire...
        MonXl.Visible = False
        'Ouverture d'un Classeur Existant
        MonXl.Workbooks.Open(FileName:="C:\base de données V2 fr excel.xls" )
        'sélection d'une feuille du classeur en cours
        MonXl.Sheets(1).Select() 'selectionne la premiere feuille du classeur
        Dim Liste As String
 
        If ComboBox1.Text = "monovalent" Then
            MonXl.Range("B2:B14" ).Select()
            MonXl.Selection.AutoFilter()
            MonXl.Selection.AutoFilter(Field:=1, Criteria1:="=*s" )
 
 
        ElseIf ComboBox1.Text = "bivalent" Then
            MonXl.Range("B2:B14" ).Select()
            MonXl.Selection.AutoFilter()
            MonXl.Selection.AutoFilter(Field:=1, Criteria1:="=*sc*" )
 
        ElseIf ComboBox1.Text = "electrique" Then
            MonXl.Range("B2:B14" ).Select()
            MonXl.Selection.AutoFilter()
            MonXl.Selection.AutoFilter(Field:=1, Criteria1:="=*se*" )
 
        Else : MsgBox("veuillez selectionnez un type d'appoint" )
 
 
        End If
        Liste = MonXl.Sheets(1).Range("B2:B14" ).Select()
        ComboBox2.Text = Liste
 
    End Sub
 
     
 
End Class
 
 
En espérant que vous puissiez m'aider, merci de votre temps.

mood
Publicité
Posté le 03-05-2011 à 11:43:46  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de récupération de données

 

Sujets relatifs
problème de recuperation des données[C] Probléme de récupération des données à travers ttyS (LINUX)
problème de récupération de donnéesProblème récupération informations base de données
script php: probleme de recupération de donnéesProblème de récupération de données
problème de récupération de donnéesProbleme Recuperation donnees Textarea d'un formulaire avec split
Probleme de récupération de données de formulairegors problème de récupération de données, URGENT
Plus de sujets relatifs à : Problème de récupération de données


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR