Bonjour,
J'ai un petit soucis pour la création de ma macro en vba.
En fait, je voudrais pouvoir lister tous les fichiers *doc d'un répertoire et pour chaque fichier .*doc trouvé, vérifier si les liens hypertextes qui s'y trouvent fonctionnent correctement.
Je suis débutant en vba et je bloque.
Je sais lister les fichiers doc d'un répertoire, je sais vérifier les liens hypertextes d'un document mais uniquement d'un document que j'ouvre moi-même (ActiveDocument)
Je n'arrive pas à récupérer le résultat de ma recherche pour m'en servir ensuite.
Si qqun a une idée...
Voici mon code
Sub test_listetcheck()
'
Dim message As String
Dim hlien As Hyperlink
Dim NomFichier As String
With Application.FileSearch
.LookIn = "C\Temp")
.FileName = "*.doc"
If .Execute > 0 Then
For i = 1 To .Foundfiles.Count
For Each hlien In Foundfiles(i)
With hlien
message = message & .TextToDisplay & ", " & .Address & vbCrLf
End With
Next
MsgBox message
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
J'ai un petit soucis pour la création de ma macro en vba.
En fait, je voudrais pouvoir lister tous les fichiers *doc d'un répertoire et pour chaque fichier .*doc trouvé, vérifier si les liens hypertextes qui s'y trouvent fonctionnent correctement.
Je suis débutant en vba et je bloque.
Je sais lister les fichiers doc d'un répertoire, je sais vérifier les liens hypertextes d'un document mais uniquement d'un document que j'ouvre moi-même (ActiveDocument)
Je n'arrive pas à récupérer le résultat de ma recherche pour m'en servir ensuite.
Si qqun a une idée...
Voici mon code
Sub test_listetcheck()
'
Dim message As String
Dim hlien As Hyperlink
Dim NomFichier As String
With Application.FileSearch
.LookIn = "C\Temp")
.FileName = "*.doc"
If .Execute > 0 Then
For i = 1 To .Foundfiles.Count
For Each hlien In Foundfiles(i)
With hlien
message = message & .TextToDisplay & ", " & .Address & vbCrLf
End With
Next
MsgBox message
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
