erreur ligne 9

[judoka0209]

Bonjour, j'ai une erreur ligne 9 et je ne comprend pas pourquoi
merci

 

[judoka0209]

je pense que l'erreur vient de là mais je ne sait pas comment regler le probleme

Sub Workbook_open()
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

UserForm1.Show
Application.CutCopyMode = False
End Sub

 

[job75]

Bonjour,

je pense que l'erreur vient de là

Vous seul pouvez le penser car vous seul connaissez le mot de passe du VBAProject.

A+

 

[judoka0209]

oups

 

[job75]

Re,

Le message est clair : le fichier est introuvable => il faut un chemin d'accès correct.

Pourquoi demander de l'aide pour une chose aussi simple que vous seul pouvez régler ?

A+

 

[job75]

Re,

Cela dit si le 2ème fichier est dans le même dossier que le 1er (le bureau) utilisez simplement :

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open ThisWorkbook.Path & "\Planning_EP.xlsm"
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub

Application.EnableEvents = False évite le bug à l'ouverture du 2ème fichier.

Et il faut ajouter une feuille "Couleurs" pour éviter le bug sur UserForm1.Show.

A+

 

[judoka0209]

j'ai un autre soucis sur cette macro je voudrais lancer le fichier avec le userform

Sub Workbook_open()
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
UserForm1.Show
Application.CutCopyMode = False
End Sub

sachant que le fichier \\atlas etc.... c'est l'emplacement du fichier et la userform marche correctement avec la feuille couleur
mais ca me met une erreur
merci

 

[judoka0209]

Re,

Cela dit si le 2ème fichier est dans le même dossier que le 1er (le bureau) utilisez simplement :

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open ThisWorkbook.Path & "\Planning_EP.xlsm"
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub

Application.EnableEvents = False évite le bug à l'ouverture du 2ème fichier.

Et il faut ajouter une feuille "Couleurs" pour éviter le bug sur UserForm1.Show.

A+

ca marche pas le fichier n'est pas au meme endroit

 

[eriiic]

Bonjour,
non, erreur
eric

 

[job75]

Re, salut eriiiic,

ca marche pas le fichier n'est pas au meme endroit

Eh bien ne restez pas les bras ballants, voyez mon post #5.

Sachant que dans le fichier Planning_EP.xlsm il y a une macro Workbook_Open qui peut créer une erreur, à vous d'y remédier.

Bonne nuit.

 

[judoka0209]

merci