Discussion :

[HarmonyStar]

Bonjour,

J'ai un petit soucis avec mon code et je n'arrive vraiment pas à trouver l'erreur. Je veux simplement ouvrir mon fichier excel ... or rien ne se passe, j'ai des fonctions faisant appel à mon fichier qui s'exécutent très bien par la suite ! Mon seul problème est donc l'affichage de ma feuille excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Cmd_graphique_Click()
 
    'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\xxx\Bureau\test_graph2.xlsx")
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
 
    Call Compteur
 
 
    wbExcel.Close 'Fermeture du classeur Excel
    appExcel.Quit 'Fermeture de l'application Excel
 
    'Désallocation mémoire
    Set wsExcel = Nothing
    Set wbExcel = Nothing
    Set appExcel = Nothing
 
 
End Sub

Merci de m'aider car ça me bloque pour tout ce que je veux faire par la suite ...

[lucasgaetan]

Bonjour,

essais un
wbExcel.Visible = true
ou
wsExcel.Visible = true

a+

[HarmonyStar]

Merci .. j'avais trouvé toute seule mais en effet c'était bien ça mon problème

[Marc-L]

Bonjour, bonjour,

si c'est pour l'afficher, c'est à mon avis vraiment idiot d'ouvrir une autre instance d'Excel,
tout à fait inutile à part de gâcher des ressources mémoire de l'ordinateur !

Autant l'effectuer directement dans l'instance principale d'Excel …