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
Philippe.R
Bonsoir, Ceci peut il constituer une base ? http://www.mvps.org/accessfr/apis/api0007.htm -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Kyvu" a écrit dans le message de news:2f46201c46c24$ddba67e0$ Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line!
Bonsoir,
Ceci peut il constituer une base ?
http://www.mvps.org/accessfr/apis/api0007.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2f46201c46c24$ddba67e0$a301280a@phx.gbl...
Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le
player Flash de Macromedia est installé sur la machine?
Bonsoir, Ceci peut il constituer une base ? http://www.mvps.org/accessfr/apis/api0007.htm -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Kyvu" a écrit dans le message de news:2f46201c46c24$ddba67e0$ Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line!
ChrisV
Bonjour Kyvu,
En testant si son répertoire par défaut d'install est présent...(?)
Sub zaza() reP = "C:le_chemind'accèsau répertoire" _ & "MacromediaFlash Player" If Dir(reP, vbDirectory) = "" Then inF = MsgBox("Le lecteur Flash Player " _ & "n'est pas installé sur votre machine !", _ vbExclamation + vbOKOnly, "Info...") Else inF = MsgBox("Le lecteur Flash Player " _ & "est installé sur votre machine !", _ vbExclamation + vbOKOnly, "Info...") End If End Sub
ChrisV
"Kyvu" a écrit dans le message de news:2f46201c46c24$ddba67e0$ Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line!
Bonjour Kyvu,
En testant si son répertoire par défaut d'install est présent...(?)
Sub zaza()
reP = "C:le_chemind'accèsau répertoire" _
& "MacromediaFlash Player"
If Dir(reP, vbDirectory) = "" Then
inF = MsgBox("Le lecteur Flash Player " _
& "n'est pas installé sur votre machine !", _
vbExclamation + vbOKOnly, "Info...")
Else
inF = MsgBox("Le lecteur Flash Player " _
& "est installé sur votre machine !", _
vbExclamation + vbOKOnly, "Info...")
End If
End Sub
ChrisV
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2f46201c46c24$ddba67e0$a301280a@phx.gbl...
Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le
player Flash de Macromedia est installé sur la machine?
En testant si son répertoire par défaut d'install est présent...(?)
Sub zaza() reP = "C:le_chemind'accèsau répertoire" _ & "MacromediaFlash Player" If Dir(reP, vbDirectory) = "" Then inF = MsgBox("Le lecteur Flash Player " _ & "n'est pas installé sur votre machine !", _ vbExclamation + vbOKOnly, "Info...") Else inF = MsgBox("Le lecteur Flash Player " _ & "est installé sur votre machine !", _ vbExclamation + vbOKOnly, "Info...") End If End Sub
ChrisV
"Kyvu" a écrit dans le message de news:2f46201c46c24$ddba67e0$ Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line!
Alain CROS
Bonjour.
Sub FlashInstalled() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub
Alain CROS
-----Message d'origine----- Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line! .
Bonjour.
Sub FlashInstalled()
Dim FlashMode&, FlashVersion&
On Error Resume Next
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.3"))
FlashVersion = 3
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.4"))
FlashVersion = 4
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.5"))
FlashVersion = 5
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.6"))
FlashVersion = 6
End If
If FlashMode Then MsgBox "FlashInstalled : Version = "
& FlashVersion
End Sub
Alain CROS
-----Message d'origine-----
Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le
player Flash de Macromedia est installé sur la machine?
Sub FlashInstalled() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub
Alain CROS
-----Message d'origine----- Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line! .
Philippe.R
Bonsoir Alain, Juste histoire de jouer la mouche du coche, que penserais tu de cette version ?
Sub FlashInstalled2() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Alain CROS" a écrit dans le message de news:2ed7801c46c4c$40863cb0$ Bonjour.
Sub FlashInstalled() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub
Alain CROS
-----Message d'origine----- Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line! .
Bonsoir Alain,
Juste histoire de jouer la mouche du coche, que penserais tu de cette version ?
Sub FlashInstalled2()
Dim FlashMode&, FlashVersion&
On Error Resume Next
FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))
FlashVersion = 6
If Not FlashMode Then
FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
FlashVersion = 5
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
FlashVersion = 4
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
FlashVersion = 3
End If
If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"Alain CROS" <PERSONNE@ICI> a écrit dans le message de news:2ed7801c46c4c$40863cb0$a401280a@phx.gbl...
Bonjour.
Sub FlashInstalled()
Dim FlashMode&, FlashVersion&
On Error Resume Next
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.3"))
FlashVersion = 3
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.4"))
FlashVersion = 4
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.5"))
FlashVersion = 5
End If
If Not FlashMode Then
FlashMode = IsObject(CreateObject
("ShockwaveFlash.ShockwaveFlash.6"))
FlashVersion = 6
End If
If FlashMode Then MsgBox "FlashInstalled : Version = "
& FlashVersion
End Sub
Alain CROS
-----Message d'origine-----
Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le
player Flash de Macromedia est installé sur la machine?
Bonsoir Alain, Juste histoire de jouer la mouche du coche, que penserais tu de cette version ?
Sub FlashInstalled2() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Alain CROS" a écrit dans le message de news:2ed7801c46c4c$40863cb0$ Bonjour.
Sub FlashInstalled() Dim FlashMode&, FlashVersion& On Error Resume Next FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.3")) FlashVersion = 3 If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.4")) FlashVersion = 4 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.5")) FlashVersion = 5 End If If Not FlashMode Then FlashMode = IsObject(CreateObject ("ShockwaveFlash.ShockwaveFlash.6")) FlashVersion = 6 End If If FlashMode Then MsgBox "FlashInstalled : Version = " & FlashVersion End Sub
Alain CROS
-----Message d'origine----- Bonsoir,
En VBA depuis Excel, est-il possible de détecter si le player Flash de Macromedia est installé sur la machine?
Merci!
@micalement.
Kyvu On Line! .
Alain CROS
Bonjour.
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
Bonjour.
C'est effectivement meilleur.
Une autre pour la route ?
Sub FlashInstalled3()
Dim FlashVersion&, LeFlash$
On Error Resume Next
For FlashVersion = 6& To 3& Step -1&
LeFlash = "ShockwaveFlash.ShockwaveFlash." &
FlashVersion
If IsObject(CreateObject(LeFlash)) Then
MsgBox "FlashInstalled : Version = " &
FlashVersion
Exit Sub
End If
Next FlashVersion
End Sub
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
ChrisV
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" a écrit dans le message de news:2efbc01c46c51$7523d590$
Bonjour.
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version
7 (dixit le site de téléchargement de Macromédia),
(version dans la BdR: 5.0.44.0 ??????)
FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le
résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player...
ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6
(la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on
obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" <PERSONNE@ICI> a écrit dans le message de
news:2efbc01c46c51$7523d590$a501280a@phx.gbl...
Bonjour.
C'est effectivement meilleur.
Une autre pour la route ?
Sub FlashInstalled3()
Dim FlashVersion&, LeFlash$
On Error Resume Next
For FlashVersion = 6& To 3& Step -1&
LeFlash = "ShockwaveFlash.ShockwaveFlash." &
FlashVersion
If IsObject(CreateObject(LeFlash)) Then
MsgBox "FlashInstalled : Version = " &
FlashVersion
Exit Sub
End If
Next FlashVersion
End Sub
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" a écrit dans le message de news:2efbc01c46c51$7523d590$
Bonjour.
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
Frédéric Sigonneau
Bonjour Chris,
Sans aller aussi loin (que ta proposition à 65536), mes deux centimes d'euro avec cette xième version qui permet de faire le tour des différentes versions installées quand il y a lieu (chez moi il y a 5 entrées en tout dans le registre pour "ShockwaveFlash.ShockwaveFlash.x"...) :
'============================== Sub CheckFlash() Dim IsFlash As Boolean, FlashVersion, i&, SF For i = 1 To 50 'par exemple On Error Resume Next Set SF = CreateObject("ShockwaveFlash.ShockwaveFlash." & CStr(i)) If Err = 0 Then IsFlash = True FlashVersion = FlashVersion & "-" & i End If On Error GoTo 0 Next If Left(FlashVersion, 1) = "-" Then FlashVersion = Mid(FlashVersion, 2) MsgBox "Installé : " & IsFlash & _ IIf(IsFlash, vbLf & "Version(s) : " & FlashVersion, "") End Sub 'fs '============================== FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" a écrit dans le message de news:2efbc01c46c51$7523d590$
Bonjour.
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
Bonjour Chris,
Sans aller aussi loin (que ta proposition à 65536), mes deux centimes d'euro
avec cette xième version qui permet de faire le tour des différentes versions
installées quand il y a lieu (chez moi il y a 5 entrées en tout dans le registre
pour "ShockwaveFlash.ShockwaveFlash.x"...) :
'============================== Sub CheckFlash()
Dim IsFlash As Boolean, FlashVersion, i&, SF
For i = 1 To 50 'par exemple
On Error Resume Next
Set SF = CreateObject("ShockwaveFlash.ShockwaveFlash." & CStr(i))
If Err = 0 Then
IsFlash = True
FlashVersion = FlashVersion & "-" & i
End If
On Error GoTo 0
Next
If Left(FlashVersion, 1) = "-" Then FlashVersion = Mid(FlashVersion, 2)
MsgBox "Installé : " & IsFlash & _
IIf(IsFlash, vbLf & "Version(s) : " & FlashVersion, "")
End Sub 'fs
'==============================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version
7 (dixit le site de téléchargement de Macromédia),
(version dans la BdR: 5.0.44.0 ??????)
FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le
résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player...
ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6
(la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on
obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" <PERSONNE@ICI> a écrit dans le message de
news:2efbc01c46c51$7523d590$a501280a@phx.gbl...
Bonjour.
C'est effectivement meilleur.
Une autre pour la route ?
Sub FlashInstalled3()
Dim FlashVersion&, LeFlash$
On Error Resume Next
For FlashVersion = 6& To 3& Step -1&
LeFlash = "ShockwaveFlash.ShockwaveFlash." &
FlashVersion
If IsObject(CreateObject(LeFlash)) Then
MsgBox "FlashInstalled : Version = " &
FlashVersion
Exit Sub
End If
Next FlashVersion
End Sub
Sans aller aussi loin (que ta proposition à 65536), mes deux centimes d'euro avec cette xième version qui permet de faire le tour des différentes versions installées quand il y a lieu (chez moi il y a 5 entrées en tout dans le registre pour "ShockwaveFlash.ShockwaveFlash.x"...) :
'============================== Sub CheckFlash() Dim IsFlash As Boolean, FlashVersion, i&, SF For i = 1 To 50 'par exemple On Error Resume Next Set SF = CreateObject("ShockwaveFlash.ShockwaveFlash." & CStr(i)) If Err = 0 Then IsFlash = True FlashVersion = FlashVersion & "-" & i End If On Error GoTo 0 Next If Left(FlashVersion, 1) = "-" Then FlashVersion = Mid(FlashVersion, 2) MsgBox "Installé : " & IsFlash & _ IIf(IsFlash, vbLf & "Version(s) : " & FlashVersion, "") End Sub 'fs '============================== FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
"Alain CROS" a écrit dans le message de news:2efbc01c46c51$7523d590$
Bonjour.
C'est effectivement meilleur. Une autre pour la route ?
Sub FlashInstalled3() Dim FlashVersion&, LeFlash$ On Error Resume Next For FlashVersion = 6& To 3& Step -1& LeFlash = "ShockwaveFlash.ShockwaveFlash." & FlashVersion If IsObject(CreateObject(LeFlash)) Then MsgBox "FlashInstalled : Version = " & FlashVersion Exit Sub End If Next FlashVersion End Sub
Alain CROS
Alain CROS
Bonjour.
Oui, tu as raison, ça ne fonctionne pas du tout ! Celle ci qui sera la dernière semble fonctionner mais pour la version, il faudra un traducteur.
Sub FlashInstalled4() Dim ObjFlash As Object On Error Resume Next Set ObjFlash = CreateObject("ShockwaveFlash.ShockwaveFlash") If IsObject(ObjFlash) Then MsgBox "FlashInstalled : Version = " & ObjFlash.FlashVersion Set ObjFlash = Nothing End If On Error GoTo 0 End Sub
Alain CROS
"ChrisV" a écrit dans le message de news:
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
Un effet de la Twilight Zone...
ChrisV
Bonjour.
Oui, tu as raison, ça ne fonctionne pas du tout !
Celle ci qui sera la dernière semble fonctionner mais pour la version, il faudra un traducteur.
Sub FlashInstalled4()
Dim ObjFlash As Object
On Error Resume Next
Set ObjFlash = CreateObject("ShockwaveFlash.ShockwaveFlash")
If IsObject(ObjFlash) Then
MsgBox "FlashInstalled : Version = " & ObjFlash.FlashVersion
Set ObjFlash = Nothing
End If
On Error GoTo 0
End Sub
Alain CROS
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news: O7zi53FbEHA.752@TK2MSFTNGP09.phx.gbl...
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version
7 (dixit le site de téléchargement de Macromédia),
(version dans la BdR: 5.0.44.0 ??????)
FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le
résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player...
ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6
(la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on
obtient même la très lointaine prochaine "nouvelle version"... :-o)
Oui, tu as raison, ça ne fonctionne pas du tout ! Celle ci qui sera la dernière semble fonctionner mais pour la version, il faudra un traducteur.
Sub FlashInstalled4() Dim ObjFlash As Object On Error Resume Next Set ObjFlash = CreateObject("ShockwaveFlash.ShockwaveFlash") If IsObject(ObjFlash) Then MsgBox "FlashInstalled : Version = " & ObjFlash.FlashVersion Set ObjFlash = Nothing End If On Error GoTo 0 End Sub
Alain CROS
"ChrisV" a écrit dans le message de news:
Bonjour Alain,
Après install sur un poste (qui ne possédait pas Flash Player) de la version 7 (dixit le site de téléchargement de Macromédia), (version dans la BdR: 5.0.44.0 ??????) FlashInstalled, FlashInstalled2 ou FlashInstalled3 ne donnent pas le résultat espéré...
Sur un autre poste, ne possédant pas le Flash Player... ces macros (2 et 3) indiquent sans broncher: FlashInstalled : Version = 6 (la première elle indique version 3...)
(nb: remarque, si on indique For FlashVersion = 65536& To 3& Step -1&, on obtient même la très lointaine prochaine "nouvelle version"... :-o)
