Ouvrir paint Avec vba

bonjour,

Je voudrais ouvrir le logiciel paint grâce à un bouton sur excel affecté à une macro mais mon code ne fonctionne pas, je ne comprend pas. Pouvez vous m'aider?

Voici mon code :

Code:

---

1 2 3 4

Sub ouverture_paint() ChDir "C:\ProgramData" Workbooks.Open Filename:="C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories" End Sub

---

Merci bien !!

Bonjour,

regarde si ça marche chez toi

Code:

---

1 2 3 4 5

Sub Paint()   Shell ("C:\WINDOWS\system32\mspaint.exe")   End Sub

---

Tu fais plusieurs erreurs :

Premièrement la méthode Open de Workbooks n'est pas faite pour ouvrir un programme mais un fichier dans Excel.
Deuxièmement, "Accessories" n'est pas un programme mais un répertoire.
Troisièmement, l'exécutable de Paint ne se trouve pas dans Accessoiries, c'est juste son raccourci qui s'y trouve. Le programme lui-même est dans un répertoire de Windows (pour Windows XP, c'est dans C:\Windows\System32).

Je ne sais pas s'il est possible d'accéder directement à la bibliothèque d'ojets de Paint pour s'en servir "proprement".
La seule solution que je vois pour l'ouvrir est d'utiliser un Shell

Code:

---

Shell("C:\WINDOWS\SYSTEM32\MSPAINT.EXE", 1)

---

A modifier en fonction de ta version de Windows suivant le répertoire où se trouve Paint.
Prend aussi le temps d'aller dans l'aide VBA pour regarder les différentes possibilité du second paramètre de Shell.

Merci pour vos messages, ces macros fonctionnent parfaitement !