Déclaration de variable : déclarer un lien

**jerem56** · 27/02/2014, 10h52

Bonjour,

Je bloque sur un petit problème. Lorsque je lance ma macro une erreur de type erreur d'execution 13: Incompatibilité de type apparait. Au fait, je dois gérer une donnée qui est un lien hypertexte html. J'ai déclaré la variable dans ma fonction avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oLink As String

et l'erreur apparaît au niveau du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(OPS_Table & "[[#Headers],[Link]]").Cells(i + 1, 1).Value = oLink

Je ne sais pas comment faire. Pouvez vous me conseiller?

Merci d'avance!

**jerem56** · 27/02/2014, 13h08

En faisant plusieurs tests je me suis rendu compte que la macro fonctionnait, mais que ça bloquait au moment de la mise a jour dans mon ishare car les liens copiés dans les cellules n'étaient plus actifs. Comment dois je coder pour les réactiver?

Merci d'avance!

**jijie** · 27/02/2014, 15h08

Ne sais pas trop mais si tu te penche sur ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range.Cells(i + 1, 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

**jerem56** · 27/02/2014, 17h08

Je n'arrive pas à faire fonctionner la macro avec cette ligne de code.

**jijie** · 27/02/2014, 17h55

et si tu fait ainsi :

pour écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub EcrireLien()
 
Dim Lien As String
Lien = "http://www.developpez.net/forums/d1419685/logiciels/microsoft-office/excel/macros-vba-excel/declaration-variable-declarer-lien/#post7713643"
 
 
    Sheets("feuil1").Hyperlinks.Add Anchor:=Sheets("feuil1").Range("B4"), Address:=Lien _
        , SubAddress:="post7713643", TextToDisplay:="developpez"
End Sub

pour lire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub LireLien()
Sheets("feuil1").Range("B4").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

**jerem56** · 28/02/2014, 10h54

Salut jijie!

Déjà je te remercie pour le temps que tu accordes à mon problème. Je n'arrive toujours pas à appliquer le code que tu me donnes.
En se limitant à la colonne de la feuille contenant les liens n'y a t-il pas une syntaxte pour activer les liens que j'ai copiés.

**jijie** · 28/02/2014, 11h56

Salut,

Donc pourrais-tu ds un fichier vierge enregistrer un macro en collant le lien dans une cellule tu clique sur une autre cellule et tu lance la cellule du lien et passe nous le code que tu trouve !

à suivre!

**jerem56** · 28/02/2014, 12h12

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("F29").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://google.fr/" _
        , TextToDisplay:="http://google.fr/"
    Selection.Copy
    Range("D23").Select
    ActiveSheet.Paste
End Sub

Voici ce que tu me demandes. Enfin, je pense (je suis novice en vba).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub find_and_update_OP(oProject As String, oHistory As String, oTitle As String, oLink As String, oValue As String)
    Dim i As Integer
    Dim isUpdated As Boolean
 
    isUpdated = False
    nb_OPS_Table = ActiveWorkbook.Worksheets(OPS_Table_SHEET).ListObjects(OPS_Table).ListRows.Count
    For i = 1 To nb_OPS_Table
        'Si bon projet et histo correct, je remplis
        If (Range(OPS_Table & "[[#Headers],[Project]]").Cells(i + 1, 1).Value = oProject And Range(OPS_Table & "[[#Headers],[History]]").Cells(i + 1, 1).Value = oHistory And Range(OPS_Table & "[[#Headers],[Title]]").Cells(i + 1, 1).Value = oTitle) Then
            Range(OPS_Table & "[[#Headers],[Comment]]").Cells(i + 1, 1).Value = oValue
            Range(OPS_Table & "[[#Headers],[Link]]").Cells(i + 1, 1).Clear
            Range(OPS_Table & "[[#Headers],[Link]]").Cells(i + 1, 1).Value = oLink
            'Range("Link").Hyperlink(1).Follow NewWindow:=False, AddHistory:=True
            isUpdated = True
        End If
    Next i
 
    If (isUpdated = False) Then
        Range(OPS_Table & "[[#Headers],[Comment]]").Cells(nb_OPS_Table + 2, 1).Value = oValue
        Range(OPS_Table & "[[#Headers],[Project]]").Cells(nb_OPS_Table + 2, 1).Value = oProject
        Range(OPS_Table & "[[#Headers],[Title]]").Cells(nb_OPS_Table + 2, 1).Value = oTitle
        Range(OPS_Table & "[[#Headers],[History]]").Cells(nb_OPS_Table + 2, 1).Value = oHistory
        Range(OPS_Table & "[[#Headers],[Link]]").Cells(nb_OPS_Table + 2, 1).Value = oLink        
     End If
 
End Sub

Et ici une partie du code que j'écris pour copier mes liens. Mes liens se copient parfaitement mais ne sont pas actifs ce qui m'empêchent de faire la synchro avec mon ishare.

**jerem56** · 28/02/2014, 18h02

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub find_and_update_OP(oProject As String, oHistory As String, oTitle As String, oFlag As String, oValue As String)
    Dim i As Integer
    Dim isUpdated As Boolean
 
    isUpdated = False
    nb_OPS_Table = ActiveWorkbook.Worksheets(OPS_Table_SHEET).ListObjects(OPS_Table).ListRows.Count
    For i = 1 To nb_OPS_Table
        'Si bon projet et histo correct, je remplis
        If (Range(OPS_Table & "[[#Headers],[Project]]").Cells(i + 1, 1).Value = oProject And Range(OPS_Table & "[[#Headers],[History]]").Cells(i + 1, 1).Value = oHistory And Range(OPS_Table & "[[#Headers],[Title]]").Cells(i + 1, 1).Value = oTitle) Then
            Range(OPS_Table & "[[#Headers],[Comment]]").Cells(i + 1, 1).Value = oValue
            With Worksheets(OPS_Table_SHEET)
                   .Hyperlinks.Add Anchor:=.Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1), _
                    Address:=oFlag, _
                    ScreenTip:=oFlag, _
                    TextToDisplay:=oFlag
                End With
            'Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1).Clear
            'Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1) = oFlag
            'Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1).Select
            'Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=oFlag
            'Range("Flag").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            'Worksheets(OPS_Table_SHEET).Range("Flag").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            isUpdated = True
        End If
    Next i
 
    If (isUpdated = False) Then
        Range(OPS_Table & "[[#Headers],[Comment]]").Cells(nb_OPS_Table + 2, 1).Value = oValue
        Range(OPS_Table & "[[#Headers],[Project]]").Cells(nb_OPS_Table + 2, 1).Value = oProject
        Range(OPS_Table & "[[#Headers],[Title]]").Cells(nb_OPS_Table + 2, 1).Value = oTitle
        Range(OPS_Table & "[[#Headers],[History]]").Cells(nb_OPS_Table + 2, 1).Value = oHistory
        With Worksheets(OPS_Table_SHEET)
                   .Hyperlinks.Add Anchor:=.Range(OPS_Table & "[[#Headers],[Flag]]").Cells(nb_OPS_Table + 2, 1), _
                    Address:=oFlag, _
                    ScreenTip:=oFlag, _
                    TextToDisplay:=oFlag
                End With
 
        'Range(OPS_Table & "[[#Headers],[Flag]]").Cells(nb_OPS_Table + 2, 1) = oFlag
        'Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1).Select
        'Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=oFlag
        'Range("Flag").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        'Worksheets(OPS_Table_SHEET).Range("Flag").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
     End If
 
End Sub

J'ai peut-être une piste. Avec ce code, il me copie le première lien puis me génère une erreur de type 1004 La méthode Range de l'objet global a échoué. Et pour le débogage ca me renvoie a la ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If (Range(OPS_Table & "[[#Headers],[Project]]").Cells(i + 1, 1).Value = oProject And Range(OPS_Table & "[[#Headers],[History]]").Cells(i + 1, 1).Value = oHistory And Range(OPS_Table & "[[#Headers],[Title]]").Cells(i + 1, 1).Value = oTitle) Then

Je dois répéter l'opération 4 fois pourr qu'il me recopie les 4 liens. Au fait, il me copie un lien me génère l'erreur, me copie le deuxième et pareil et ce jusqu'au 4ieme.

Savez vous d'ou ca peut venir?
Merci

**jijie** · 28/02/2014, 18h41

Pour ma par je ne pense pas être à la hauteur car :

nb_OPS_Table , [#Headers],[Project] , oProject ...... ça correspond à quoi ?

il y a certainement une personne qui sait de quoi tu parle!!?

essaye peu-être d'envoyer ton fichier si c'est possible ou alors une ébauche ? Car il doit-y avoir des variables que l'on ne peu pas deviner! Et ce code tu l'as récupérer quelque part? si oui donne nous le lien!

à suivre!

**jerem56** · 03/03/2014, 19h38

Salut jijie!

J'utilise nb_OPS_Table pour le dimensionnement de mon tableau; [#Headers],[Project]... pour spécifier la colonne de rangement des valeurs en question; oProject est une valeur saisie (nom de projet) qui doit être copiée dans le tableau dans la colonne projet; oHistory est une valeur saisie (date) qui doit être copiée dans la colonne History; oTitle est valeur saisie (titre); oFlag le lien saisie; oValue un commentaire saisi....

J'ai écrit mon code avec l'aide d'un collègue et en faisant des recherches de syntaxte sur le net. Je n'ai donc pas de lien à te fournir. Lebout de code que je t'ai fourni vise à mettre à jour des données saisies après avoir cliqué sur un bouton.

J'espère que ça t'aidera.
Merci bien

**jerem56** · 04/03/2014, 11h01

Bonjour,

Je viens vers vous car je suis confronté à un problème dans mon code. Effectivement, je cherche depuis quelques jours maintenant à activer des liens hypertextes avec ma macro et ça devient urgent. Je suis parvenu à faire quelque chose mais aujourd'hui le problème est qu'à chaque lien hypertexte copié une erreur d'exécution de type 1004: La méthode Range de l'objet Global a échoué.

Je vous présente ci-dessous un bout de mon code.

Pour la déclaration des variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Const OPS_Table_SHEET As String = "OPSData"
Const OPS_Table_Connec As String = "http:lien vers mon ishare"
Const OPS_Table_Connec_name As String = "Global Overall Progress"
Const OPS_Table As String = "Table_Ops1"
Public nb_OPS_Table As Integer
 
Const OP_Table_SHEET As String = "OPData"
Const OP_Table As String = "OP_Table_Data"
Public nb_OP_Table As Integer

Pour mettre à jour mes données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Call find_and_update_OP(Worksheets(Boxes_SHEET).Range("C2").Value, Worksheets(Boxes_SHEET).Range("C3").Value, "Time", Worksheets(Boxes_SHEET).Range("C6"), Worksheets(Boxes_SHEET).Range("D6").Value)
        Call find_and_update_OP(Worksheets(Boxes_SHEET).Range("C2").Value, Worksheets(Boxes_SHEET).Range("C3").Value, "Quality", Worksheets(Boxes_SHEET).Range("C7"), Worksheets(Boxes_SHEET).Range("D7").Value)
        Call find_and_update_OP(Worksheets(Boxes_SHEET).Range("C2").Value, Worksheets(Boxes_SHEET).Range("C3").Value, "Cost", Worksheets(Boxes_SHEET).Range("C8"), Worksheets(Boxes_SHEET).Range("D8").Value)
        Call find_and_update_OP(Worksheets(Boxes_SHEET).Range("C2").Value, Worksheets(Boxes_SHEET).Range("C3").Value, "Risk", Worksheets(Boxes_SHEET).Range("C9"), Worksheets(Boxes_SHEET).Range("D9").Value)

La fonction pour la mise à jour des données (avec la copie des liens)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Pour Overall Progress
Sub find_and_update_OP(oProject As String, oHistory As String, oTitle As String, oFlag As String, oValue As String)
    Dim i As Integer
    Dim isUpdated As Boolean
 
    isUpdated = False
    nb_OPS_Table = ActiveWorkbook.Worksheets(OPS_Table_SHEET).ListObjects(OPS_Table).ListRows.Count
    For i = 1 To nb_OPS_Table
        'Si bon projet et histo correct, je remplis
        If (Range(OPS_Table & "[[#Headers],[Project]]").Cells(i + 1, 1).Value = oProject And Range(OPS_Table & "[[#Headers],[History]]").Cells(i + 1, 1).Value = oHistory And Range(OPS_Table & "[[#Headers],[Title]]").Cells(i + 1, 1).Value = oTitle) Then
            Range(OPS_Table & "[[#Headers],[Comment]]").Cells(i + 1, 1).Value = oValue
            With Worksheets(OPS_Table_SHEET)
                   .Hyperlinks.Add Anchor:=.Range(OPS_Table & "[[#Headers],[Flag]]").Cells(i + 1, 1), _
                    Address:=oFlag, _
                    ScreenTip:=oFlag, _
                    TextToDisplay:=oFlag
                End With
                isUpdated = True
        End If
    Next i
 
    If (isUpdated = False) Then
        Range(OPS_Table & "[[#Headers],[Comment]]").Cells(nb_OPS_Table + 2, 1).Value = oValue
        Range(OPS_Table & "[[#Headers],[Project]]").Cells(nb_OPS_Table + 2, 1).Value = oProject
        Range(OPS_Table & "[[#Headers],[Title]]").Cells(nb_OPS_Table + 2, 1).Value = oTitle
        Range(OPS_Table & "[[#Headers],[History]]").Cells(nb_OPS_Table + 2, 1).Value = oHistory
        With Worksheets(OPS_Table_SHEET)
                   .Hyperlinks.Add Anchor:=.Range(OPS_Table & "[[#Headers],[Flag]]").Cells(nb_OPS_Table + 2, 1), _
                    Address:=oFlag, _
                    ScreenTip:=oFlag, _
                    TextToDisplay:=oFlag
                End With        
     End If
 
End Sub

Je pense que je n'ai rien oublié, sinon n'hésitez pas à me demander. C'est urgent s'il vous plait.

Merci par avance!

Petite précision, l'erreur apparaît à cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Range(OPS_Table & "[[#Headers],[Project]]").Cells(i + 1, 1).Value = oProject And Range(OPS_Table & "[[#Headers],[History]]").Cells(i + 1, 1).Value = oHistory And Range(OPS_Table & "[[#Headers],[Title]]").Cells(i + 1, 1).Value = oTitle) Then

**Marc-L** · 04/03/2014, 11h24

Bonjour, bonjour,

donc le titre de cette discussion n'a aucun rapport avec la ligne déclenchant l'erreur ‼

Te reste donc à vérifier chaque variable composant cette ligne
avec un point d'arrêt et la fenêtre Variables locales par exemple …

Déjà l'utilisation de oProject & oHistory me parait douteuse sans compter le double "=" !
A revoir intégralement …

**jerem56** · 04/03/2014, 11h41

Bonjour Marc,

Le titre n'est pas non plus sans rapport, j'utilise ce code pour mettre à jour autre chose que des liens et il fonctionne bien. C'est à partir du moment où j'ai introduit cette notion d'activation des liens qu'il m'a généré cette erreur.

J'ai regardé les variables locales, il ne semble pas y avoir de problème. Que me suggèrerais tu sinon?

Merci

**Daniel.C** · 04/03/2014, 12h01

Bonjour,

Le syntaxe de la ligne en erreur est correcte. Vérifie donc les variables OPS_Table, l'orthographe de l'entête "Project" et la valeur de i au moment du plantage.

**jerem56** · 04/03/2014, 12h13

Bonjour Daniel,

Tout me semble bon hormis le i qui est de 32 pour une donnée à la ligne 31 de mon tableau.

**Marc-L** · 04/03/2014, 12h23

D'autant que dans le code de la ligne en question "i + 1" cela fait 33 !

Bon maintenant que t'as trouvé, te reste à remonter dans le code pour corriger l'affectation de cette variable …

**Daniel.C** · 04/03/2014, 12h26

Donc tu as la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nb_OPS_Table = ActiveWorkbook.Worksheets(OPS_Table_SHEET).ListObjects(OPS_Table).ListRows.Count -1

puisque tu utilises i+1.

**jerem56** · 04/03/2014, 12h34

Oui merci à vous, mais ce que je ne comprends pas c'est pourquoi il me génère une erreur à ce moment là alors que le code fonctionne bien si j'introduis autre chose qu'un lien.