3 questions pour l'exécution de Macro

Bonjour,

J'ai fais des recherches mais je n'ai pas trouvé de réponses claires.

1-Existe t-il une macro pour la sauvegarde automatique?

2-Existe t-il une macro pour la fermeture d'un fichier et/ou dossier après
10 minutes non utilisé.

3-Existe t-il une façon pour que les macros s'exécute automatiquement
à l'ouverture sans avoir a cliquer sur "activé les macros"

Pour Excel 2003 ou 2007

Les dossiesr/fichiers seront accessibles par plusieurs personnes à différents endroits.

Comme je suis nouvelle dans le concept des Macros, en plus de me répondre si oui ou non, pourriez-vous SVP me dicter les codes ou "écritures" que je devrai mettre pour rendre fonctionnelle les macros.

Merci et bonne journée

Bonsoir,
Pour la question 1 & 2
Non il n'a pas de macros toutes faites.
La meilleure manière de savoir comment faire, c'est d'utiliser l'enregistreur de macro
Ainsi pour la question 1, l'enregistreur t'aurait donné ceci.

Code:

---

1 2 3 4 5 6 7

Sub SaveAs() ChDir "Z:\Développement\Tests" ActiveWorkbook.SaveAs Filename:="Z:\Développement\Tests\SaveAs.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub

---

Avec un peut de pratique, tu pourras ne retenir ceci.

Code:

---

1 2 3 4

Sub SaveAs() ActiveWorkbook.SaveAs Filename:="Z:\Développement\Tests\Toto.xls" End Sub

---

Après, tu peux améliorer, par exemple en souhaitant avoir automatiquement la date du jour en plus de Toto . donnant ceci "AAMMJJ - Toto.xls"

Code:

---

1 2 3 4 5 6 7

Sub SaveAs() Dim leRepertoire As String, leNomDuClasseur As String leRepertoire = "Z:\Développement\Tests\" leNomDuClasseur = "Toto.xls" ActiveWorkbook.SaveAs Filename:=leRepertoire & Format(Date, "yymmdd") & " - " & leNomDuClasseur End Sub

---

Pour la question 3.
Pour enclencher automatiquement une ou plusieurs macros à l'ouverture du classeur, on utilise une procédure événementielle se trouvant dans l'objet ThisWorkbook et qui se nomme Workbook_Open
On appelle une macro par son nom ou précédé par l'instruction Call

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Test Call Test End Sub

---