En VBScript, comment trouver la version d'Excel installée sur un poste de
travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98)
--
Cordialement, Mikel
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
scraper
Bonjour Mikel83, dans le message news: tu disais :
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98)
en interrogeant le Registre à la clé HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp Pathsexcel.exe tu as l'emplacement par défaut du fichier exel.exe
ensuite, peut être avec le FSO ? (getFileVersion ...)
quelque chose comme ça :
'----8<----
Option explicit
Dim oShell, oFSO, sPath, sVersion
Set oShell=CreateObject("WScript.Shell") Set oFSO=CreateObject("Scripting.FileSystemObject")
On Error Resume Next sPath=oShell.RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionAppPathsexcel.exe") If Err.Number Then MsgBox "Clé de Registre absente !",VbCritical,"Erreur de Lecture .." Call Close WScript.Quit End IfOn Error Goto 0sVersion=oFSO.GetFileVersion (sPath)MsgBox "Version de Exel installé : " & VbCrLf & VbCrLf &sVersion,VbInformation, "Clôture"Call CloseSub CloseSet oFSO=NothingSet oShell=NothingEnd Sub'---8<--------Adresse invalideMerci de répondre sur le forum ...http://scraper.chez.tiscali.frscraper
Bonjour Mikel83, dans le message
news:A9148D9F-21D2-458B-903B-3D39AD9274E4@microsoft.com
tu disais :
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un
poste de travail pouvant fonctionner sous W2000 ou XP (et
éventuellement sous W98)
en interrogeant le Registre à la clé
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp
Pathsexcel.exe tu as l'emplacement par défaut du fichier exel.exe
ensuite, peut être avec le FSO ? (getFileVersion ...)
quelque chose comme ça :
'----8<----
Option explicit
Dim oShell, oFSO, sPath, sVersion
Set oShell=CreateObject("WScript.Shell")
Set oFSO=CreateObject("Scripting.FileSystemObject")
On Error Resume Next
sPath=oShell.RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionAppPathsexcel.exe") If Err.Number Then MsgBox "Clé de Registre absente !",VbCritical,"Erreur de Lecture .." Call Close WScript.Quit End IfOn Error Goto 0sVersion=oFSO.GetFileVersion (sPath)MsgBox "Version de Exel installé : " & VbCrLf & VbCrLf &sVersion,VbInformation, "Clôture"Call CloseSub CloseSet oFSO=NothingSet oShell=NothingEnd Sub'---8<--------Adresse invalideMerci de répondre sur le forum ...http://scraper.chez.tiscali.frscraper
Bonjour Mikel83, dans le message news: tu disais :
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98)
en interrogeant le Registre à la clé HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp Pathsexcel.exe tu as l'emplacement par défaut du fichier exel.exe
ensuite, peut être avec le FSO ? (getFileVersion ...)
quelque chose comme ça :
'----8<----
Option explicit
Dim oShell, oFSO, sPath, sVersion
Set oShell=CreateObject("WScript.Shell") Set oFSO=CreateObject("Scripting.FileSystemObject")
On Error Resume Next sPath=oShell.RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionAppPathsexcel.exe") If Err.Number Then MsgBox "Clé de Registre absente !",VbCritical,"Erreur de Lecture .." Call Close WScript.Quit End IfOn Error Goto 0sVersion=oFSO.GetFileVersion (sPath)MsgBox "Version de Exel installé : " & VbCrLf & VbCrLf &sVersion,VbInformation, "Clôture"Call CloseSub CloseSet oFSO=NothingSet oShell=NothingEnd Sub'---8<--------Adresse invalideMerci de répondre sur le forum ...http://scraper.chez.tiscali.frscraper
Michel Pierron
Bonjour Mikel83;
'// Check Excel.Application existence If IsNull(RegRead("HKCRExcel.Application")) Then MsgBox "Excel.Application object not found on this computer !",48 WScript.Quit Else '// Check Excel version MsgBox "Excel version " & Mid(RegRead("HKCRExcel.ApplicationCurVer"), 19) End If
Function RegRead(ByVal RegPath) On Error Resume Next RegRead = CreateObject("wscript.shell").RegRead(RegPath) If Err Then Err.Clear RegRead = Null End If On Error GoTo 0 End Function
MP
"Mikel83" a écrit dans le message de news:
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98) -- Cordialement, Mikel
Bonjour Mikel83;
'// Check Excel.Application existence
If IsNull(RegRead("HKCRExcel.Application")) Then
MsgBox "Excel.Application object not found on this computer !",48
WScript.Quit
Else
'// Check Excel version
MsgBox "Excel version " & Mid(RegRead("HKCRExcel.ApplicationCurVer"), 19)
End If
Function RegRead(ByVal RegPath)
On Error Resume Next
RegRead = CreateObject("wscript.shell").RegRead(RegPath)
If Err Then
Err.Clear
RegRead = Null
End If
On Error GoTo 0
End Function
MP
"Mikel83" <Mikel83@discussions.microsoft.com> a écrit dans le message de
news: A9148D9F-21D2-458B-903B-3D39AD9274E4@microsoft.com...
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de
travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98)
--
Cordialement, Mikel
'// Check Excel.Application existence If IsNull(RegRead("HKCRExcel.Application")) Then MsgBox "Excel.Application object not found on this computer !",48 WScript.Quit Else '// Check Excel version MsgBox "Excel version " & Mid(RegRead("HKCRExcel.ApplicationCurVer"), 19) End If
Function RegRead(ByVal RegPath) On Error Resume Next RegRead = CreateObject("wscript.shell").RegRead(RegPath) If Err Then Err.Clear RegRead = Null End If On Error GoTo 0 End Function
MP
"Mikel83" a écrit dans le message de news:
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98) -- Cordialement, Mikel
Mikel83
Merci à tous pour votre aide efficace! -- Cordialement, Mikel
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98) -- Cordialement, Mikel
Merci à tous pour votre aide efficace!
--
Cordialement, Mikel
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de
travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98)
--
Cordialement, Mikel
Merci à tous pour votre aide efficace! -- Cordialement, Mikel
Bonjour à tous!
En VBScript, comment trouver la version d'Excel installée sur un poste de travail pouvant fonctionner sous W2000 ou XP (et éventuellement sous W98) -- Cordialement, Mikel
