Bienvenue! Identification Créer un nouveau profil

Recherche avancée

msoFileDialogOpen qui ne marche pas avec Office 2010

31/07/14 14:57
Bonjour,

je n'arrive pas a initialiser la fonction d'ouverture pour selection de fichier. je reçoit le message suivant
Citation:
Erreur d'execution '-2147467259 (80004005)':
La méthode 'FileDialog" de l'objet '_Application' a échoué

voici le code que j'ai saisi
Langage: Visual Basic
Function SelectAndTransfertFile() As Boolean ' ATL : le 09/11/2012 : appeler un sélecteur de fichier pour le chargement de fichiers textes Dim file_name As String Dim position As Integer Dim dossier As String     'Set fd = Application.FileDialog(msoFileDialogOpen) Set fd = Application.FileDialog(msoFileDialogFilePicker)   ' Titre de la boîte de dialogue fd.Title = "Sélectionnez un fichier..."   ' Ne pas autoriser la sélection multiple ' (donc 1 seul fichier est sélectionnable à la fois) fd.AllowMultiSelect = False   ' Afficher la boîte de dialogue If fd.Show() Then file_name = fd.SelectedItems(1) position = InStrRev(file_name, "\") ' Extraire le chemin du dossier à partir du nom de fichier sélectionné If position > 0 Then dossier = Left(file_name, position) DoCmd.TransferText acImportDelim, "SpecImport_Inventaire", "Inventaire", file_name   End If ' If position > 0 Then End If ' If fd.Show() Then Set fd = Nothing SelectAndTransfertFile = True   Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Action réalisée" ' Define message. Style = vbOK + vbExclamation '+ vbDefaultButton2 ' Define buttons. Title = "Confirmation" ' Define title. Help = "DEMO.HLP" ' Define Help file. Ctxt = 1000 ' Define topic ' context. ' Display message. Response = MsgBox(Msg, Style, Title, Help, Ctxt)   End Function

voyez vous ce que cela pourrait être?

merci d'avance

Bien cordialement,

Anthony
SujetAuteurEnvoyé le

msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth31/07/14 14:57

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan01/08/14 16:40

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth04/08/14 10:16

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan06/08/14 07:59

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth07/08/14 11:04

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan07/08/14 12:15

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth07/08/14 14:06

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan07/08/14 14:21

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth07/08/14 14:28

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan07/08/14 14:34

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

dedeanth07/08/14 14:45

Re: msoFileDialogOpen qui ne marche pas avec Office 2010

Hervé Inisan07/08/14 16:01

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter