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

Commentaire de liquide le 26/07/2005 13:05:01

Dim CD As CommonDialog <---> si ca ce n'est pas l'activer, je ne comprend plus rien a Vb. Plus souple je ne sais pas , car en placant un commdialog dans la form, et en integrant un procédure qui en fait appel :
with commondialog
....
....
end with

la souplesse reste la meme, l'avantage de ton code c'est que le composant est activé au moment ou tu en as besoin. d'un autre coté, il ne faudrait pas que tu en ai besoin souvent, car charger decharger prend aussi du temps.

Commentaire de Squall____ le 26/07/2005 15:04:56

Liquide, je sais que je l'active en le déclarant mais c'est plus pratique de l'activer en ligne de commande que de façon graphique pour des gens comme moi qui font beaucoup de VBA ou de VBS (je sais pas si tu as déjà essayer de mettre un commondialog dans excel 97 mais tu veras, ça vaut le coup d'oeil !).

Par contre, ce que tu dis sur le charger / décharger qui prend du temps, oui tu as raison. Le PC lui s'en rend compte mais nous, pauvres petits humains, je ne pense pas que ça nous gêne vraiment (^_^) !

Urgo, désolé si la source existait déjà, je l'ai cherché sur le site et je l'ai pas trouvé alors je pensais que ce code n'avais pas été montré. En même temps, c'est pas trop grave ! Une chance de plus pour ceuw qui cherchent cette fonction de la trouver :) !

Commentaire de Squall____ le 27/07/2005 00:08:14

L'API GetOpenFileName ? Je ne connaissais pas ! C'est pour ça que je l'ai pas utilisé! Pourrais tu m'en dire plus sur cet API ?

Par contre, je t'assure que mon code fonctionne très très bien dans VBA. Je l'utilise actuellement avec Excel 97 sans problèmes.

Commentaire de Squall____ le 27/07/2005 09:45:37

Je suis pas persuadé de ce que tu dis car j'utilise ce module au boulot avec Excel 97 et à part ça, ma config logiciel n'as rien d'exeptionnel, bien au contraire. Je n'ais pas VB installé, je suis sur NT4 avec la suite Office 97 dessus. C'est tout !

J'ai d'ailleur conçu cette source depuis ce PC...

C'est pour ça que je trouve ta remarque bizarre...

Commentaire de Squall____ le 27/07/2005 12:49:54

Je pense savoir quel est le problème...

Pour corriger, je pense qu'il te suffit de supprimer la ligne "Dim CD As CommonDialog" (ou de la mettre en commentaire comme tu veux).

Alors ? C'est mieux comme ça ?

Si ça marche mieux, je ferais un update de mon module.

Commentaire de Squall____ le 27/07/2005 13:58:32

C'est pas important ça, Quand tu fait le "Set CD = CreateObject("MSComDlg.CommonDialog")" ton objet est créé. Donc, le "With CD" venant après comprend ce qu'est l'objet CD.

No souci je te dis.

Tu as essayé ?

Commentaire de Squall____ le 27/07/2005 14:40:41

Ok. Tu dois avoir raison. Mais j'ai relevé des erreurs dans ton utilisation de ma fonction.

Utilise plutot ça :

public FichierSélectionné As String

Public Function OuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String)
    FichierSélectionné = ""
    'Dim CD
    Set CD = CreateObject("MSComDlg.CommonDialog")
    On Error Resume Next
Debut:
    With CD
        .MaxFileSize = 260
        .InitDir = DOSSIER
        .CancelError = True
        .DialogTitle = TITRE
        .Filter = "Fichiers Excels(*." & 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

Sub test()
  'Dim s As String
  's = OuvrirAvecCD("*.txt", "D:\", "TITRE")
  Call OuvrirAvecCD("txt", "D:\", "TITRE")
  'MsgBox s
  MsgBox FichierSélectionné
End Sub

Si il te fait toujours la même erreur, alors là, je ne sais pas quoi faire...

Commentaire de Squall____ le 27/07/2005 15:09:54

OK !

Donc, avis à tous, si mon module ne fonctionne pas chez vous, tournez vous vers une autre source qui utilise l'API GetOpenFileName.

Je promet de faire une autre source un peu plus tard du même type qui utilisera l'API GetOpenFileName quand je la maitriserais.

Merci pour ton aide BruNews, je vais me documenter sur l'API.

Commentaire de hicham_a_t23 le 01/08/2005 14:48:11

Bonjour Squal_, merci pour ton code, moi j'ai enlevé la declaration " dim cd as commondialog" et ca a marché.
c bien ce que tu as fais. ca permet d'aider bcp de personne.

Commentaire de cotmar le 03/04/2006 18:09:04

Bonjour,
J'ai juste une petite critique (constructive). Si tu veux enlever le GOTO, tu peux faire comme suit...
Cordialement.
Marco.


Public Function FctOuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String) As String
'    FichierSélectionné = ""
Dim CD As Object
Dim BoolFin As Boolean

    On Error Resume Next
    
    BoolFin = False

    Set CD = CreateObject("MSComDlg.CommonDialog")
'Debut:
    While BoolFin = False
        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
                    BoolFin = True
'                    Exit Function
                Else
                    BoolFin = False
'                    GoTo Debut
                End If
            Else
                BoolFin = True
            End If
        End With
    Wend
    
    FctOuvrirAvecCD = CD.FileName
    Set CD = Nothing
End Function

Commentaire de Squall____ le 28/02/2007 11:40:27

J'ai pas tout compris mais je pense que tu devrais jeter un oeil dans la base de registres.
C'est là que les historiques d'ouvertures de fichiers sont stockés en général...

Commentaire de neamar le 07/06/2007 21:15:52

Exactement ce qu'il me fallait ! Merci !

Commentaire de MALIKcpp le 16/07/2007 15:49:06

J'était en train de faire un logiciel pour un call center qui devais être capable d'injecter des fichiers u truc pas très complexe qui devais leur servir et j'avais un problème avec le common dialog au niveau des filtres ton programme m'a drôlement servi merci ! Et je me demandais si je ne pourais pas publié ce logiciel qui t'appartient en parti ^^ je te metterait les copyrights bien sur ^^

Commentaire de Alvaten le 25/09/2007 10:31:18

Merci,

C'est pas tout à fait ce que je cherchais mais j'ai pu l'adapter très facilement.

Commentaire de BruNews le 10/10/2008 19:35:41 administrateur CS

Regarde le comment du: 27/07/2005 15:29:23

Commentaire de Squall____ le 23/12/2008 14:09:35

Tout d'abord, désolé de t'avoir fait attendre.

C'est vraiment bizarre ce que tu me dis... Je vient de réessayer et j'ai bien le nom complet du fichier dans ma variable "FichierSélectionné"...

J'ai utilisé cette petite sub pour tester :

Private Sub test()
    
    Call OuvrirAvecCD("xls", "c:\", "TOTO fait du ski")
    MsgBox FichierSélectionné
    
End Sub

Si ça ne focntionne toujours pas chez toi, peux tu me donner plus d'informations sur ta configuration ? Quel Windows ? Quel editeur VB (VB6, VBA Excel) ?

Commentaire de kalika666 le 23/12/2008 14:45:44

Au contraire, merci de ta rapidité !

Je suis sur Word, avec VBA word, ce qui doit sans doute poser problème car j'ai bien appelé la fonction comme tu le précises...

Si d'aventure d'autres personnes passaient par là avec le même type de problème, j'ai résolu le mien grâce à :

emplacementfichier = Excel.Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")

Ce qui n'est pas vraiment ce que ta macro fait mais bon...

Commentaire de Squall____ le 23/03/2010 07:37:53

je te ferais un retour lorsque je serais arrivé au boulot. t'inquiètes pas, on va t'aider, j'ai largement progressé depuis 2005 ! :)

Commentaire de Squall____ le 23/03/2010 08:41:32

quelle version d'excel tu utilises et sous quel windows tu es ? c'est juste par curiosité...

Commentaire de Squall____ le 23/03/2010 10:11:09

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.

Commentaire de samloba le 07/11/2010 13:42:53

j'ai trouvé

Filter = "Fichiers Access|*.mdb"
merci