Ouverture des feuilles en A1

Bonsoir

Range("A1").select

crdlmnt

Bonsoir Vaucluse

J'ai mis ça dans "This workbook :

Private Sub Workbook_Open() ' ouverture du fichier sur le 1er onglet
Sheets(1).Activate
Range("A1").Select
End Sub

Mais ça ne donne pas l'effet escompté.

Me suis-je trompé ?

Si j'ajoute :

Private Sub Workbook_Open() ' ouverture de la feuille en cellule A1
Range("A1").Select
End Sub

A chaque feuille concernée, ça ne fonctionne pas.

Je crois que je n'ai pas tout compris ... Dsl.

Bonjour

Private Sub Workbook_Open()
Feuil1.Select
Application.GoTo Range("A1"), True
End Sub

A+

Maurice

Bonsoir Foo

J'ai essayé ceci :

Ce code dans Feuille 7 (qui s'appelle "Disney")
Ce code en modifiant Feuil1.Select en Feuil7.Select
Ce code dans ThisWorkBook
Ce code dans ThisWorkBook en modifiant Feuil1.Select en Feuil7.Select
Ce code dans Module1.

Je crois ne pas avoir tout compris, j'ai encore besoin d'un coup de main.
Merci d'avance !

Bonjour touroul, le forum,

Ce code dans ThisWorkBook va ouvrir toutes les feuilles en position A1 :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.[A1].Activate
End Sub

bonsoir

Feuil7(Disney) , Feuil7 = CodeName du Nom de l'onglet

if faut utiliser le CodeName pour les macro comme ca on peut changer l'onglet comme on veux
Bon dodo
A+

Maurice

Bonsoir cher gbinforme

Je vois que tu t'y mets !

Malheureusement pour moi, après avoir copié ton code dans ThisWorkBook, à l'ouverture du fichier :
- il s'ouvre sur la feuille ouverte au moment du dernier enregistrement et pas sur la toute première feuille comme souhaité.
- La cellule P50, sélectionnée lors du dernier enregistrement, est toujours celle sélectionnée à l'ouverture du fichier.

@ Maurice : pardon mais je n'ai pas les bases qu'il faut pour comprendre ta réponse.

En tout cas merci de prendre mon problème à coeur, désolé mais j'ai le souci du détail !

A plus !

Exact cher gbinforme

En faisant ainsi :
- le fichier s'ouvre bien sur ma première feuille
- Chaque feuille s'ouvre en A1, et pas seulement à la réouverture du fichier, mais à chaque fois que je quitte et reviens à la feuille.

Un grand merci une fois de plus et bon week-end !

Bonjour à tous
Bonjour Gbinforme

Je reviens vers vous à propos de cette macro qui faisait bien mon affaire ...
Pour des questions pratiques, j'ai figé la première ligne et la première colonne de chaque fiche.
Cette action inactive la macro.
Y aurait-il un moyen de contourner cet écueil ?

D'avance merci pour votre aide et bonne journée !

Bonjour touroul,

j'ai figé la première ligne et la première colonne de chaque fiche.

Qu'entends-tu par là ?
Si c'est bien le menu "affichage" / figer les volets, cela ne change rien.
Si tu as "masqué" la ligne 1 et la colonne A, il faut remplacer A1 par B2 dans la macro.

Salut le forum

Dans la même veine que ci-dessus, j'ai essayé d'adapter vos macros pour le résultat suivant :

- Ouverture du fichier sur le premier onglet :
Ça fonctionne avec ça :
Private Sub Workbook_Open() ' ouverture du fichier sur le 1er onglet
Sheets(1).Activate
End Sub

- Sélectionner, à l'ouverture du fichier seulement, la cellule A1 sur toutes les feuilles :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.[A1].Activate
End Sub
Mais ce code place en A1 à chaque changement de feuille, et pas seulement à l'ouverture du fichier.

Et j'ai essayé avec le code de Foo ci-dessus sans succès.
J'ai essayé un tas de trucs et maintenant je suis carrément perdu.
Donc je me résigne à vous demander de chauffer les neurones ...

Merci d'avance !

Bonsoir GBinforme !

Merci pour ton code.
Il reste malheureusement sans résultat, il doit y avoir un p'tit truc qui cloche ...
La feuille ne s'ouvre pas en Sheet(1).
A l'ouverture les feuilles ne se placent pas en A1.
Un petit fichier exemple :
https://www.cjoint.com/?DApwcNF6Cvc
En tout cas merci et bonne soirée !