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 :

Bouton pour ajouter un lien hypertexte dans un champ


Sujet :

VBA Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Juillet 2005
    Messages
    161
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2005
    Messages : 161
    Points : 77
    Points
    77
    Par défaut Bouton pour ajouter un lien hypertexte dans un champ
    Bonjour, j'ai un formulaire qui contient un champ de texte hypertexte.
    Quand j'ai un lien dedans et que je clique dessus tout fonctionne bien malheureusement je dois coller mes liens à la main dans ce champ.

    Je voudrais créer un petit bouton qui m'ouvrirait une fenetre d'exploration me permettant de pointer sur mon fichier sur le réseau et valider.
    Une fois validé il faudrait que le chemin de mon fichier se place dans le fameux champ de texte hypertexte.

    Je sais pas si je suis clair, d'avance merci

  2. #2
    Expert éminent
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    Décembre 2005
    Messages
    4 485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : Décembre 2005
    Messages : 4 485
    Points : 7 759
    Points
    7 759
    Par défaut
    Bonsoir,

    Pour ouvrir une boîte de dialogue d'ouverture de fichier, tu as ce code dans la faq
    Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

    Voici un exemple de code d'un bouton utilisant le code de la faq pour sélectionner un ficher
    Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub cmdBrowse_Click()
    Dim strFile As String
     
    ' Appelle code de la faq
    strFile = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1)
     
    ' enregistre chemin complet et nom de fichier dans le lien hypertexte
    If strFile <> "" Then
       Me.MonChampHyperTexte = "#" & strFile & "#"
    End If
     
    End Sub
    A+

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Juillet 2005
    Messages
    161
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2005
    Messages : 161
    Points : 77
    Points
    77
    Par défaut
    Une nouvelle fois merci ! ça fonctionne du feu de dieu !!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ajout/Modif lien hypertexte dans tableur
    Par floflo50100 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/04/2015, 15h03
  2. Réponses: 2
    Dernier message: 19/03/2014, 14h29
  3. Réponses: 30
    Dernier message: 24/10/2011, 18h37
  4. [AC-2003] ajouter un lien hypertexte dans mon email
    Par Bmichel59 dans le forum VBA Access
    Réponses: 7
    Dernier message: 08/06/2011, 16h22

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