Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel shell et compagnie

shell et compagnie

23 réponses
Avatar
msillienne
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de=20
microsoft ainsi qu'un autre programme, et je voudrais=20
faire un test : si la calculatrice est d=E9ja lanc=E9 ne pas=20
la lancer sinon ex=E9cuter la calculatrice.
comment je peux savoir tout cela ;-)=20
mer=E7i
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
michdenis
Bonjour Michel, Alain,

Est-ce que quelqu'un connaît la liste de toutes les constantes des applications que l'on peut ouvrir de cette manière ...
NotePad.exe, WordPad.exe ....


Merci de votre collaboration,


Salutations!



"Michel Pierron" a écrit dans le message de news:%23%
Bien vu Alain; on fini par oublier les choses les plus élémentaires.
MP

"Alain CROS" a écrit dans le message de
news:%
Bonjour.

Application.ActivateMicrosoftApp 0

Alain CROS.

"msillienne" a écrit dans le message de
news: 053a01c3d36b$3e8857b0$

bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi




Avatar
AV
Est-ce que quelqu'un connaît la liste de toutes les constantes des
applications que l'on peut ouvrir de cette manière ...

NotePad.exe, WordPad.exe ....


'Application.ActivateMicrosoftApp -1 'le solitaire
'Application.ActivateMicrosoftApp 0 'la calculatrice
'Application.ActivateMicrosoftApp 1 'Word
'Application.ActivateMicrosoftApp 2 'PowerPoint
'Application.ActivateMicrosoftApp 3 ' MsMail ou Explorateur avec XL97 (?)
'Application.ActivateMicrosoftApp 4 'Access
'Application.ActivateMicrosoftApp 5 'FoxPro
'Application.ActivateMicrosoftApp 6 'Project
'Application.ActivateMicrosoftApp 8 'SchedulePlus

J'ai pas autre chose en magasin !

AV

Avatar
michdenis
Bonjour AV,

à partir de l'aide d'excel (2003) , j'ai obtenu ceci :

Dim Ind As XlMSApplication
Ind = xlMicrosoftAccess
Application.ActivateMicrosoftApp Ind

XlMSApplication regroupe toutes ces constantes textes :

xlMicrosoftWord
xlMicrosoftPowerPoint
xlMicrosoftMail
xlMicrosoftAccess
xlMicrosoftFoxPro
xlMicrosoftProject
xlMicrosoftSchedulePlus

Je n'ai vu aucune trace en ce qui concerne la "Calculatrice" ou le "Solitaire" bien que la constante numérique fonctionne.

D'où ma question à savoir, si d'autres constantes numériques étaient utilisables pour "NotePad", "WordPad" ...etc.


Merci pour ta collaboration.


Salutations!





"AV" a écrit dans le message de news:

Est-ce que quelqu'un connaît la liste de toutes les constantes des
applications que l'on peut ouvrir de cette manière ...

NotePad.exe, WordPad.exe ....


'Application.ActivateMicrosoftApp -1 'le solitaire
'Application.ActivateMicrosoftApp 0 'la calculatrice
'Application.ActivateMicrosoftApp 1 'Word
'Application.ActivateMicrosoftApp 2 'PowerPoint
'Application.ActivateMicrosoftApp 3 ' MsMail ou Explorateur avec XL97 (?)
'Application.ActivateMicrosoftApp 4 'Access
'Application.ActivateMicrosoftApp 5 'FoxPro
'Application.ActivateMicrosoftApp 6 'Project
'Application.ActivateMicrosoftApp 8 'SchedulePlus

J'ai pas autre chose en magasin !

AV

Avatar
Michel Pierron
Bonsoir Denis;
La liste d'AV est exhaustive hormis que moi, j'ai Outlook pour l'index 3 et qu'il
faut lire 7 pour SchedulePlus.
Pour la calculatrice et le solitaire, il existe un article µSoft décrivant le
fonctionnement de
Application.ActivateMicrosoftApp True ou False

MP

"michdenis" a écrit dans le message de
news:
Bonjour AV,

à partir de l'aide d'excel (2003) , j'ai obtenu ceci :

Dim Ind As XlMSApplication
Ind = xlMicrosoftAccess
Application.ActivateMicrosoftApp Ind

XlMSApplication regroupe toutes ces constantes textes :

xlMicrosoftWord
xlMicrosoftPowerPoint
xlMicrosoftMail
xlMicrosoftAccess
xlMicrosoftFoxPro
xlMicrosoftProject
xlMicrosoftSchedulePlus

Je n'ai vu aucune trace en ce qui concerne la "Calculatrice" ou le "Solitaire"
bien que la constante numérique fonctionne.


D'où ma question à savoir, si d'autres constantes numériques étaient utilisables
pour "NotePad", "WordPad" ...etc.



Merci pour ta collaboration.


Salutations!





"AV" a écrit dans le message de
news:


Est-ce que quelqu'un connaît la liste de toutes les constantes des
applications que l'on peut ouvrir de cette manière ...

NotePad.exe, WordPad.exe ....


'Application.ActivateMicrosoftApp -1 'le solitaire
'Application.ActivateMicrosoftApp 0 'la calculatrice
'Application.ActivateMicrosoftApp 1 'Word
'Application.ActivateMicrosoftApp 2 'PowerPoint
'Application.ActivateMicrosoftApp 3 ' MsMail ou Explorateur avec XL97 (?)
'Application.ActivateMicrosoftApp 4 'Access
'Application.ActivateMicrosoftApp 5 'FoxPro
'Application.ActivateMicrosoftApp 6 'Project
'Application.ActivateMicrosoftApp 8 'SchedulePlus

J'ai pas autre chose en magasin !

AV





Avatar
michdenis
Merci Michel,

Salutations!

"Michel Pierron" a écrit dans le message de news:
Bonsoir Denis;
La liste d'AV est exhaustive hormis que moi, j'ai Outlook pour l'index 3 et qu'il
faut lire 7 pour SchedulePlus.
Pour la calculatrice et le solitaire, il existe un article µSoft décrivant le
fonctionnement de
Application.ActivateMicrosoftApp True ou False

MP

"michdenis" a écrit dans le message de
news:
Bonjour AV,

à partir de l'aide d'excel (2003) , j'ai obtenu ceci :

Dim Ind As XlMSApplication
Ind = xlMicrosoftAccess
Application.ActivateMicrosoftApp Ind

XlMSApplication regroupe toutes ces constantes textes :

xlMicrosoftWord
xlMicrosoftPowerPoint
xlMicrosoftMail
xlMicrosoftAccess
xlMicrosoftFoxPro
xlMicrosoftProject
xlMicrosoftSchedulePlus

Je n'ai vu aucune trace en ce qui concerne la "Calculatrice" ou le "Solitaire"
bien que la constante numérique fonctionne.


D'où ma question à savoir, si d'autres constantes numériques étaient utilisables
pour "NotePad", "WordPad" ...etc.



Merci pour ta collaboration.


Salutations!





"AV" a écrit dans le message de
news:


Est-ce que quelqu'un connaît la liste de toutes les constantes des
applications que l'on peut ouvrir de cette manière ...

NotePad.exe, WordPad.exe ....


'Application.ActivateMicrosoftApp -1 'le solitaire
'Application.ActivateMicrosoftApp 0 'la calculatrice
'Application.ActivateMicrosoftApp 1 'Word
'Application.ActivateMicrosoftApp 2 'PowerPoint
'Application.ActivateMicrosoftApp 3 ' MsMail ou Explorateur avec XL97 (?)
'Application.ActivateMicrosoftApp 4 'Access
'Application.ActivateMicrosoftApp 5 'FoxPro
'Application.ActivateMicrosoftApp 6 'Project
'Application.ActivateMicrosoftApp 8 'SchedulePlus

J'ai pas autre chose en magasin !

AV





Avatar
Michel Pierron
Bonjour vous tous;
De manière plus générale, voici comment récupérer les valeurs de constantes
internes de n'importe quelle application Office; il vous suffit de remplacer dans
la procédure suivante, excel.exe par word.exe, access.exe, etc.

Sub OfficeConstantsList()
Application.ScreenUpdating = False
Dim R, Member, i As Long, oPath As String
oPath = Application.Path & "excel.exe"
With CreateObject("TLI.typelibinfo")
.ContainingFile = oPath
Workbooks.Add
For Each R In .Constants
i = i + 1
Cells(i, 1) = R.Name: Cells(i, 1).Font.Bold = True
For Each Member In R.Members
i = i + 1
Cells(i, 1) = Member.Name
Cells(i, 2) = Member.Value
Next Member
Next R
End With
Columns("A:B").Columns.AutoFit
End Sub

Ainsi, pour la constante XlMSApplication, on trouve:
xlMicrosoftWord 1
xlMicrosoftPowerPoint 2
xlMicrosoftMail 3
xlMicrosoftAccess 4
xlMicrosoftFoxPro 5
xlMicrosoftProject 6
xlMicrosoftSchedulePlus 7

MP

"michdenis" a écrit dans le message de
news:
Merci Michel,

Salutations!

"Michel Pierron" a écrit dans le message de
news:

Bonsoir Denis;
La liste d'AV est exhaustive hormis que moi, j'ai Outlook pour l'index 3 et
qu'il

faut lire 7 pour SchedulePlus.
Pour la calculatrice et le solitaire, il existe un article µSoft décrivant le
fonctionnement de
Application.ActivateMicrosoftApp True ou False

MP

"michdenis" a écrit dans le message de
news:
Bonjour AV,

à partir de l'aide d'excel (2003) , j'ai obtenu ceci :

Dim Ind As XlMSApplication
Ind = xlMicrosoftAccess
Application.ActivateMicrosoftApp Ind

XlMSApplication regroupe toutes ces constantes textes :

xlMicrosoftWord
xlMicrosoftPowerPoint
xlMicrosoftMail
xlMicrosoftAccess
xlMicrosoftFoxPro
xlMicrosoftProject
xlMicrosoftSchedulePlus

Je n'ai vu aucune trace en ce qui concerne la "Calculatrice" ou le "Solitaire"
bien que la constante numérique fonctionne.


D'où ma question à savoir, si d'autres constantes numériques étaient
utilisables


pour "NotePad", "WordPad" ...etc.


Merci pour ta collaboration.


Salutations!





"AV" a écrit dans le message de
news:


Est-ce que quelqu'un connaît la liste de toutes les constantes des
applications que l'on peut ouvrir de cette manière ...

NotePad.exe, WordPad.exe ....


'Application.ActivateMicrosoftApp -1 'le solitaire
'Application.ActivateMicrosoftApp 0 'la calculatrice
'Application.ActivateMicrosoftApp 1 'Word
'Application.ActivateMicrosoftApp 2 'PowerPoint
'Application.ActivateMicrosoftApp 3 ' MsMail ou Explorateur avec XL97
(?)


'Application.ActivateMicrosoftApp 4 'Access
'Application.ActivateMicrosoftApp 5 'FoxPro
'Application.ActivateMicrosoftApp 6 'Project
'Application.ActivateMicrosoftApp 8 'SchedulePlus

J'ai pas autre chose en magasin !

AV










Avatar
Papyty
Bonjour @ tous et à Michel Pierron :

snif j'ai une erreur d'execution ici

.ContainingFile = oPath


Une lib à activer peut etre??
--
@+
Thierry
07/01/2004 11:16:43

Avatar
Michel Pierron
Bonjour Papyty;
Quel type d'erreur ?
Il n'y a pas besoin d'ajouter de référence, cependant, tu peux vérifier si TypeLib
Information est présent dans la liste des références disponibles et vérifie aussi
(avec un msgbox par exemple) que le chemin oPath est cohérent.
MP

"Papyty" a écrit dans le message de
news:zg1sx9nqsa2q.1t7vcef3204iv$
Bonjour @ tous et à Michel Pierron :

snif j'ai une erreur d'execution ici

.ContainingFile = oPath


Une lib à activer peut etre??
--
@+
Thierry
07/01/2004 11:16:43



Avatar
Michel Pierron
Re Papyty;
En fait, je me suis mal exprimé; en fonction de la version de l'application, le
nom du fichier à prendre en compte est différent selon la liste suivante:
Application - Type Library
Microsoft Access 2000 - Msacc9.olb
Microsoft Binder 2000 - Msbdr9.olb
Microsoft Excel 2000 - Excel9.olb
Microsoft Graph 2000 - Graph9.olb
Microsoft Office 2000 - Mso9.dll
Microsoft Outlook 2000 - Msoutl9.olb
Microsoft PowerPoint 2000 - Msppt9.olb
Microsoft Word 2000 - Msword9.olb

Microsoft Access 2002 - Msacc.olb
Microsoft Excel 2002 - Excel.exe
Microsoft Graph 2002 - Graph.exe
Microsoft Office 2002 - MSO.dll
Microsoft Outlook 2002 - MSOutl.olb
Microsoft PowerPoint 2002 - MSPpt.olb
Microsoft Word 2002 - MSWord.olb

Microsoft Access 2003 - Msacc.olb
Microsoft Excel 2003 - Excel.exe
Microsoft Graph 2003 - Graph.exe
Microsoft Office 2003 - MSO.dll
Microsoft Outlook 2003 - MSOutl.olb
Microsoft PowerPoint 2003 - MSPpt.olb
Microsoft Word 2003 - MSWord.olb

MP

"Papyty" a écrit dans le message de
news:zg1sx9nqsa2q.1t7vcef3204iv$
Bonjour @ tous et à Michel Pierron :

snif j'ai une erreur d'execution ici

.ContainingFile = oPath


Une lib à activer peut etre??
--
@+
Thierry
07/01/2004 11:16:43



Avatar
Papyty
Bonjour @ tous et à Michel Pierron :
Microsoft Excel 2000 - Excel9.olb


Ok chuis un peu long à comprendre
Donc:

Sub OfficeConstantsList()
'Excel 2000
Application.ScreenUpdating = False
Dim R, Member, i As Long, oPath As String
oPath = Application.Path & "excel9.olb"
With CreateObject("TLI.typelibinfo")
.ContainingFile = oPath
Workbooks.Add
For Each R In .Constants
i = i + 1
Cells(i, 1) = R.Name: Cells(i, 1).Font.Bold = True
For Each Member In R.Members
i = i + 1
Cells(i, 1) = Member.Name
Cells(i, 2) = Member.Value
Next Member
Next R
End With
Columns("A:B").Columns.AutoFit
End Sub

Pour excel 2000 marche au poil
--
@+
Thierry
07/01/2004 16:37:29

1 2 3