Macro DWG et PDF sur le bureau

Macro
1

Bonjour.
Je souhaiterais une macro qui enregistre un plan en dwg et en pdf directement sur mon bureau. Je trouve des macro qui le fond directement dans le dossier du plan, mais je n’arrive pas à définir le chemin du bureau.
Merci de votre aide

1 « J'aime »
2

Bonsoir,
Postez la macro que vous avez trouvé et on vous expliquera où modifier.

2 « J'aime »
3

Bonjour, merci du retour.
Cette macro enregistre les fichiers dans le dossier d’origine du plan
Merci de m’aider

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Path = Part.GetPathName 'chemin du fichier
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « PDF », 0, True, False 'Sauvegarde au format PDF
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « DWG », 0, True, False 'Sauvegarde au format DWG
Set Part = Nothing

End Sub

4

Bonjour, il faut changer ainsi:

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Path = Part.GetPathName 'chemin du fichier
Path =  Mid(Path, InStrRev(Path, "\") + 1) 'Purge le chemin d'accès
Path = Environ("userprofile") & "\Desktop\" & Path
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « PDF », 0, True, False 'Sauvegarde au format PDF
Part.SaveAs2 Left(Path, (Len(Path) - 6)) & « DWG », 0, True, False 'Sauvegarde au format DWG
Set Part = Nothing`
1 « J'aime »
5

Super cela fonctionne, merci beaucoup pour votre aide :smile:

1 « J'aime »