je pense que l'erreur vient de là mais je ne sait pas comment regler le probleme
VB:
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
Cela dit si le 2ème fichier est dans le même dossier que le 1er (le bureau) utilisez simplement :
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
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.
j'ai un autre soucis sur cette macro je voudrais lancer le fichier avec le userform
VB:
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
Cela dit si le 2ème fichier est dans le même dossier que le 1er (le bureau) utilisez simplement :
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
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.