Impossible d'ouvrir un fichier excel 2010 (Vba)
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:
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
impossible d'ouvrir un fichier
Bonjour,
Dans ton intitulé tu ne précises pas sur quelle version Excel tu travailles. Cela a son importance.
Cordialement,
impossible d'ouvrir un fichier
Il est demandé au membres de préciser avec leur question sur quelle version ils travaillent.
Tu veux ouvrir un fichier version 2010. Cela n'implique pas que tu travailles sur cette version.
Je ne pense pas que le fait de travailler sur une version inférieure peut avoir une incidence sur l'ouverture mais je ne suis pas assez connaisseur pour l'affirmer. D’où ma question.
Cordialement,
