Ouverture fichier excel

Ouverture fichier excel - VB/VBA/VBS - Programmation

Marsh Posté le 03-03-2005 à 19:29:07    

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

Reply

Marsh Posté le 03-03-2005 à 19:29:07   

Reply

Marsh Posté le 03-03-2005 à 22:18:52    

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


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 03-03-2005 à 22:30:17    

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 ?

Reply

Marsh Posté le 03-03-2005 à 22:36:08    

Le nom ou l'adresse?


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 03-03-2005 à 22:40:03    

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


Message édité par AlainTech le 03-03-2005 à 22:40:55

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 03-03-2005 à 22:45:31    

Par exemple la case S3 contient "C65"

Reply

Marsh Posté le 03-03-2005 à 22:49:56    

AlainTech a écrit :

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


 
 
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 ?

Reply

Marsh Posté le 03-03-2005 à 23:24:20    

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.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 04-03-2005 à 10:21:00    

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 ???

Reply

Marsh Posté le 04-03-2005 à 10:40:46    

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

Reply

Marsh Posté le 04-03-2005 à 10:40:46   

Reply

Marsh Posté le 04-03-2005 à 10:43:43    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed