bonjour celine, bruno,
Pour reprendre l’exemple ShellWord.
<http://www.excel-downloads.com/html/French/forum/messages/1_119721_119721.htm>
Tu vas dans la macro ainsi :
Alt+F11
Ou outils/Macro/Visual Basic Editor
Sub NotePadSysteme()
On Error GoTo Erreur
Status = Shell("notepad.exe", 1)
Exit Sub
Erreur:
MsgBox "Désolé, je ne peux pas trouver le bloc-notes." & vbNewLine _
& "Assurez-vous que vous avez installer le Bloc-notes de Windows." _
, vbExclamation
End Sub
ou avec l’enregistreur de macro (tu ouvres un nouveau classeur excel)
<http://www.cathyastuce.com/excel/macros.php>
outils/Macro/Nouvelle macro – OK sur la boîte de dialogue
Puis dans excel : Insertion/Lien Hypertexte (ou Ctrl+K)
Dans la boîte de dialogue : rechercher/Fichier
Dans la barre d’adresse, tu écris C:\WINNT\system32\notepad.exe
Ok
outils/Macro/arrêter l’enregistrement
l’adresse est dans la page si tu cliques dessus notepad s’ouvre
pour voir le code :
Alt+F11
Module1
Le code
Sub Macro1()
Windows("Classeur1").Activate
Windows("ShellWord.xls").Activate
Windows("Classeur1").Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\WINNT\system32\notepad.exe"
End Sub
albert