Activer Excel

Question

Urgent, voici le pb,


Chez un de mes client, lorsque je veux lancer une application excel depuis vb6 , Excel se lance mais en mode cache ( ou invisible ) ,de meme vb disparait mais reste actif donc , rien a l'ecran (ce qui est tres genan pour moi ) 
Voici le code que j'utilise :
Set Xl = New Excel.Application
    Xl.Visible = True
    Xl.Workbooks.Open (Label1.Caption), , , , "password"
    ActiveWorkbook.RunAutoMacros xlAutoOpen
    Unload Form5
    Form2.Visible = True

Merci de votre aide

jpleroisse · Answer

Bonsoir,

Je suppose que le nom et le chemin du classeur, sont dans Labe1.De mon c&#244;t&#233; j'ai essay&#233; ceci et j'ai excel visible.



Private Sub Command2_Click()

Dim xl As Excel.Application

Set xl = New Excel.Application

    xl.Visible = True

    xl.Workbooks.Open ("C:\Mes documents\Classeur1.xls"), , , , "password"

    ActiveWorkbook.RunAutoMacros xlAutoOpen

    'Unload Form5

    xl.Workbooks.Close

   xl.Quit

   Set xl = Nothing

   'Form2.Visible = True



End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Activer Excel

1 réponse

Discussions similaires