Macro: nom de la feuille dans une mise en plan

Macro
1

Quelqu'un aurait il une macro SolidWorks (SW2014) pour faire ceci:

Dans une mise en plan nommer (ou renommer) la première feuille "Plan"

2

Qu'est ce que l'enregistreur de Macro te donne ?

3

j'ai pas testé...

4

Il faut utiliser l'instruction :

swSheet.SetName "Plan"

2 « J'aime »
5

Voilà une macro à tester :

http://www.lynkoa.com/tutos/macro-solidworks-renommer-feuille-1-de-la-msie-en-plan

 

1 « J'aime »
6

Il reste à etre sur que ce soit la première.

Tu vois lancer la macro à l'aide d'un bouton ?

[Edit] @.PL. S'il te plait, tu peux poster ton code sur le post ?

2 « J'aime »
7

à partir de la macro de @.PL voici ce que nous en avons fait:

Sub lecture_seule_bib()
Dim swApp As Object
Dim Part As Object

'Informations : j'ai commenté chaque ligne de code directement de dessous de celle-ci.
'Si vous avez des questions, n'hésitez pas à venir sur http://www.lynkoa.com/user/register/uref/MTM0

titre = "MODE LECTURE/ECRITURE D'UN FICHIER SOLIDWORKS"
Set swApp = Application.SldWorks
    'déclaration de l'application SolidWorks
Set Part = swApp.ActiveDoc
    'déclaration de la pièce
PathName = UCase(Part.GetPathName)
    'obtetion du chemin + nom de fichier
'If Left(UCase(PathName), 1) <> "O" Then
    'instruction précédente mise en commentaire, pour l'utiliser enlever le ' (apostrophe) au début de la ligne
    'Dans notre entreprise tous les fichiers de bibliothèque sont sur O: (lecteur réseau)
    'IF : on vérifie si le fichier est sur O
    'ret = MsgBox("Ce fichier n'est pas sur O:, procédure abandonnée", , titre)
    'instruction précédente mise en commentaire, pour l'utiliser enlever le ' (apostrophe) au début de la ligne
    'Message pour signifier que la procédure est abandonnée car le fichier n'est pas dans notre bibliothèque
   ' Exit Sub
    'instruction précédente mise en commentaire, pour l'utiliser enlever le ' (apostrophe) au début de la ligne
    'Fin du programme si chemin différent de O:
'End If
'instruction précédente mise en commentaire, pour l'utiliser enlever le ' (apostrophe) au début de la ligne
'Fin du bloc SI (IF)

If GetAttr(PathName) And vbReadOnly Then
'Si le fichier est en lecture seule
        ret = MsgBox("Ce fichier est en lecture seule, voulez-vous y acceder en écriture ?" & vbNewLine _
        & vbNewLine & "Pensez à enregistrer vos modifications par la suite", vbYesNo, titre)
        'message pour demander si on veut y accéder en lecture écriture
        If ret = vbNo Then Exit Sub
        'Si non, on quitte le programme
        SetAttr PathName, vbNormal
        'Si oui, on enlève la lecture seule dans Windows
        Part.FileReload
        ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
        Part.FileReload
        'On recharge le document dans SolidWorks
Else
'Sinon (= fichier en lecture écriture)
        ret = MsgBox("Ce fichier est en lecture/écriture, voulez-vous le mettre en lecture seule ?", vbYesNo, titre)
        'message pour demander si on veut y accéder en lecture seule
        If ret = vbNo Then Exit Sub
        'Si non, on quitte le programme
        SetAttr PathName, vbReadOnly
        'Si oui, on met la lecture seule dans Windows
        Part.FileReload
        ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
        Part.FileReload
        'On recharge le document dans SolidWorks
End If
End Sub
'Fin du programme : si vous avez appréciez, merci de noter ce tutoriel sur Lynkoa !

 


ficap_macro_renommer_premiere_feuille_mep.swp
1 « J'aime »