Bonjour
J'ai cré un fichier excel où la valeur de la cellule "S3" contient la valeur d'une autre cellule (par exemple "C65" ).
Je souhaiterais que lorsque j'ouvre ce fichier, excel se positionne directement sur cette cellule (ou sur la ligne la contenant)
 
Auriez - vous une idée ?
 
Merci par avance

Tape Alt + F11
Fais un double clic sur ThisWorkbook (à gauche)
Dans la fenêtre de droite, ouvre Général et clique sur Workbook
Entre les 2 lignes qui se sont créées, tape [S3].Select
Sauve ton document.
C'est tout

Merci pour ta réponse que je viens d'essayer.
 
Mais cela ne correspond pas à ce que je veux.
 
la case S3 contient le nom d'une autre case de la feuille (qui est calculé automatiquement) et je voudrait qu'excel ouvre cette feuille sur la case calculé dans la case S3.
 
Est-ce clair ?

Le nom ou l'adresse?

Pour l'adresse, ça donne:
  Dim sDest As String
  sDest = [S3]
  Range(sDest).Select

Par exemple la case S3 contient "C65"

 
 
Je viens d'essayer cette commande et ca marche bien.
 
Le seul probleme est que dès que je clique sur une autre cellule excel me remet automatiquement sur la cellule indiqué dans S3 ???
 
Une idée ?

La sub qui a dû être créée dans vba est Private Sub Workbook_Open()
(C'est comme ça en Excel 97)
 
Elle ne s'exécute qu'à l'ouverture du fichier.
 
Si c'est une autre sub qui a été créée, corrige.

J'ai écrit ça :
 
Private Sub Workbook_Open()
    Dim sDest As String
    sDest = [S3]
    Range(sDest).Select
End Sub
 
Mais lorsque j'ouvre le fichier excel, il selectionne la cellule active lors du dernier enregistrement ???

Je viens de résoudre mon probleme en faisant ça :
 
Private Sub Workbook_Open()
    Sheets("Planning" ).Select
End Sub
 
Private Sub Worksheet_Calculate()
    Dim sDest As String
    sDest = [R3]
    Range(sDest).Select
End Sub
 
Le problème est que lorsque je modifie une cellule d'une autre feuille du classeur j'ai le déboggeur qui se lance.
 
Comment faire pour que :
Private Sub Worksheet_Calculate()
    Dim sDest As String
    sDest = [R3]
    Range(sDest).Select
End Sub
 
ne s'execute que sur la feuille : "Planning" et sur aucune autre ?
 
Merci encore pour votre aide

Probleme résolu merci encore à tous !!!
 
Voici la solution :
 
Private Sub Workbook_Open()
    Sheets("Planning" ).Select
    Dim sDest As String
    sDest = [R3]
    Range(sDest).Select
End Sub