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