ouvrir sur une feuille précise

[Laurent]

Bonjour,

j'aimerai quand on ouvre le fichier excel que celui ci s'ouvre sur la feuille "sommaire" ainsi qu'une fenetre, genre userform, s'affiche deux secondes puis s'efface.

pour le userform j'ai :

Private Sub UserForm1_Activate()
TimeDebut = Timer
DoEvents
While Timer < TimeDebut + 4
Wend
Unload Me
End Sub


mais je n'arrive pas a faire la procédure pour l'afficher..

merci

 

[bonpat]

Je pense qu'il faut que tu mettes le code dans une procédure : Worksheet_OnOpen ou quelque chose approchant...

désolé pour le manque de précision.

 

[myDearFriend]

Bonsoir Laurent, BonPat,


Laurent, ci-joint un petit exemple pour répondre à ta question...

Dans le module de code de l'objet ThisWorkbook :
Private Sub Workbook_Open()
'Active la feuille "Sommaire"
Sheets("Sommaire").Activate
'Afficher le message
UserForm1.Show
End Sub


Dans le module de code du USF :
Private Sub UserForm_Initialize()
'Lancer le Chrono
Bonjour
End Sub

Dans un autre module de code :
Dim Temps As Date
Sub Bonjour()
'Décharger le USF dans 2 secondes
Temps = Now + TimeValue("00:00:02")
Application.OnTime Temps, "AuRevoir", , True
End Sub
Sub AuRevoir()
Unload UserForm1
End Sub



Cordialement,
Didier_mDF

 

[Laurent]

merci

 

[CHti160]

Salut "à tous "
j'interviens ,Veuillez m'en excuser pour demander
à"notre cher ami "(myDearFriend) s'il peut me renseigner
je cherche le code qui permet après validation d'un nom dans une listeBox ,d'ouvrir un liens Hypertexte qui porte ce nom dans une cellule qui est sélectionnée OUF!!!!
j'ai utilisé ce code mais bon!!!! lol ;0)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count = 1 And Target.Hyperlinks.Count Then
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Unload UserForm1
End If
End Sub

merci d'avance
A+++
Jean Marie

 

[myDearFriend]

Salut Jean-Marie (Chti160)


Effectivement, ta question n'a rien à voir avec ce fil...

Ceci dit, là, je dois avouer que je n'ai pas tout compris dans ta demande Lol....

Que contient la cellule avant que tu choisisses un élément dans la ListBox ?
A quelle moment ton USF s'ouvre t'il ?
A quoi le lien hypertexte correspond il (une URL....) ?
Le but est de créer le lien dans la cellule, ou d'activer le lien qui se trouve dans la cellule ?

Peux-tu développer STP ? (et joindre un éventuel exemple)


Cordialement,
Didier_mDF

 

[CHti160]

re "mydear"
OUI je transforme du text en liens que je nomme
puis j'approvisionne ma liste dans un USF et quand je selectionne donc le nom de ce liens dans la listbox du USF
je veux que se liens s'ouvre OUPS!!!!
merci par avance
A++
JeanMarie

 

[myDearFriend]

Liens dans une ListBox

Re- Jean-Marie,


Si j'ai bien compris ce que tu souhaites, l'exemple joint devrait faire l'affaire...

Dis-moi si ça te convient.


Cordialement,
Didier_mDF

 

[CHti160]

salut "myDearFriend"
je te remercie
je crois que je t'ai envoyé un message par mail ????? ,mais tu sais je ne suis pas un pro ,ni du message ni du "FORUM" mais bon je ne désespére pas
encore merci oh cas où!!!!(tu n'aurais pas reçu celui ci) ;0)
A+++
Jean Marie