enregistrement

[analyseaux]

bonjour à toutes et à tous

J'ai un classeur composé de plusieurs feuilles de calcul....je cherche un code qui permet de faire un enregistrement automatique et fermer le fichier dans le cas ou on utilise ni clavier ni souris durant 5 minutes et qu'à l'ouverture du fichier celui ci s'ouvre sur la feuille nommée "menu" alors qu'au moment de l'enregistreemnt automatique le fichier etait sur une autre feuille
MERCI

 

[Guiv]

Re : enregistrement

Bonjour,
Pour la fermeture automatique, voici un exemple glané sur le forum il y a plusieurs années mais dont j'ai oublié l'auteur (qu'il m'excuse s'il reconnait son code...)
Et pour ouvrir sur la feuille "Menu", ajouter à la procédure ThisWorkBook_Open:

Sheets("Menu").Activate

Bonne journée

 

[analyseaux]

Re : enregistrement

pouvez vous m'ajouter le code svp

 

[Staple1600]

Re : enregistrement

Bonjour à tous

voici un exemple glané sur le forum il y a plusieurs années mais dont j'ai oublié l'auteur (qu'il m'excuse s'il reconnait son code...)

Pour le plaisir de saluer Ti (qui est l'auteur de cette macro)

(voir ce fil
Lien supprimé )

 

[Guiv]

Re : enregistrement

Re,
Merci Staple d'avoir rendu justice à l'excellent Ti!!
Pour analyseaux : Alt F11 pour accéder aux codes
Bon dimanche
Guiv

 

[analyseaux]

Re : enregistrement

bonjour

Dans le fichier ci joint j'ai nommé la premiere feuille "menu" .Une fois que le classeur automatiquement enregistré et fermé je voudrais qu'à chaque reouverture de ce classeur il s'ouvre sur menu et pas sur une autre feuille puisque mon classeur est constitué de plusieurs feuilles. En absence d'une solution je vous remercie infiniment de ce que vous avez fait.

P/S Il arrive tjs que l'enregistreemnt et la fermeture du fichier se fait sur d'autres feuilles que celle nommée "menu"

 

[jeanpierre]

Re : enregistrement

Bonjour analyseaux, Guiv, JM,

En mettant ceci dans ThisWorkbook :

Private Sub Workbook_beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Worksheets("menu").Activate
End Sub

Pour ce faire, Alt F11 pour aller sous VBE, au besoin Affichage Explorateur de projet, et dans cet explorateur tu développes le petit +, si ce n'est déjà fait, et tu colles ce code dans ThisWorkbook.

Il te suffit ensuite d'enregistrer ton classeur et ainsi, même si l'utilisateur n'active pas les macros, tu seras toujours sur cette page.

Bon dimanche.

Jean-Pierre

 

[analyseaux]

Re : enregistrement

bonsoir

Merci infiniment