Discussion :

[Missteigne]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Workbook_Open()
   Test
   Call Test
End Sub