Public Function OuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String) As String OuvrirAvecCD = "" 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 OuvrirAvecCD = CD.FileName Set CD = Nothing End Function
The MSDN collection does not exist. Please reinstall MSDN.
J'ai désinstaller/réinstaller VB6.0 mais cela ne change rien ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionA mon avis tu devrais réinstaller ton micro (avec formatage préalable).
Ca sent son Windows qui en a marre de bosser !!!
A la fin de l'install de VB6 proprement dite, il propose d'installer le MSDN (celui-ci est facultatif), l'as-tu fait aussi ?
Et la, je ne vois pas trop comment il est possible de contourner ce problème sans être informaticien dans mon entreprise ...