Discussion :

[tioch]

Bonjour à tous,

Voila j'ai ce message d'erreur, qui d'ailleur au premier test ne s'est pas affiché, mais après oui et ça ne s'arrète pas.
Voici un bout du code, c'est la dernière ligne qui est surlignée en jaune :

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
For i = 1 To .FoundFiles.Count
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set Fname = fs.GetFile(.FoundFiles(i))
    Worksheets("Sheet3").Range("A" & i) = Fname.DateLastModified
    Worksheets("Sheet3").Range("B" & i) = Fname.DateCreated
        'Comparaison des dates de modifications : entre celle de chaque fichier et de la dernière utilisation de cette macro
        If Worksheets("Sheet3").Range("C" & 3).Value < Worksheets("Sheet3").Range("A" & i).Value Then
            'MsgBox "Mise à jour"
 
        'Réecriture de chaque ligne à mettre à jour
           With ActiveSheet
            .Hyperlinks.Add anchor:=.Cells(i + 5, 1), _
            Address:=.Cells(i + 5, 1), _
            TextToDisplay:=.Cells(i + 5, 1).Text
           .Hyperlinks(i).ScreenTip = " VERS:" & .Cells(i + 5, 1).Text

Si quelqu'un a une idée du pourquoi et du comment?
Merci d'avance

Tioch

[rjamin]

Bonjour,
Si c'est bien cette ligne qui provoque l'erreur, il y beaucoup de chance que c'est le (i) qui dépasse une valeur autorisée, ou que Hyperlinks n'est pas un tableau ou n'est pas déclaré comme tel.


.Hyperlinks(i).ScreenTip = " VERS:" & .Cells(i + 5, 1).Text