Discussion :

[aweb]

Bonjour,
J'ai un classeur Excel qui sera sur un serveur, et sur lequel bon nombre de personnes pourront modifier ce classeur.
Lorsque ces personnes enregistreront le classeur à n'importe quel endroit, à l'ouverture suivante il s'ouvrira à l'endroit où la dernière personne l'aura enregistré.
Existe t-il une solution pour qu'à chaque nouvelle ouverture de ce classeur, on arrive directement à la première feuille. Sur cette première feuille nommée "Liste des salariés" car c'est ici que sera noté la procédure et différents liens hypertexte pour aller directement au bon endroit.
Merci pour votre aide.
Cordialement

[Invité]

Bonjour,

Vous pouvez mettre cette procédure dans "ThisWorkbook" :

Code :

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

1
2
3
Private Sub Workbook_Open()
Sheets("Liste des salariés").Select
End Sub

[aweb]

Merci pour la réponse,

Mais faut-il mettre autre chose avant ou après, je ne connais pas bien les programmes, et seulement ce code ne fonctionne pas?

[Invité]

Normalement ce code suffit.

Je viens encore de tester :

-enregistrer le fichier avec une autre feuille sélectionnée puis le fermer.

-ouvrir le fichier en appuyant sur la touche "Shift" : il s'ouvre sur la feuille précédemment sélectionnée (normal l'ouverture en appuyant sur Shift désactive le lancement de la macro).

-ouvrir le fichier normalement : c'est bien la feuille "Liste des salariés" qui est active.

Quelle version d'Excel avez-vous ?

[aweb]

C'est Excel 2003

Il m'ouvre une fenêtre Microsoft Visual Basic et indique:
Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.


Voilà ce que j'ai mis dans ThisWorkbook du VBAProject (PERSO.xls)

Sub Ouverturepremierefeuille()
'
' Ouverturepremierefeuille Macro
' Macro enregistrée le 17/09/2008 par Anthony DROUET
'

'
Private Sub Workbook_Open()
Sheets("Liste_des_salariés").Select

End Sub

[casavba]

tu mets que ça :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Sheets("Liste_des_salariés").Select
 
End Sub

enlève : Sub Ouverturepremierefeuille()

[aweb]

Désolé,
çà marche impeccable.
Il fallait mettre le code dans ThisWorkbook du classeur et non pas dans le perso.xls

Merci beaucoup