XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte

ANTONY34200 · 14 Septembre 2023

Bonjour à tout le forum.
J'ai un soucis depuis que je suis passé sur excel 2019 pro.
Avec 2013 pro, j'ai créée avec l'aide du forum une application de planning.
Sous 2013 pro, tout fonctionne parfaitement.
Sous 2019 pro, j'ai un soucis avec un code vba, dans le module "fonction_et_sous programme".
losrque que je nagigue entre les onglets et que je reviens sur l'onglet "G" j'ai un débogage sur cette ligne de code

VB:

' Insertion lien hypertexte
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:=Cible, TextToDisplay:=NouveauNom

je ne comprends pas pourquoi, vue que sous 2013 tout allait bien. Le code ci-dessus est un extrait du code suivant :

Code:

Sub CumulTempsMensuel()
t0 = Timer
' Accélération par inhib events
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
' Effacement liste agents et temps
Sheets("G").Range("B6:C100").ClearContents
' Construction liste agents
Nagents = Application.WorksheetFunction.CountA(Sheets("Parametre").Range("H4:H100"))
For N = 1 To Nagents
    NouveauNom = Sheets("Parametre").Range("H" & 3 + N)
    IndexAGT = Sheets("Parametre").Range("J" & 3 + N)
    Sheets("G").Range("B" & 5 + N).Select
    Cible = "'" & "AGT " & IndexAGT & "'!$D$5"
    ' Insertion lien hypertexte
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:=Cible, TextToDisplay:=NouveauNom
Next N
' transfert tableau planning dans array
tablo = Range("D6:QL36")
' Calcul des temps par agent
For Agent = 1 To Nagents                                            ' Pour tous les agents
    NomAgent = LCase(Cells(Agent + 5, 2))
    Durée = 0
    For Jour = 1 To 31                                              ' Pour tous les jours
        For Sites = 1 To 90                                         ' Pour tous les sites
            Nom = tablo(Jour, 5 * Sites - 3)                        ' Colonne du nom
            If LCase(Nom) = NomAgent Then                           ' Si c'est l'agent concerné
                Tdeb = tablo(Jour, 5 * Sites - 3 + 2)               ' Recup temps de début
                Tfin = tablo(Jour, 5 * Sites - 3 + 4)               ' Recup temps de fin
                If Tfin <= Tdeb Then Tfin = Tfin + 1                 ' Si fin < début on rajoute 24H
                Durée = Durée + Tfin - Tdeb                         ' Ajout du temps à la durée
            End If
        Next Sites
    Next Jour
    If Durée * 24 > 0 Then
        Cells(Agent + 5, 3) = Durée * 24                            ' on affiche que s'il y a un temps
    End If
Next Agent
' Retour events
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.StatusBar = "Temps de calcul page G : " & Round(1000 * (Timer - t0), 0) & "ms"
End Sub

Si quelqu'un pouvait m'aider, ou avoir un début de piste pour modifier ce code ...
Je vous joint mon fichier.
Merci d'avance, a tous ceux qui liront mon post, et qui pourront m'aider.

ANTONY34200 · 15 Septembre 2023

Bonjour le Forum, Sylvanu,
j'ai résolu le problème !!!
c'était la protection de la feuille G qui empêchait le code du liens hypertexte de faire son travail !!!
donc dans le bouton rafraichir j'ai fait ça :

VB:

Sub BoutonRafraichir()
Sheets("G").Unprotect
' Sur appui bouton dans General
    FlagTri = 1         ' Autorise le tri ( qui est long )
    CumulTempsMensuel
    FlagTri = 0         ' Interdit le tri lorsqu'on selectionne la page General (gain de temps)
    Reperer_Doublon
    Sheets("G").Unprotect
    Sheets("G").Range("30:40").EntireRow.Hidden = False                       ' remettre visible les lignes masquées
    ' Ligne 32 corrsepond au 27 du mois ( cas défavorable de février )
    For i = 32 To 37
        If...

sylvanu · 14 Septembre 2023

C'est le rôle du lien hypertexte, c'est ce qu'est censé faire cette ligne de code. Mettre le nom de l'agent et y ajouter l'adresse où il doit aller.

ANTONY34200 · 14 Septembre 2023

je l'avais bien compris ... et il y a pas moyen de faire autrement que le lien hypertexte ??

sylvanu · 14 Septembre 2023

Essayez ça pour voir. Mais je n'aime vraiment pas ça, mais c'est uniquement pour essayer.
J'ai supposer que tous les agents s'appelaient AGT x, et non par leur nom, sinon ça ne marche pas.
Dans CumulTempsMensuel, j'ai mis le lien en commentaire et mis :

VB:

For N = 1 To Nagents
    NouveauNom = Sheets("Parametre").Range("H" & 3 + N)
    IndexAGT = Sheets("Parametre").Range("J" & 3 + N)
    Sheets("G").Range("B" & 5 + N) = "AGT " & IndexAGT
    
    'Cible = "'" & "AGT " & IndexAGT & "'!$D$5"
    ' Insertion lien hypertexte
    'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:=Cible, TextToDisplay:=NouveauNom
Next N

Et dans la feuille G, j'ai mis :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo FinLstAGT
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B6:B96]) Is Nothing Then
        If Target = "" Then Exit Sub
        NomFeuille = Target: [B1].Select
        Sheets(NomFeuille).Select
    End If
FinLstAGT:
End Sub

Mais j'ai horreur de ce genre de bidouille. On ne sait pas ce qu'on fait.
Donc tout au plus, si ça marche, cela voudra dire que c'est bien le lien ( syntaxe ou autre ) qui pose soucis.
C'est ce problème qu'il faut résoudre.

ANTONY34200 · 14 Septembre 2023

effectivement ... pas très pratique
sous 2013, ça fonctionne et sous 2019 ça fonctionne aussi, mais on ne sait plus a quel agent on a a faire et les heurs ne s'affiche plus en face

ANTONY34200 · 14 Septembre 2023

sans prendre en compte la PJ du post 18, et dans l'hypothèse ou on retire le liens hypertexte, est-il possible de, devant le nom de l'agent, noté le nom de sa fiche ?

sylvanu · 14 Septembre 2023

C'est une usine à gaz, et reprendre ça va conduire à de multiples effets de bord, du fait que des modules ont été rajoutés au fur et à mesure et que tout est imbriqué.
La solution doit passer par résoudre le pb des liens, qui n'a pas lieu d'être.

ANTONY34200 · 14 Septembre 2023

OK, je comprends, mais là, je ne saurais pas gérer ou résoudre ce problème ...
je comprends pas que 2019, ne puisse pas reconnaitre les codes de 2013 ...

ArnaudFaches · 14 Septembre 2023

Bonjour Antony, sylvanu

Question bête mais as-tu posé ta question à chat GPT ? Il m'a déjà aidé pour résoudre des problèmes de comptabilité entre fichiers

Bonne journée

ANTONY34200 · 14 Septembre 2023

ArnaudFaches à dit:
Bonjour Antony, sylvanu

Question bête mais as-tu posé ta question à chat GPT ? Il m'a déjà aidé pour résoudre des problèmes de comptabilité entre fichiers

Bonne journée

Bonjour, très franchement non

sylvanu · 14 Septembre 2023

Re,
Un point intéressant dans la réponse de Bard ( ChaptGPT de Google ) à :

Les liens hypertextes écrits avec une macro VBA d'Excel 2013 ne fonctionnent plus avec Excel 2019. Quel peut être le problème ?

est :

Il y a plusieurs raisons possibles pour lesquelles les liens hypertextes écrits avec une macro VBA d'Excel 2013 ne fonctionnent plus avec Excel 2019. Voici quelques-unes des causes les plus courantes :

Les chemins des fichiers ou des dossiers ont été modifiés. Si les liens hypertextes pointent vers des fichiers ou des dossiers qui ont été déplacés ou renommés, ils ne fonctionneront pas. Vous pouvez résoudre ce problème en mettant à jour les chemins des liens hypertextes.

Les paramètres de sécurité ont changé. Excel 2019 a des paramètres de sécurité plus stricts que Excel 2013. Cela peut empêcher les macros VBA de s'exécuter, ce qui peut empêcher les liens hypertextes d'être ouverts. Pour résoudre ce problème, vous pouvez désactiver les paramètres de sécurité ou ajouter une exception pour la macro VBA qui crée les liens hypertextes.

Il y a un problème avec le code VBA. Il est possible qu'il y ait une erreur dans le code VBA qui crée les liens hypertextes. Si vous avez des compétences en VBA, vous pouvez essayer de déboguer le code pour trouver l'erreur.

ANTONY34200 · 14 Septembre 2023

jke viens de mettre XL 2013 et XL 2019 au meme niveau de sécurité ... XL 2019 bloque toujours le code

ANTONY34200 · 14 Septembre 2023

j'ai mis se post sur un autre forum.
Une persone dit :

Bonjour,
J'ai survolé votre code mais il y a quelque chose qui m'interpelle. C'est l'objet Selection alors que vous êtes dans une boucle et que je ne vois pas la sélection bouger. Cela signifierait que vous faites x fois la même opération dans la même cellule ?

sylvanu · 14 Septembre 2023

Re,
Un essai en PJ en essayant de supprimer les liens hypertexte sans trop changer le reste.
Même si ça marche, bien vérifier tous les points.

ANTONY34200 · 14 Septembre 2023

Re, déja 3 constats
1- le liens hypertexte fonctionne
2- il faut que j'écrive 1 - Antony dans la feuille "G"
3- rien ne se transfert dans la feuille de l'agent AGT1

Je vais voir, si j'arrive a comprendre quelque chose au code que vous avez modifié

ANTONY34200 · 14 Septembre 2023

j'ai retiré
"IndexAGT & " - " &
et la ça a l'air de fonctionner, je fais d'autre test

XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte

ANTONY34200

XLDnaute Occasionnel

Pièces jointes

ANTONY34200

sylvanu

XLDnaute Barbatruc

ANTONY34200

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

ANTONY34200

XLDnaute Occasionnel

ANTONY34200

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ANTONY34200

XLDnaute Occasionnel

ArnaudFaches

XLDnaute Nouveau

ANTONY34200

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ANTONY34200

XLDnaute Occasionnel

ANTONY34200

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

ANTONY34200

XLDnaute Occasionnel

ANTONY34200

XLDnaute Occasionnel

Discussions similaires