Vérification macro

Bonjour à tous,

J'aurais besoin d'une vérification de la macro ci-dessous par des experts comme vous.

Ouvre le lien de téléchargement puis enregistrer le fichier ouvert sous un autre nom.

Le problème est que le temps que le fichier soit téléchargé et ouvert, la macro se bloque et ne fonctionne pas.

Merci d'avance

Sub nom()
' ouvre le lien url
ThisWorkbook.FollowHyperlink ("xxxxxxxxxxx")

'temps d'attente 30=30 secondes
Application.Wait (Now + TimeSerial(0, 0, 30))

'recherche le tbh ouvert et message d'erreur
Dim wb As Workbook, ok As Boolean

For Each wb In Workbooks
If Left(wb.Name, 3) = "tbh" Then
wb.Activate
ok = True
End If
If ok Then Exit For

Next wb
If ok Then
' suite du traitement
Else
MsgBox "Fichier tbh non ouvert"

' enregistre le tbh téléchargé au bon emplacement
Dim Spl() As String
Spl = Split(ActiveWorkbook.Name, ".")
ReDim Preserve Spl(0 To UBound(Spl) - 1)
MsgBox Join(Spl, ".")
ActiveWorkbook.SaveAs Filename:="C:\Perso\tbh.xls"
End If
End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Bonsoir,

Il nous faut plus d'information sur le bout de code qui semble bloquer.

Combien de temps met le classeur à télécharger les données sur internet ?

Pour identifier un problème, j'ai pris l'habitude de mettre l'instruction "Stop", conditionnée ou non.

Par exemple, j'en mettrais bien une ici avant d'aller plus loin :

If ok Then
' suite du traitement
     Stop
Else

Si Stop fait une pause du code après quelques secondes, déplace l'instruction Stop. Tu peux aussi la mettre à plusieurs endroits pour voir plus rapidement le problème.

Benead

Bonsoir,

Merci beaucoup, je teste et je contrôle la durée de téléchargement.