Je ne vous ai fourni qu'une partie de mon code, j'ai un peu avancé ce matin et trouvé des solutions (mon code est fourni ci-dessous). Le problème qui survient avec ce code est que je n'arrive pas à obtenir le titre de la mep par le même moyen que les pièces et assemblages. En effet ce code enregistre la pièce, la mep, l'assemblage au départ mais pas à la fin car il se ferme à la place de ma mep. Par conséquent, les références dans l'assemblage sont perdues.
Sub main()
Set swapp = _
Application.SldWorks
Set Part = swapp.OpenDoc6("\\xxxxxx", 2, 0, "", longstatus, longwarnings)
swapp.ActivateDoc2 "Ensemble Magasin pots", False, longstatus
Set Part = swapp.ActiveDoc
F1.Show
Set swAppp = Application.SldWorks
Set swmodel = swAppp.ActiveDoc
bool = swmodel.Extension.RunCommand(SwCommands.swCommands_SaveAs, "")
'swapp.OpenDoc(Name,Type) '
Set Part = swapp.ActiveDoc
'Recupère le lien
FilePath = swmodel.GetPathName
'Récupère le nombre de caractères
PathSize = Len(FilePath)
'Récupère le nom du fichier seulement sans extension
PathNoExtension = Left(FilePath, 29)
TitleA = swmodel.GetTitle
TitleAs = Len(TitleA)
TitleAn = Left(TitleA, TitleAs - 7)
Set Part = swapp.ActiveDoc
Set Part = swapp.OpenDoc6("\\xxxxx"", longstatus, longwarnings)
Set Part = swapp.ActiveDoc
swapp.ActivateDoc2 "Magasin pots.sldprt", False, longstatus
Set Part = swapp.ActiveDoc
Set Part = swapp.OpenDoc6("\\xxxxx", 3, 0, "", longstatus, longwarnings)
Set Part = swapp.ActiveDoc
swapp.ActivateDoc2 "Magasin pots - Feuille1", False, longstatus
Set Part = swapp.ActiveDoc
bool = swmodel.Extension.RunCommand(SwCommands.swCommands_SaveAs, "")
Set Part = swapp.ActiveDoc
TitleM = swmodel.GetTitle
TitleMs = Len(TitleM)
TitleMn = Left(TitleM, TitleMs - 7)
Set Part = swapp.ActiveDoc
Set Part = Nothing
swapp.CloseDoc TitleMn
Set Part = swapp.ActiveDoc
swapp.ActivateDoc2 "Magasin pots.sldprt", False, longstatus
Set Part = swapp.ActiveDoc
Set swAppp = Application.SldWorks
Set swmodel = swAppp.ActiveDoc
bool = swmodel.Extension.RunCommand(SwCommands.swCommands_SaveAs, "")
TitleP = swmodel.GetTitle
TitlePs = Len(TitleP)
TitlePn = Left(TitleP, TitlePs - 7)
Set Part = swapp.ActiveDoc
Set Part = Nothing
swapp.CloseDoc TitlePn
Set Part = swapp.ActiveDoc
swapp.ActivateDoc2 TitleAn, False, longstatus
Set Part = swapp.ActiveDoc
Set Part = swapp.ActiveDoc
longstatus = Part.SaveAs3(FilePath, 0, 2)
Set Part = swapp.ActiveDoc
Set Part = Nothing
swapp.CloseDoc TitleAn
F2.L_2 = TitleMn
F2.Show
End Sub