Sujet Précédent Sujet Suivant

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 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:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 juin 2015 à 14:28
Bonjour,

Voir ceci:

https://codes-sources.commentcamarche.net/source/100410-piloter-office-en-vb-net
0
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 ?
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > 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
0
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é
0
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
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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
0

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses