Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.
Modérateur :Vilains modOOs
Règles du forum Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
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.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par Olive6772 le 01 mars 2018 17:42, modifié 1 fois.
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).
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
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
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)