Macro : chercher des données dans d'autres fichiers Excel

Bonjour à tous,

J'ai besoin de votre aide pour le bon fonctionnement de ma macro.

Mon fichier (Cf. fichier "TEST" ci-joint) permet l'actualisation d'indicateurs en allant pointer les données souhaitées dans d'autres fichiers excel.

Il suffit à l'utilisateur d'indiquer quelle semaine il souhaite afficher (en D4), et la macro va directement chercher les données dans les fichiers correspondant, en fonction du numéro de semaine renseigné.

Mon problème est que, lorsque la semaine renseignée n'est pas encore passée (par exemple nous somme actuellement en S.17 et l'utilisateur demande les indicateurs pour S.35), les fichiers où la macro doit aller chercher les données n'existent pas encore. J'ai alors une fenêtre qui s'ouvre pour me demander l'emplacement du fichier.

Je souhaiterais que cette fenêtre ne s'ouvre pas, qu'un message "fichier inexistant" apparaisse et que la cellule où je suis censé indiquer une valeur soit égale à " "...

Je vous remercie d'avance pour l'aide apportée,

Mich__45

Slt Mich__45,

Mich__45 a écrit :

et que la cellule où je suis censé indiquer une valeur soit égale à " "...

j'ai pas compris ce point!

pour le reste essaie comme ca

Sub Bilan()

    Dim annee As String
    Dim semaine As String
    Dim ligne As String
    Dim i As Integer, semaine_act As Integer, semaine_diff As Integer

    semaine_act = Format(Date, "ww")
    semaine = Cells(4, 4).Value
    semaine_diff = Right(semaine, Len(semaine) - 1)

    If semaine_diff > semaine_act Then ' si on peut choisir la semaine actuelle il faut changer ">" par ">="
        MsgBox "fichier inexistant"
        Exit Sub
    End If

    annee = Cells(1, 5).Value

    For i = 1 To 3
    ligne = Cells(i + 22, 1).Value

    '%Production
    Cells(i + 22, 2).Value = "='Chemin-du-fichier" & annee & "\" & semaine & "\[Prod_" & ligne & semaine & ".xls]Résumé'!$J$25"
    '%Changement de série
    Cells(i + 22, 3).Value = "='Chemin-du-fichier" & annee & "\" & semaine & "\[Prod_" & ligne & semaine & ".xls]Résumé'!$B$26"
    '%Aléas
    Cells(i + 22, 4).Value = "='Chemin-du-fichier" & annee & "\" & semaine & "\[Prod_" & ligne & semaine & ".xls]Résumé'!$F$10"
    '%Non renseignés
    Cells(i + 22, 5).Value = "='Chemin-du-fichier" & annee & "\" & semaine & "\[Prod_" & ligne & semaine & ".xls]Résumé'!$H$34"

    Next i

    Range("A6:K21").Select
    Selection.PrintPreview
    Range("A1").Select

End Sub

Bonne nuit

Bonjour m3ellem1,

Merci beaucoup pour votre aide, ça me convient parfaitement!!

J'ai juste un dernier point pour optimiser à 100% le fichier, il arrive parfois que même si la semaine est déjà passée, le fichier où chercher la donnée est inexistant (S.1 par exemple car congés). Auriez-vous une piste pour ce point ?

Merci !

Mich__45