Bouton parcourir (mode tirage de balle...) - VB/VBA/VBS - Programmation
MarshPosté 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
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