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 !!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
   '-----------
   '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