probleme ouverture fichier

L

Lolote83

XLDnaute Barbatruc

• 10 Juillet 2018

• #2

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

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 10 Juillet 2018

• #3

merci j'essaierai ce soir car c'est un chemin reseau alors je ne sait pas je te tiens au courant

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 10 Juillet 2018

• #4

non ca marche pas

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 10 Juillet 2018

• #5

Staple1600 à dit:

Bonsoir le fil, le forum

@judoka02009
Pourquoi créer un fil doublon?
Tu pouvais continuer dans le fil initial, non ?
https://www.excel-downloads.com/threads/erreur-ligne-9.20025238/

Cliquez pour agrandir...

c'est plus cette erreur que j'ai c'est pour ca

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 10 Juillet 2018

• #6

je vous joins la photo de l'emplacement du fichier

 

Pièces jointes

• reseau.JPG

  24.9 KB · Affichages: 26

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 10 Juillet 2018

• #7

il me met ca

 

Pièces jointes

• test.JPG

  18.4 KB · Affichages: 32

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 12 Juillet 2018

• #8

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

 

Vote positif 0 Vote négatif