Je mets en place des reporting powerpoint a partir de VB6. J'aimerai si
possible faire en sorte que powerpoint n'apparaisse pas dans la barre
des taches. Est-ce réalisable ?
Avec ceci, cela ne marche pas :
Set ppt = New PowerPoint.Application
ppt.Visible = msoFalse
....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
ceci est fait pour Excel mais devrait aller en modifiant. il teste si l'application est deja ouverte ce qui fait des lignes en sus cette macro ne conviens pas pour toi mais peut être tu y prendras des trucs.. Youky
Sub myxls() Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Excel.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Excel.Application") AppWrd.Visible = True 'cette ligne a suppr pour masquer l'appli. On Error GoTo 0 DocWrd = App.Path & "" & suivant & ".xls" On Error Resume Next AppWrd.Windows(suivant & ".xls").Activate If Err <> 0 Then AppWrd.Workbooks.Open (DocWrd) On Error GoTo 0 AppActivate AppWrd With AppWrd .WindowState = xlMaximized End With Set AppWrd = Nothing End Sub
"Arnaud" a écrit dans le message de news: dc4uuc$p99$
Bonjour,
Je mets en place des reporting powerpoint a partir de VB6. J'aimerai si possible faire en sorte que powerpoint n'apparaisse pas dans la barre des taches. Est-ce réalisable ?
Avec ceci, cela ne marche pas :
Set ppt = New PowerPoint.Application ppt.Visible = msoFalse ....
Bref, toutes astuces est le bien venue.
Merci, Arnaud.
ceci est fait pour Excel mais devrait aller en modifiant.
il teste si l'application est deja ouverte ce qui fait des lignes en sus
cette macro ne conviens pas pour toi mais peut être tu y prendras des
trucs..
Youky
Sub myxls()
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Excel.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Excel.Application")
AppWrd.Visible = True 'cette ligne a suppr pour masquer l'appli.
On Error GoTo 0
DocWrd = App.Path & "" & suivant & ".xls"
On Error Resume Next
AppWrd.Windows(suivant & ".xls").Activate
If Err <> 0 Then AppWrd.Workbooks.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
With AppWrd
.WindowState = xlMaximized
End With
Set AppWrd = Nothing
End Sub
"Arnaud" <devnul@devnul.nul> a écrit dans le message de news:
dc4uuc$p99$1@s1.news.oleane.net...
Bonjour,
Je mets en place des reporting powerpoint a partir de VB6. J'aimerai si
possible faire en sorte que powerpoint n'apparaisse pas dans la barre
des taches. Est-ce réalisable ?
Avec ceci, cela ne marche pas :
Set ppt = New PowerPoint.Application
ppt.Visible = msoFalse
....
ceci est fait pour Excel mais devrait aller en modifiant. il teste si l'application est deja ouverte ce qui fait des lignes en sus cette macro ne conviens pas pour toi mais peut être tu y prendras des trucs.. Youky
Sub myxls() Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Excel.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Excel.Application") AppWrd.Visible = True 'cette ligne a suppr pour masquer l'appli. On Error GoTo 0 DocWrd = App.Path & "" & suivant & ".xls" On Error Resume Next AppWrd.Windows(suivant & ".xls").Activate If Err <> 0 Then AppWrd.Workbooks.Open (DocWrd) On Error GoTo 0 AppActivate AppWrd With AppWrd .WindowState = xlMaximized End With Set AppWrd = Nothing End Sub
"Arnaud" a écrit dans le message de news: dc4uuc$p99$
Bonjour,
Je mets en place des reporting powerpoint a partir de VB6. J'aimerai si possible faire en sorte que powerpoint n'apparaisse pas dans la barre des taches. Est-ce réalisable ?
Avec ceci, cela ne marche pas :
Set ppt = New PowerPoint.Application ppt.Visible = msoFalse ....
