Re: [fr-users] fichiers ods

Bravo Claire, c'est limpide :-)


Le 30/09/2018 à 13:32, Ocleyr2lalune a écrit :
> Bonjour
>
> ça demande plusieurs fonctions imbriquées mais c'est faisable sans 
> macro. Car il ne peut y avoir un autre slash après le nom de fichier, 
> c'est ce dont on a besoin.
J'ai cherché un certain temps, mais il me manquait la fonction SUBSTITUE.
> https://framadrop.org/r/mQqkLnPQtq#ex70jttA1pIIHpd42IDfaFTL4+IxH4o9Ei9A/MdTFfk= 
>
>
> *Pour compter le nombre de "/" => remplacer "/" par rien et faire la 
> différence de caractère
>
> *Pour éviter trop d'imbrication :=> substitue sur la dernière 
> occurrence de "/" par un caractère interdit dans le nom de fichier 
> (pour  windows, c'est tranquille, pour Linux : //// pour éviter la 
> confusion avec file:///)
>
> *Pour obtenir le nom => stxt entre "le" caractère interdit et ".ods"
On se méfiera des vicieux qui font rien mettre ".ods" dans le nom du 
fichier ;-)
> => soit différence entre la position de .ods et "du" caractère interdit.
>
> Si a1 donne le nom complet du fichier
> Si a2 donne le nom du fichier avec "le" caractère interdit
>
> =STXT(A1;CHERCHE("////";A2)+1;CHERCHE(".ods";A1)-CHERCHE("////";A2)-1)
>
> *Pour tout mettre dans une seule cellule :
>
> STXT(CELLULE("filename");
>
> CHERCHE("////";SUBSTITUE(CELLULE("filename");"/";"////";NBCAR(CELLULE("filename"))-NBCAR(SUBSTITUE(CELLULE("filename");"/"; 
> ))))+1;
>
> CHERCHE(".ods";CELLULE("filename"))-CHERCHE("////";SUBSTITUE(CELLULE("filename");"/";"////";NBCAR(CELLULE("filename"))-NBCAR(SUBSTITUE(CELLULE("filename");"/"; 
> ))))-1)
>
>
> J'ai tout de même une nette préférence, vu l'imbrication, pour 
> l'utilisation d'une "feuille de référence" qui affiche en clair le nom 
> complet du fichier, et mieux, qui serait nommée. Avec en bonus, une 
> autre cellule (éventuellement masquée, également nommée) pour le 
> nombre d’occurrence.
>
> Ensuite, c'est automatiquement disponible en en-tête et pied de page, 
> ce n'est donc pas très "loin"
>
>
> Claire
>
> Le 30/09/2018 à 12:08, Jean-Francois Nifenecker a écrit :
> > Le 30/09/2018 à 10:18, Laurent Balland-Poirier a écrit :
> > > Bonjour,
> > >
> > > La formule dans Cals permettant de récupérer le nom du fichier est 
> > > =CELLULE("FILENAME"). La chaîne renvoyée contient le chemin absolu + 
> > > le nom du fichier + l'extension du fichier + la feuille. Il faut 
> > > donc découper cette chaîne pour ne récupérer que l'info qui 
> > > t'intéresse.
> > >
> > > Il n'y a pas de formule permettant de parcourir la chaîne de 
> > > caractère à l'envers, et donc je ne vois pas trop comment trouver le 
> > > dernier "/". La solution par macro donnée par Thierry est donc la 
> > > seule solution que je vois.
> >
> > C'est toujours préférable d'utiliser des fonctions du tableur plutôt 
> > que des macros.
> >
> > Par macro, une astuce est de découper la chaîne sur les "/" par 
> > Split(). On obtient alors une tableau duquel on ne garde que ce qu'on 
> > veut.
> >
> > Noter que l'exemple donné dans le lien fourni par Thierry, la 
> > fonction InStrRev() est utilisée. Celle-ci n'est disponible que 
> > lorsqu'on active la compatibilité VBA par :
> > Option VBAsupport 1
> >
> > Du coup, je préfère Split()  ;-)
> >
> > Note : pour que ça marche à tous les coups, il faut prendre soin 
> > d'appeler la fonction ConvertToURL() d'abord.
> >
> > Voici un (trois !) exemple(s), tirés de là :
> > https://wiki.documentfoundation.org/Macros/Basic_Primitives
> >
> >
> > 8< -----------------------------------------------------------------
> >
> > Global Const IOPRIM_PATHSEPCHAR = "/"
> > Global Const IOPRIM_EXTSEPCHAR  = "."
> >
> >
> > Function ExtractFileExt(ByRef pFileName As String) As String
> > 'Retrieves the extension part of a file name.
> > 'Input:
> > '-- pFileName: the file name to be processed (in URL or OS form).
> > 'Output: The file extension, without leading dot.
> > 'Note: This does NOT check for the file/path existence.
> >
> >     Dim l_URLName As String
> >     Dim l_Array() As String
> >     Dim l_Ext As String
> >
> >     l_Ext = ""
> >     l_URLName = ConvertToURL(pFileName)
> >     l_Array = Split(l_URLName, IOPRIM_EXTSEPCHAR)
> >     If (UBound(l_Array) > 0) Then
> >         l_Ext = l_Array(UBound(l_Array))
> >     End If
> >
> >     ExtractFileExt = l_Ext
> > End Function 'ExtractFileExt
> >
> > Function ExtractFileName(ByRef pFileName As String) As String
> > 'Retrieves a filename without access path from a FQDN file name.
> > 'Input:
> > '-- pFileName: the file name to be processed (in URL or OS form).
> > 'Output: The file name without the path part.
> > 'Note: this does not check for the file/path existence.
> > 'See also JustFileName().
> >
> >     Dim l_URLName As String
> >     Dim l_Array() As String
> >
> >     l_URLName = ConvertToURL(pFileName)
> >     l_Array = Split(l_URLName, IOPRIM_PATHSEPCHAR)
> >
> >     ExtractFileName = l_Array(UBound(l_Array))
> > End Function 'ExtractFileName
> >
> > Function ExtractFilePath(ByRef pFileName As String) As String
> > 'Extracts the path from a given FQDN file name.
> > 'Input:
> > '-- pFileName: the file name to be processed (in URL or OS form).
> > 'Output: The path part of pFileName, in URL form and terminated with 
> > a / (slash).
> > 'Note: this does not check for the file/path existence.
> >
> >     Dim l_URLName As String
> >     Dim l_Array() As String
> >     Dim l_Path As String
> >
> >     l_Path = ""
> >     l_URLName = ConvertToURL(pFileName)
> >     l_Array = Split(l_URLName, IOPRIM_PATHSEPCHAR)
> >     If (UBound(l_Array) > 0) Then
> >         l_Array(UBound(l_Array)) = ""
> >         l_Path = Join(l_Array, IOPRIM_PATHSEPCHAR)
> >     End If
> >
> >     ExtractFilePath = l_Path
> > End Function 'ExtractFilePath
> >
> > --------------------------------------------------- >8
> >
> > Si vous répondez, merci de penser à utiliser la fonction "répondre à 
> > tous" de votre logiciel de courrier électronique de façon que la 
> > liste reçoive une copie de votre réponse.
> >
> > Bien cordialement,


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy