lien hypertexte Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
V
Vrancky
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 6 juin 2014
Version d'Excel : 2003

Message par Vrancky » 2 juillet 2014, 07:50

Bonjour !

Me voilà face à un nouveau problème, j'ai chercher dans les questions résolues sur le forum mais sans trouver de réponse.

Je souhaite, en suivant la fermeture d'un userform, ouvrir la fenetre de création de lien hypertexte, choisir le ficher à linker et ensuite garder en mémoire ce lien sous le nom "fiche" pour l'écrire ensuite dans une base de donnée.

J'ai essayé:
Application.Dialogs(xlDialogInsertHyperlink).Show
Qui fonctionne, mais ne fait pas ce que je veux. Effectivement je peux choisir un fichier, le lien hypertexte est créé MAIS il s'inscrit dans la cellule qui est sélectionné ce qui ne convient pas du tout. Je dois le garder en mémoire pour l'écrire dans la base de données.

J'ai ensuite essayé:
fiche = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
Qui fonctionne également, j'ai alors dans "fiche" le chemin d'accès du fichier choisi. J'arrive à écrire fiche au bon endroit dans la base de données MAIS le chemin écrit n'est pas un lien hypertexte. Il n'est pas en bleu souligné et n'ouvre rien au clic.

Auriez vous une idée de comment faire ?

Bonne journée à tous !

Vrancky
H
Hervé
Membre habitué
Membre habitué
Messages : 59
Inscrit le : 15 mai 2014
Version d'Excel : 2013

Message par Hervé » 2 juillet 2014, 08:15

bonjour :)

exemple pour renvoyer l'hyperlien en a1 :
fiche = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
Range("a1").Hyperlinks.Add anchor:=Range("a1"), Address:=fiche
a plus
V
Vrancky
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 6 juin 2014
Version d'Excel : 2003

Message par Vrancky » 2 juillet 2014, 09:19

Merci poura ta réponse mais ca continu de bloquer. Je tombe sur l'erreur suivante (pour info, j'utilise Excel 2003):

"Erreur de compilation

Argument nommé introuvable"

adresse est alors "sélectionné" en bleu (pas en jaune)

le code est le suivant:
Private Sub CommandButton1_Click()
Dim nomstage As String
Dim fiche As String
    
nomstage2 = TextBox1.Value

    Dim ligne As Integer
    ligne = Selection.Cells(1).Row
    
    'chercher la colonne a laquelle le stage doit etre inserer
    Dim colonne As Integer
    colonne = Selection.Cells(1).Column

    Call selectStage(ligne, colonne)
        
    Dim fin, debut As Integer
    fin = getDerniereSemaineStage(ligne, colonne)
    debut = getPremiereSemaineStage(ligne, colonne)
    
    Dim numerostage As Integer
    numerostage = getNumeroStage(ligne, colonne)
 
     fiche = Application.GetOpenFileName("Tous,*.*", , "Choisir la fiche de lancement de stage :")
   DoEvents

 
    With Sheets("BaseDeDonnees")
            Dim lignebdd As Integer
            lignebdd = 2
            While (.Cells(lignebdd, 1).Value <> numerostage)
            lignebdd = lignebdd + 1
            Wend
            nbStagiaires = .Cells(lignebdd, 10).Value
            promotion = .Cells(lignebdd, 15).Value
            remarque = .Cells(lignebdd, 16).Value
            Range("lignebdd19").Hyperlinks.Add anchor:=Range("lignebdd19"), adresse:=fiche

'j'ai essayé aussi: .Cells(lignebdd, 19).Hyperlinks.Add anchor:=.Cells(lignebdd, 19), adresse:=fiche
'l'erreur avec "adresse" semble logique étant donné que "adresse" n'a pas pris automatiquement un A majuscule

    End With

    Call setNomStageGras(ligne, debut, fin, nomstage2, nbStagiaires, promotion, remarque, colonne)

Unload Me


End Sub
V
Vrancky
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 6 juin 2014
Version d'Excel : 2003

Message par Vrancky » 2 juillet 2014, 11:16

C'est moi qui ai merdé....

Ca fonctionne, merci !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Lien hypertexte vers cellule avec lien hypertexte
    par ShimeR » 12 mai 2017, 12:10 » dans Excel - VBA
    1 Réponses
    1531 Vues
    Dernier message par Theze
    13 mai 2017, 21:57
  • lien hypertexte
    par desophie » 9 janvier 2015, 09:26 » dans Excel - VBA
    5 Réponses
    175 Vues
    Dernier message par tulipe_4
    11 janvier 2015, 13:15
  • Lien hypertexte
    par LucieBRETON » 7 novembre 2018, 11:45 » dans Excel - VBA
    2 Réponses
    61 Vues
    Dernier message par LucieBRETON
    7 novembre 2018, 13:50
  • Lien hypertexte
    par ludeaux » 26 août 2019, 08:54 » dans Excel - VBA
    3 Réponses
    53 Vues
    Dernier message par ludeaux
    26 août 2019, 10:06
  • lien hypertexte
    par boris21200 » 7 décembre 2018, 08:53 » dans Excel - VBA
    5 Réponses
    136 Vues
    Dernier message par dhany
    8 décembre 2018, 00:50
  • lien hypertexte
    par ramonpinpin » 22 septembre 2017, 17:33 » dans Excel - VBA
    6 Réponses
    221 Vues
    Dernier message par i20100
    30 septembre 2017, 22:50