Interroger un fichier excel en vb

Résolu
amyProg Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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 ?
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ceci:

https://codes-sources.commentcamarche.net/source/100410-piloter-office-en-vb-net
0
amyProg Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > amyProg Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
amyProg Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
même avec cette modif rien a changé
0
amyProg Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Je t'ai donné un lien avec un exemple que tu ne suis pas, j'arrête là ma collaboration.

Bon courage
0