Interroger un fichier excel en vb [Résolu/Fermé]

Signaler
Messages postés
12
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
13 août 2015
-
Messages postés
6928
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 septembre 2020
-
Bonjour,
je suis débutante en VB ,Je veux interroger mon fichier excel, j'ai trouvé des code sur le net comme :

Class fichierExcel
    'Déclaration des variables
    Dim xlsapp As Excel.Application
    Dim xlsbook As Excel.Workbook
    Dim xlsheet As Excel.Woksheet

    'lancement d'excel et ouverture du fichier
    set xlsapp = New Excel.application
    set xlsbook = xlsapp.workbooks.Open("Chemin+Nom du fichier.xls")
    set xlsheet = xlsbook.Worksheets(N°Feuille a activer)

    xlsapp.Visible = true
End Class 


MAIS c marche pas , j'ai les trois SET qui sont soulignés en bleu en disant Syntax error et quand je les enlève j'ai l'erreur varaiabl expected !!!

quelqu'un pourrais m'aider SVP ?

2 réponses

Messages postés
6928
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 septembre 2020
549
Messages postés
12
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
13 août 2015

Bonjour,

Merci,
mais j'ai un autre problème :s
xlsbook = xlsapp.workbooks.Open("d:\LocalData\Desktop\test.xls")
cette ligne me retourne nothing !!

aurais tu une idée ?
Messages postés
6928
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 septembre 2020
549 >
Messages postés
12
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
13 août 2015

Dans le lien que je tai donné pour ouvrir un classeur:

'Ouvrir un  classeur
        ApExcel.Workbooks.Open("chemin classeur.xls")

et pour toi cela sera:

'Ouvrir un  classeur
       xlsapp.workbooks.Open("d:\LocalData\Desktop\test.xls") 


tout simplement
Messages postés
12
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
13 août 2015

même avec cette modif rien a changé
Messages postés
12
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
13 août 2015

voila mon code:

Dim xlsapp As Excel.Application
Dim xlsbook As Excel.Workbook
Dim xlsheet As Excel.Woksheet
Dim fileName As String = "d:\LocalData\a195814\Desktop\test.xls"
Dim result As String

result = Path.GetFileName(fileName)
MsgBox(result)

'lancement d'excel et ouverture du fichier
xlsapp = New Excel.Application

xlsbook = xlsapp.workbooks.Open("d:\LocalData\Desktop\test.xls")

xlsheet = xlsbook.Worksheets(1)

xlsapp.Visible = True

il s'arrete à la treizième ligne en disant que wlsapp.workbook = nothing
Messages postés
6928
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 septembre 2020
549
Je t'ai donné un lien avec un exemple que tu ne suis pas, j'arrête là ma collaboration.

Bon courage