probleme ouverture fichier

judoka0209

XLDnaute Occasionnel
Bonjour, j'ai un problème d'ouverture de fichier malgré que le chemin soit bon
j'ai le message suivant chemin introuvable


Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open ThisWorkbook.Path & "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub
 

Lolote83

XLDnaute Barbatruc
Salut,
Sans conviction aucune, mais ne serait-ce pas le \\ devant atlas qui poserait un problème dans le nom du chemin
Workbooks.Open ThisWorkbook.Path & "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
A remplacer peut être par
Workbooks.Open ThisWorkbook.Path & "\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
@+ Lolote83
 

judoka0209

XLDnaute Occasionnel
c'est bon j'ai trouvé pour ceux que ca interesse voici la reponse pour les autres qui m'ont aidés merci
Code:
Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open Filename:= _
  "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
  Windows("Planning equipe 3x8 2019.xlsm").Activate
  Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
  Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"
   
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub
 

Statistiques des forums

Discussions
312 195
Messages
2 086 083
Membres
103 114
dernier inscrit
sylvainb6969