UTILISER COMMON DIALOG DANS VB/VBA D'UNE MANIÈRE SIMPLE SANS ACTIVER LE COMPOSAN

Signaler
Messages postés
1016
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008
-
Messages postés
65
Date d'inscription
mercredi 7 janvier 2004
Statut
Membre
Dernière intervention
11 septembre 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32893-utiliser-common-dialog-dans-vb-vba-d-une-maniere-simple-sans-activer-le-composant-dans-le-projet

Messages postés
65
Date d'inscription
mercredi 7 janvier 2004
Statut
Membre
Dernière intervention
11 septembre 2012

Content que ça puisse aider !

Bonne programmation Samloba.
Messages postés
3
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
8 novembre 2010

j'ai trouvé

Filter = "Fichiers Access|*.mdb"
merci
Messages postés
3
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
8 novembre 2010

merci Squall____
ce code vient de me sauver la mise
access 2007+vb6 (pour compiler ma dll activeX)
seul probleme le filtre n'est pas appliqué, je vois tous les fichiers
et le choix devient difficile
Messages postés
65
Date d'inscription
mercredi 7 janvier 2004
Statut
Membre
Dernière intervention
11 septembre 2012

Ok.
Je pense que ton erreur d'activeX doit venir du fait que la DLL comdlg32.dll n'est pas présente dans ton C:\WINDOWS\System32.

Si elle n'est pas installée c'est que ton Office 2007 n'as pas été installé complètement. Je te conseille donc d'aller dans ajout/suppression de programmes, de cliquer sur modifier l'installation de ton office et de choisir une installation complète d'office (tout exécuter à partir du disque dur). Après ça, essaye se bout de code :

Public FichierSélectionné As String

Public Function OuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String)
FichierSélectionné = ""
Set CD = CreateObject("MSComDlg.CommonDialog")
On Error Resume Next
Debut:
With CD
.MaxFileSize = 260
.InitDir = DOSSIER
.CancelError = True
.DialogTitle = TITRE
.Filter = "Fichiers " & Extension & "(*." & Extension & ")|*." & Extension & "|"
.FilterIndex = 1
Err.Clear
.ShowOpen
If Err.Number <> 0 Then
If MsgBox("Vous n'avez pas sélectionné de fichier." & Chr(10) & "Voulez-vous annuler la sélection ?", vbYesNo, TITRE) = vbYes Then
Exit Function
Else
GoTo Debut
End If
End If
End With
FichierSélectionné = CD.Filename
Set CD = Nothing
End Function

Public Sub test()

OuvrirAvecCD "xls", "\\TON_SERVEUR\TON_PARTAGE", "Merci de sélectionner un fichier xls"
MsgBox FichierSélectionné

End Sub

Si ça ne marche toujours pas, télécharge la DLL ici : http://www.dll-files.com/dllindex/dll-files.shtml?comdlg32
Et ensuite copie là dans ton C:\WINDOWS\System32 et réessaye.

Fait moi savoir si ça focntionne ou non.

Bonne chance.
Afficher les 42 commentaires