Bonjour à tous,
Après plusieurs essais infructueux, je me décide à venir chercher un peu plus d'aide.
J'ai besoin de récupérer dans un fichier excel le contenu d'une cellule pour ensuite le définir en tant que nom de fichier.
Le but serait donc :
-Récupérer le contenu de la cellule,
-Le définir en tant que nom de fichier dans une boite de dialogue, et le laisser modifiable pour que l'utilisateur puisse interragir,
-Enregistrer sous : - soit dans un dossier défini par l'utilisateur,
-soit sur le bureau si trop compliqué.
Je vous mets mon bout de code confectionné à l'aide de différent tutos/codes récupérés à droite à gauche
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim PartPath As String
Dim Pathsize As Long
Dim PathNoExtension As String
Dim NewFileName As String
Dim Workbooks As Integer
PartPath = Part.GetPathName
Pathsize = Strings.Len(PartPath)
PathNoExtension = Strings.Left(PartPath, Pathsize - 7)
'NewFileName = InputBox("Renseignez le nouveau nom récupéré dans excel", "Enregistrer une copie", NewFileName)
'If NewFileName = "" Then
NewFileName = Workbooks("DESIGNTABLE").WorkSheets("Feuil1").Cells(1, 9)
'End If
longstatus = Part.SaveAs2(NewFileName & ".sldprt", 0, 1, 0)
'swApp.CloseDoc PartPath 'closes old document
Set Part = swApp.OpenDoc6(NewFileName & ".sldprt", 1, 0, "", longstatus, longwarnings)
End Sub