[Résolu] [Calc] Lien hypertexte et date de fichier lié

[Olive6772]

suite de https://forum.openoffice.org/fr/forum/v ... =4&t=57154

Bonjour,
Je chercher une éventuelle solution au problème suivant :
- je souhaiterai connaître la dernière date de mise à jour (de modification ou d'ouverture) d'un fichier accessible via un lien hypertexte (nombre de liens prévus : 50).
Fichier joint :

Lien et date.ods

Merci pour votre aide.

[Dude]

Peut-être commencer par lire l'aide F1 sur le Basic.
Et plus particulièrement, la fonction FileDateTime.

[Olive6772]

Merci pour la fonction,
Voici ce que j'ai "bricolé".
Je pense que ça fonctionne mais l'écriture a été...chaotique.
Si quelqu'un peut faire plus court et plus...esthétique.

Reste à travailler le chemin du fichier (pour ne pas devoir l'écrire dans le code à chaque fois).

Code : Tout sélectionner

sub MessageOuverture
    msgbox "Pour exécuter cette macro veuillez cliquer su OK" 'Modifier le texte entre les guillements
end sub

REM------------------------------------------------------------------------------

sub MessageFermeture
    msgbox "Pour terminer cette macro veuillez cliquer sur OK" 'Modifier le texte entre les guillements
end sub

REM------------------------------------------------------------------------------

Sub DateFichier()
Dim DateDerniereModif As String, oDoc as Object, X as Object,gomme as Long, maZone as Object
MessageOuverture()
oDoc = thisComponent
arret=0
While arret = 0
X = oDoc.Sheets.getByName("Feuille1")
maZone = X.getCellRangeByName("D2:D1000")
gomme = com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING
maZone.clearContents(gomme)
DateDerniereModif = FileDateTime( "http://www.ia72.ac-nantes.fr/html/ia72/pageb/college/20182019/1circulaireministerielle2018.pdf" )
X.getCellByPosition(3,1).String = DateDerniereModif
arret=1
Wend
MessageFermeture()
End Sub

Fichier joint :

Lien et date.ods

[Dude]

Pas bien compris où était la difficulté ?
Tu encapsules l'instruction dans une fonction.
Fonction à laquelle tu passes le contenu de ta cellule.

no_problemo.png

[Olive6772]

En fait, au départ je ne connaissais pas la fonction.
L'idée finale est de pouvoir boucler l'écriture de la date sur un grand nombre de lien construits avec une concaténation chemin (qui ne change pas) / nom de fichier (différent à chaque ligne)

[Dude]

Où est le problème ?
Il suffit de concaténer le chemin et le nom du fichier :

Code : Tout sélectionner

=DATEFICHIER(B2&A1)