Interroger un fichier excel en vb

Résolu/Fermé

amyProg Messages postés 12 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 13 août 2015 - Modifié par amyProg le 9/06/2015 à 13:48
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 9 juin 2015 à 17:31

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:

Interroger un fichier excel en vb
Fichier rar - Guide
Comment ouvrir un fichier epub ? - Guide
Comment réduire la taille d'un fichier - Guide
Liste déroulante excel - Guide
Ouvrir un fichier .bin - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
9 juin 2015 à 14:28

Bonjour,

Voir ceci:

https://codes-sources.commentcamarche.net/source/100410-piloter-office-en-vb-net

amyProg Messages postés 12 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 13 août 2015
9 juin 2015 à 15:42

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 ?

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > amyProg Messages postés 12 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 13 août 2015
9 juin 2015 à 16:16

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

amyProg Messages postés 12 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 13 août 2015
9 juin 2015 à 16:23

même avec cette modif rien a changé

amyProg Messages postés 12 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 13 août 2015
9 juin 2015 à 16:39

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

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
9 juin 2015 à 17:31

Je t'ai donné un lien avec un exemple que tu ne suis pas, j'arrête là ma collaboration.

Bon courage

Discussions similaires

comment donner les droits sur fichier partage