Faire clignoter une cellule sur Excel avec VBA et lien hypertexte

Faire clignoter une cellule sur Excel avec VBA et lien hypertexte - VB/VBA/VBS - Programmation

Marsh Posté le 28-08-2006 à 13:09:56    

Bonjour au forum
 
Je veux créer un lien hypertexte d'un fichier excel Modele.xls sur un autre fichier excel Cible.xls. Ce lien doit me permettre d'arriver directemnt sur une cellule ou une plage du fichier Cible xls. Je l'ai fait manuellement: aucun souci.
Ce que je souhaite surtout, c'est que ma cellule ou ma plage sur Cible.xls clignote après avoir cliqué sur le lien qui se trouve dans Modele.xls
J'utilise le code suivant:
 
Public OrigBkgCol As Long, OrigTxtCol As Long
Public OldCell As Range
Sub InitFlash()
Set OldCell = ActiveCell
OrigBkgCol = ActiveCell.Interior.ColorIndex
OrigTxtCol = ActiveCell.Font.ColorIndex
Application.OnTime Now + TimeValue("00:00:01" ), "Flash"
End Sub
Sub Flash()
If ActiveCell.Interior.ColorIndex < 0 Then
ActiveCell.Interior.ColorIndex = 3 'fond roge
ActiveCell.Font.ColorIndex = 2 'texte en blanc
Else
ActiveCell.Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
ActiveCell.Font.Color = 1
End If
Application.OnTime Now + TimeValue("00:00:01" ), "Flash"
End Sub
 
J'ai collé le code suivant dans This Workbook
 
Private Sub Workbook_Open()
If ActiveCell.Interior.ColorIndex < 0 Then
ActiveCell.Interior.ColorIndex = 3 'fond roge
ActiveCell.Font.ColorIndex = 2 'texte en blanc
Else
ActiveCell.Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
ActiveCell.Font.Color = 1
End If
Application.OnTime Now + TimeValue("00:00:01" ), "Flash"
 
Si je lance manuellement mon code dans Cible.xls, la cellule sélectionnée clignote bien. Par contre, quand je clique sur le lien dans mon fichier Modele.xls afin de lancer la macro à l'ouverture de Cible.xls, mise à part, le coloriage de la cellule en rouge, le clignotement ne se produit pas.
 
Pouvez-vous m'expliquer ce qui ne va pas dans ma procédure?
 
Merci beaucoup.

Reply

Marsh Posté le 28-08-2006 à 13:09:56   

Reply

Marsh Posté le 28-08-2006 à 18:39:01    

Bonsoir,
j'ai collé la première partie dans module1 et la deuxième dans Private Sub Workbook_Activate()
et cela clignote
Cordialement

Reply

Marsh Posté le 28-08-2006 à 18:43:50    

Bonsoir senior
 
Est-ce que tu lances bien la macro à partir du fichier que j'appelle Modèle et qui doit contenir un lien hypertexte vers le fichier cible? Il faut cliquer sur ce lien pour lancer la macro dans le fichier Cible.

Reply

Marsh Posté le 28-08-2006 à 18:50:23    

Bonsoir,  
la macro est dans le activate de cible
j'ai fais un fichier modèle avec le lien:cible.xls#D2
je clique sur le lien, le fichier cible est activé et D2 clignote
c'est cela ?
Cordialement

Reply

Marsh Posté le 28-08-2006 à 19:00:21    

RE
j'ai rajouté la séquence dans Workbook_open pour traiter le cas du cible pas encore ouvert

Reply

Marsh Posté le 28-08-2006 à 19:03:01    

Oui, c'est ça.Ça ne fonctionne pas chez moi. Je ne comprends. J'ai peut-être mal placé mes codes.

Reply

Marsh Posté le 28-08-2006 à 19:14:49    

Bonsoir, en plus dans flash, il fau tester si ta cellule active est bien la cellule selectionnée à l'entrée, et dans le workbook cible.xls

Reply

Marsh Posté le 29-08-2006 à 20:32:09    

Bonsoir,toujours intéressé par une solution?
Tu ne m'as pas envoyé de "modele" simplifié?
j'ai bien une solution mais avant j'aimerais avoir des précisions
Cordialement

Reply

Marsh Posté le 30-08-2006 à 15:31:42    

Bonjour,
comme dab, une horrible bidouille, qui devrait fonctionner si cible est déjà open ou non.
 
modele
cible
à enregistrer avant d'ouvrir
Cordialement


Message édité par seniorpapou le 30-08-2006 à 15:32:45
Reply

Marsh Posté le 30-08-2006 à 19:53:41    

Bonsoir
 
Merci mais quand je clique pourr l'instant sur le lien, j'ai le message suivant: impossible d'ouvrir le fichier spécifié. Ce n'est pas grave. A priori, on cherche une autre solution avec un logiciel spécifique. Pour l'instant, je laisse en suspens.
Merci de t'être penché sur le problème.

Reply

Marsh Posté le 30-08-2006 à 19:53:41   

Reply

Marsh Posté le 30-08-2006 à 19:55:32    

bonsoir,
le lien doit indiquer le chemin du fichier sur mon ordi, il faut que tu  refasses le lien.
 
si tu trouves un produit qui fonctionne tu pourras peut-être nous le communiquer?
Cordialement


Message édité par seniorpapou le 30-08-2006 à 20:04:38
Reply

Marsh Posté le 31-08-2006 à 12:54:27    

Bonjour
 
Il s'agit d'un logiciel professionnel. Le prix de la licence est beaucoup trop élevé pour un particulier d'autant plus qu'il a justement une utilité professionnelle .Et encore, je ne suis pas sûr qu'il puisse répondre à ce que je veux faire ou plus particulièrement ce qu'attend mon chef.Comme je te l'avais expliqué précédemment, on avait pensé à un autre logiciel mais celui-là n'auarit servi qu'une journée et en plus il faut au bas mot 15 jours de formation.En fait l'idée paraît simple sauf qu'il s'agit de faire un lien entre excel et un autre logiciel mais apparemment ce n'est pas possible.J'avais donc pensé à faire un lien d'excel sur excel.Je vais voir si le lien peut être fait entre excel et le logiciel qu'on a décidé d'achter finalement.Aparemment ces deux logiciels sont compatibles mais on ne peut pas tout faire.

Reply

Marsh Posté le 31-08-2006 à 13:11:46    

Bonjour,
OK

Reply

Sujets relatifs:

Leave a Replay

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