Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Je fais encore appel à vous. Je besoin d'avoir un fichier Excel pour Archiver mes documents PDF. Fichier Excel avec lequel j'aurai des liens qui vont me renvoyer directement aux fichiers PDF. Aidez moi SVP
Pour poursuivre, mais dans une voie différente, la demande initiale, j'avais crée il y a déjà quelque temps à la demande d'un user, une simili GED à partir d'un fichier Excel. L'idée de base était de faire un USF, d'ouvrir une fenêtre de dialogue, pointer sur le nouveau fichier (qu'il soit pdf ou non) et cela générait un nouvelle entrée sur un tableau avec un lien hypertexte qui permettait d'ouvrir le nouveau fichier.
Le code pour créer le lien hypertexte :
VB:
' Création lien
chemin_doc = Application.GetOpenFilename
If chemin_doc <> "" Then
deli_lien.Text = chemin_doc
End If
L'ajout de la nouvelle ligne :
VB:
i = 3
With Sheets("test")
Do While .Cells(i, 3) <> ""
i = i + 1
Loop
Worksheets("test").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.Value = deli_num
ActiveCell.Offset(0, 1).Value = deli_int
ActiveCell.Offset(0, 2).Select
If deli_lien <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
deli_lien.Text, TextToDisplay:= _
deli_lien.Text
Else
ActiveCell.Value = ""
End If
End With
Unload Me
Pour poursuivre, mais dans une voie différente, la demande initiale, j'avais crée il y a déjà quelque temps à la demande d'un user, une simili GED à partir d'un fichier Excel. L'idée de base était de faire un USF, d'ouvrir une fenêtre de dialogue, pointer sur le nouveau fichier (qu'il soit pdf ou non) et cela générait un nouvelle entrée sur un tableau avec un lien hypertexte qui permettait d'ouvrir le nouveau fichier.
Le code pour créer le lien hypertexte :
VB:
' Création lien
chemin_doc = Application.GetOpenFilename
If chemin_doc <> "" Then
deli_lien.Text = chemin_doc
End If
L'ajout de la nouvelle ligne :
VB:
i = 3
With Sheets("test")
Do While .Cells(i, 3) <> ""
i = i + 1
Loop
Worksheets("test").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.Value = deli_num
ActiveCell.Offset(0, 1).Value = deli_int
ActiveCell.Offset(0, 2).Select
If deli_lien <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
deli_lien.Text, TextToDisplay:= _
deli_lien.Text
Else
ActiveCell.Value = ""
End If
End With
Unload Me
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD
