Problème ouverture de fichier

Bonjour tout le monde,

J'ai actuellement quelques soucis avec un de mes fichiers Excel, c'est à dire j'ai un fichier qui va chercher des informations dans d'autres fichiers excel pour pouvoir regrouper les différentes informations des différents shop dans mon entreprise. Cependant lors de cette procédure d'ouverture de fichier tous va bien pour tous les shops sauf que j'ai voulut rajouter un shop en plus et je n'y arrive pas il n'ouvre même pas son fichier.

Ai-je fais quelque chose de mal lors du rajout de ce fameux shop ?

Donc je vous explique rapidement comment ça marche :

Voici la partie de code qui celon moi est fautive !

   '-----------
    'Assemblage
    '-----------

            ''''''''''''''''''''''' CE SHOP FONCTIONNE BIEN  ''''''''''''''''''''''''''''''

        Worksheets(1).Activate
        Range("B28:B32").Select
           'Code pour eviter de fermer le fichier si il etait deja ouvert
        On Error Resume Next
        ouvert = 0
        Set wk = Workbooks("Nouveau PMLT Assemblage.xls")
        If Err <> 0 Then
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Else
            ouvert = 1
        End If
        Windows("Nouveau PMLT Assemblage.xls").Activate
        Call MajGlobal2
        Call CopieVersTableau(4)
        Windows("Nouveau PMLT Assemblage.xls").Activate
        nbOngletsAssemblage = Worksheets.Count
        For i = 2 To Worksheets.Count - 1
            Windows("Nouveau PMLT Assemblage.xls").Activate
            Sheets(i).Activate
            Call MajAllData2("Assemblage")
        Next
        If ouvert = 0 Then
            Windows("Nouveau PMLT Assemblage.xls").Close SaveChanges:=False
        End If
        Windows("PMLT General.xls").Activate
        ouvert = 0

    '-----------
    'Presse
    '-----------

            ''''''''''''''''''''''' CE SHOP FONCTIONNE PAS DU TOUT   ''''''''''''''''''''''''''''''

    Worksheets(1).Activate
    Range("B33:B37").Select

    'Code pour eviter de fermer le fichier si il etait deja ouvert
    On Error Resume Next
    ouvert = 0
    Set wk = Workbooks("Nouveau PMLT presse.xls")
    If Err <> 0 Then
        !!!! Ici il devrait ouvrir le fichier mais il ne fait rien !!!!!
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Else
        ouvert = 1
    End If
    Windows("Nouveau PMLT presse.xls").Activate
    Call MajGlobal2
    Call CopieVersTableau(5)
    Windows("Nouveau PMLT presse.xls").Activate
    nbOngletsPresse = Worksheets.Count
    ' i = 1 car il n'y a pas le même onglet de demarrage appelé : GLOBAL
    ' Donc pour éviter toute erreur d'affichage i est mis à 1
    For i = 2 To Worksheets.Count - 1
        Windows("Nouveau PMLT presse.xls").Activate
        Sheets(i).Activate
        Call MajAllData2("presse")
    Next
    If ouvert = 0 Then
        Windows("Nouveau PMLT presse.xls").Close SaveChanges:=False
    End If
    Windows("PMLT General.xls").Activate
    ouvert = 0

Voilà j'ai essayé de fournir un fichier mais même en enlevant un max ça pèse 2.3 mb.

Enfin bref je vous remercies d'avance et vous souhaites une très bonne journée.

Jonathan

Bonjour

Pas facile à suivre ton code

En plus on ne sait pas comment fonctionne ton programme

Il manque les fichiers des liens

Tout ce que j'ai vu c'est que tu n'as pas de lien dans les cellules B33:B37

Peut être que ce n'est que ça

Bonjour je viens de fournir le fichier excel en MEGA light, il ne fonctionnera pas car il n'a pas les autres fichier excel mais qu'appelez vous des liens dans les celulles?

Bonjour

C'est bien ton fichier ?

Dans les cellules B8, B13 etc tu as des liens hypertext vers des fichiers

mais dans la macro tu veux activer le lien des cellules B33:B37, mais il n'y a pas de lien

    '-----------
    'Presse
    '-----------
    Worksheets(1).Activate
    Range("B33:B37").Select

    'Code pour eviter de fermer le fichier si il etait deja ouvert
    On Error Resume Next
    ouvert = 0
    Set wk = Workbooks("Nouveau PMLT presse.xls")
    If Err <> 0 Then
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Else
        ouvert = 1
    End If

Merci beaucoup le problème est bien résolut !

Je vous en remercies encore !!!