[Excel2002] Problème avec CommonDialog [Résolu]

[kesimon63]

Bonjour à tous.
Voilà je vous expose mon problème sur lequel je galère depuis un petit moment.
Ma macro fait appel à CommonDialog. La macro fonctionne sur mon pc mais lorsque je l'utilise sur d'autres postes tantôt ça fonctionne tantôt non. C'est à chaque fois le Userform.show qui passe pas. Je pense avoir identifié la cause. Afin d'avoir l'outil commondialog dans la boite à outils du userform il faut avoir un certain comdlg32.ocx dans C:\Windows\system32. Or il n'y est pas sur tous les postes.
J'ai donc inclus dans ma macro une fonction qui copie le fichier sur le réseau local et le colle au bon endroit. J'ai aussi mis une fonction pour l'ajouter dans les références.
Reste à trouver une fonction qui l'ajoute dans les contrôles supplémentaires de la boite à outils du userform. C'est sur ce dernier point que je bloque.

En espérant que quelqu'un pourra me répondre et régler mon problème.
Merci d'avance pour vos réponses.

[jfontaine]

Bonjour,

Je vais répondre par une question.
Plutôt que d'utiliser un objet externe comme CommonDialog, pourquoi ne pas utiliser Filedialog qui est intégré à Excel et qui ne te causera aucun probleme de déploiement

[kesimon63]

Pourquoi pas je ne connais pas Filedialog.
Voilà l'utilisation que j'en fait tu me diras si c'est viable avec Filedialog.

lCommonDialog.CancelError = True
On Error GoTo ErrHandler

' On definit les propriété de l'exploreur de fichiers
lCommonDialog.DialogTitle = "Choisisez le fichier de données à traiter"
lCommonDialog.Flags = cdlOFNNoLongNames And cdlOFNExplorer
lCommonDialog.Filter = "Fichiers texte" & "(*.txt)|*.txt"
lCommonDialog.FilterIndex = 1
lCommonDialog.ShowOpen
'On affiche juste le nom du fichier sélectionné
TextFichierSource.Text = lCommonDialog.FileTitle

[jfontaine]

Ca devrait etre quelque chose comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Dim file As FileDialog
 
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Filters.Add "Fichier Texte", "*.txt"
 
If file.Show = False Then
    Exit Sub
End If
 
MsgBox file.SelectedItems(1)

[kesimon63]

J'essaye ça et je te dit ce que ca donne.
En tout cas merci pour tes réponses.

[kesimon63]

Ca marche presque !
j'ai juste un petit souci comment récupérer le nom du fichier sélectionné dans une variable ?

[jfontaine]

Voila

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim file As FileDialog
Dim strFichier As String
Dim str() As String
 
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Filters.Add "Fichier Texte", "*.txt"
 
 
If file.Show = False Then
    Exit Sub
End If
 
str = Split(file.SelectedItems(1), "\")
strFichier = str(UBound(str))
 
MsgBox strFichier

[kesimon63]

GENIAL
Ca fonctionne nickel. Je vais quand même aller le tester sur d'autres postes vérifier que c'était bien ca qui poser problème.

Merci bcp !!