Fonction stock history extraction erreur #N/A

Hello tout le monde,

Alors voila mon souci. Avec la fonction StockHistory j'extrait une liste de cours de bourse entre 2 dates renseignées auparavant. Voici ma fonction :

vHistorique = WorksheetFunction.StockHistory(vCodeTicker, vDateFrom, vDateTo)

Je souhaite par la suite rentrer ces données sur une feuille. Dans un premier temps j'ai pensé compterle nombre de jours ouvrés entre les 2 dates :

vRow = WorksheetFunction.NetworkDays(vDateFrom, vDateTo)

Et ainsi pouvoir extraire les données :

Range("A1 : B" & vRow).Value = vHistorique

Cependant il reste des cellules #N/A notamment à cause des jours fériés qui ne sont pas comptés dans la fonction NetworkDays.

J'ai tenté ça mais j'ai des incompatibilités de types

Do While ActiveCell.Value <> "#N/A"
    ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = "" Then
        Exit Do
        End If
    Loop
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear

J'ai également tenté avec un filtrage mais sans succès.

Auriez-vous une idée svp ?

En vous remerciant

Cdt

Bonjour,

Hello,

Oui en effet ce sera plus compréhensible ^^

Le voici

Re,

C'est plus facile, voici ton fichier corrigé

@+

Hello,

Merci, cependant sur la feuille étude je souhaite avoir à partir de A10 l'ensemble des données extraites entre les deux dates sélectionnées. Ici je n'ai que la dernière. Comment puis-je récupérer toutes les données que nous avons extraites dans TEMP à l'exception des cellules N/A stp ?

Re,

Il suffit de modifier les 2 dernières lignes par

  ' Nous sommes toujours sur la feuille d'étude
  Range("A10:B" & 10 + Lig - 2).Value = ShtTmp.Range("A2:B" & Lig).Value
  Range("A10:A" & 10 + Lig - 2).NumberFormat = "mm/dd/yyyy"

@+

Parfait Merci beaucoup :)

@+

De rien

Merci de marquer le sujet comme résolu en cochant mon post