Discussion :

[darkspoilt]

Je suis sous Access et je fais de l'autotmation

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim appli As Excel.Application
Dim feuille As Worksheet
 
    appli.Visible = True
    feuille.Select
    feuille.Range("A1").Activate
 
    appli.WindowState = xlMaximized

Voila j'aimerais après faire apparaitre mon application Ecel qu'elle soir affiché au premier plan or mon ceode ne foncitone pas toujours y'a t'il quelque chose pur corrigé le problème?

[RGShoop]

Salut,

Tu ne fais que déclarer l'excel, tu ne le charges pas ajoute :

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
 
 
Dim appli As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
 
Set appli = New Excel.Application
Set wkb = Xls.Workbooks.Open("CheminduFichier")
Set wks = Xls.Sheets("Nom de la worksheet")
 
    appli.Visible = True
    feuille.Select
    feuille.Range("A1").Activate
 
    appli.WindowState = xlMaximized

A+
RG

[RGShoop]

je complète, désolé...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim appli As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
 
Set appli = New Excel.Application
Set wkb = Xls.Workbooks.Open("CheminduFichier")
Set wks = Xls.Sheets("Nom de la worksheet")
 
    appli.Visible = True
    wkb.Select
    wks.Range("A1").Activate
 
    appli.WindowState = xlMaximized

[darkspoilt]

je le fais sauf que je l'avais pas mis mais j'utilise le showwindow qui marche bcp mieux

Mais petit probleme ma fenêtre Excel n'est pas complète j'ai pas les menu
Fichier Edition Affichage etc...