Je ne sais pas faire de macros! help !

[celine]

Bonjour

C'est encore moi, (cela fait 2 fois que je demande quelque chose aujourd'hui) : j'ai un travail à faire de mise en page et je voudrais faire une macro, mais mon problème c'est que je ne sais pas en faire!

Aidez moi s'il vous plait, je me sens vraiment nulle sur ce coup....

Merci à vous tous pour votre patience et gentillesse.

Cél

 

[BRUNO I]

Bonjour Céline,
peux tu apporter des précisions ou joindre un exemple de résultat attendu ?

Cordialement

Bruno

 

[albert]

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