IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

sélection fichier avec boite filedialog en réseau


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre très actif
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    1 047
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 1 047
    Par défaut sélection fichier avec boite filedialog en réseau
    Bonjour,
    dans une base j'utilise une boite openfiledialog pour sélectionner des fichiers et les enregistrer dans ma base de donnée. Le problème est que lorsque je sélectionne mon fichier sur le réseau et que ce fichier appartient à à l'ordinateur utilisé la boite renvoit le nom direct càd "c:\...." au lieu de
    "\\cb3\...".
    Connaissez vous une méthode pour forcer l'écriture du chemin réseau?

    nb: je vous fourni le programme qui me permet d'ouvrir le fichier:
    Public Function SélectionNomFichier(Titre As String, Filtre As String) As String
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    On Error Resume Next


    Dim OFName As OPENFILENAME
    OFName.lStructSize = Len(OFName)
    'Set the parent window
    OFName.hwndOwner = Forms(0).hWnd
    'Set the application's instance
    OFName.hInstance = 1 ''Application.hInstance
    'Select a filter
    OFName.lpstrFilter = Filtre
    'create a buffer for the file
    OFName.lpstrFile = Space$(254)
    'set the maximum length of a returned file
    OFName.nMaxFile = 255
    'Create a buffer for the file title
    OFName.lpstrFileTitle = Space$(254)
    'Set the maximum length of a returned file title
    OFName.nMaxFileTitle = 255
    'Set the initial directory
    OFName.lpstrInitialDir = "C:\"
    'Set the title
    OFName.lpstrTitle = Titre
    'No flags
    OFName.flags = &H80000 + &H4

    'Show the 'Open File'-dialog
    If GetOpenFileName(OFName) Then
    SélectionNomFichier = Trim$(OFName.lpstrFile)
    Else
    ''MsgBox "Cancel was pressed"
    End If
    End Function

  2. #2
    Expert confirmé
    Avatar de Arkham46
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    5 865
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : Septembre 2003
    Messages : 5 865
    Par défaut
    bjr,

    Direction FAQ :
    http://access.developpez.com/faq/?pa...UnicodeLecteur

    EDIT:j'ai lu un peu vite, je ne crois pas que ce soit ça...

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Août 2005
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 52
    Par défaut
    Plus simple, tu n'as qu'à mapper des lecteurs réseaux sur tes postes

  4. #4
    Membre très actif
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    1 047
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 1 047
    Par défaut
    bonjour,
    utiliser le chemin unc est certainement une bonne idée le pb vient que je n'arrive pas à utiliser la fonction WNetGetConnection elle me donne le défaut 2250.

    pour le mappage je ne sais pas comment faire pouvez vous précisez.

    merci

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Août 2005
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 52
    Par défaut
    Tu cliques avec bouton de droite sur poste de travail et tu choisis connecter lecteur réseau

  6. #6
    Membre très actif
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    1 047
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 1 047
    Par défaut
    bonjour,
    c'est une solution que peut etre bonne mais est il possible d'assigner cette lettre par programation pour l'ensemble des ordinateurs?

    merci

Discussions similaires

  1. [Sources] Utiliser la boite de dialogue sélection d'un fichier avec l'API
    Par omen999 dans le forum Vos Contributions VBScript
    Réponses: 4
    Dernier message: 26/01/2022, 22h22
  2. [XL-2013] Ouverture de fichier avec boite de dialogue
    Par pepesese dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/09/2014, 18h33
  3. Réponses: 6
    Dernier message: 12/08/2014, 17h06
  4. Probleme ouverture fichier avec boite de dialogue
    Par tomaix dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/01/2013, 09h03
  5. Transférer des fichiers avec un câble réseau
    Par denis finch dans le forum Développement
    Réponses: 5
    Dernier message: 08/11/2005, 16h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo