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
Vous seul pouvez le penser car vous seul connaissez le mot de passe du VBAProject.je pense que l'erreur vient de là
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
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
ca marche pas le fichier n'est pas au meme endroitRe,
Cela dit si le 2ème fichier est dans le même dossier que le 1er (le bureau) utilisez simplement :
Application.EnableEvents = False évite le bug à l'ouverture du 2ème fichier.Code: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
Et il faut ajouter une feuille "Couleurs" pour éviter le bug sur UserForm1.Show.
A+
Eh bien ne restez pas les bras ballants, voyez mon post #5.ca marche pas le fichier n'est pas au meme endroit