Passage Macro en VSTA suite sw2013 car bloquage de ma macro

vos questions concernant les API SolidWorks

Passage Macro en VSTA suite sw2013 car bloquage de ma macro

Messagepar GOHIN » Jeu 11 Avr 2013, 7:46

Bonjour,

Ci-joint une macro en VBA, depuis instalation de solidworks 2013 elle bloque à la demande d'ouverture d'une boite de dialogue type explorateur windows, apparement le code n'est plus pris en charge par solidworks 2013 il faut traduire cette macro en VSTA. Quelqu'un peut il m'aider pour ce bloquage.

Merci d'avance pour vos réponses et aide.
Fichiers joints
copie Diffusion plan PDF +pdf+dxf.zip
(17.7 Kio) Téléchargé 112 fois
GOHIN
Ewok SolidWorks
 
Messages: 11
Inscription: Mar 16 Mar 2010, 14:44

Re: Passage Macro en VSTA suite sw2013 car bloquage de ma m

Messagepar MarcS » Ven 13 Avr 2018, 17:30

Dans les options du VBA , Références ajouter la librairie Sheel32.dll que tu vas retrouver dans:
C:\Windows\SysWOW64
Et remplace tout ton code qui ce trouve dans le module boitepourdossier par ce code:

Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260
Function BrowseForFolder(Title As String, StartDir As String) As String

Dim SH As Shell32.Shell
Dim F As Shell32.Folder

Set SH = New Shell32.Shell
Set F = SH.BrowseForFolder(0&, Title, BIF_RETURNONLYFSDIRS, StartDir)
If Not F Is Nothing Then
BrowseForFolder = F.Items.Item.Path
End If

End Function

Si je te donne un poisson tu pourras manger Aujourd’hui
mais si je t’apprend a pêcher tu pourras manger toute ta vie !!!
Salut !

Marc S.
Avatar de l’utilisateur
MarcS
Chevalier Jedi SolidWorks
 
Messages: 311
Inscription: Mar 06 Jan 2009, 20:10
Localisation: Quebec, Quebec SolidWorks 2017 SP 1.0 & SolidWorks 2014 SP 2.0


Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Google [Bot] et 3 invités

banniere