• Initiateur de la discussion Initiateur de la discussion ben
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour à tous

je te fais une copie de code qu'avait envoyer michel

Sub OuvrirWord()
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
WordObj.documents.Add
End Sub

Sub LanceCalculatrice()
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
End Sub

Sub OuvrirUnFichierPowerPoint()
Dim Cible
Cible = Shell("POWERPNT.EXE ""C:\Mes documents\MonFichier.ppt """, 1)
End Sub

A+ JPM
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
247
Réponses
5
Affichages
325
Réponses
22
Affichages
792
  • Question Question
Microsoft 365 Liens hypertexte
Réponses
4
Affichages
323
Réponses
16
Affichages
396
  • Question Question
Microsoft 365 Analyse des offres
Réponses
10
Affichages
116
Réponses
2
Affichages
262
Retour