Bouton parcourir (mode tirage de balle...)

Bouton parcourir (mode tirage de balle...) - VB/VBA/VBS - Programmation

Marsh Posté le 06-05-2009 à 16:50:05    

Salut,
 
Je cherche tout bêtement le code qui permette (enfin) de faire marcher mon bouton parcourir.
J'ai essayé des dizaines de codes trouvés sur internet depuis quelques heures et je vais bientôt me passer la corde au coup alors si quelqu'un à la solution à mon problème ...
 
D'une certaine façon j'ai déjà ce que je veux : j'ai un programme qui m'ouvre l'explorateur et inscrit le chemin du fichier dans une textbox. Le problème c'est qu'il bug à chaque fois, parce qu'il cherche à ouvrir le fichier en question sans raison.
Le problème vient de là où j'ai écris en jaune. Au départ, j'ai fais des essais avec Excel, et je n'avais aucun problème. En passant dans mon logiciel de CAO, plus moyen d'utiliser Excel devant Application car je ne lui demande pas un fichier excel mais un fichier .sldpart. Néanmoins, il essaye de l'ouvrir sous Excel et plante comme un con.
Je précise que j'ai essayé le Common Dialog 6.0 et pas de license, donc pas moyen.
 
Que dois-je faire pour que cela fonctionne enfin normalement ?
Merci d'avance.
 
Voici ce qui fonctionne (presque) :
 
Private Sub bouton_parcourir_fichier_cao_Click()
 
Dim fd As FileDialog
 
Set fd = SolidWorks.Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Choisir un fichier .sldpart"  
fd.InitialFileName = "C:"
fd.AllowMultiSelect = False
 
    Dim vrtSelectedItem As Variant
 
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                form_choix_donnees.box_fichier_cao.Value = vrtSelectedItem
            Next vrtSelectedItem
        'Appuye sur "Annuler"
        Else
        End If
    End With
 
    Set fd = Nothing
 
End Sub

Reply

Marsh Posté le 06-05-2009 à 16:50:05   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed