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.
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.