Résultats de la recherche

Hello Tu as un exemple avec la propriété subfolders et la fonction getextensionname dans ce post : Lien supprimé En mixant ça avec la procédure de recherche des sous-dossiers tu devrais y arriver. Si non, j'espère qu'un autre XLDnaute pourra t'aider parce que ce WE j'ai vraiment peu de temps...

Bonsoir _Thierry a raison, sans Max c'est perdu d'avance. On pourrait passer par la taille des fichiers plus que par le nombre de dossiers, puisqu'on peut connaitre la taille occupée sur le disque dur à l'aide des propriétés de l'objet drive de windows script. Mais : 1) La taille occupée sur...

Hello Eric, Salut le forum La procédure suivante lit les contenus de tous les fichiers texte d'un dossier donné : Sub ReadTxtFiles() Dim st() As String Dim i As Integer Dim fso As Object, fld As Object, fl As Object, ftxt As Object Set fso = CreateObject('scripting.filesystemobject')...

Hello Il faut associé ton code à l'événement Open de l'objet Workbook, ce qui va te donner : Private Sub Workbook_Open() ... End Sub ++ kloss

Bonsoir Julos08, bonsoir à tout le forum * Pour travailler non plus sur les sous-dossiers d'un dossier, mais sur ses fichiers, il faut utiliser non pas la propriété SUBFOLDERS, mais la propriété FILES (peu étonnant btw) * La comparaison sur l'extension peut être obtenue avec la fonction...

Ah mais si je suis nul ça marche en formule avec ça : =hyperlink('c:\\mondossier';'The link') Pas besoin de passer par explorer.exe... Bon ensuite modifier la procédure ça n'est pas compliqué : il faut écrire qqch du genre : range('A' & icounter).formula = '=hyperlink(' & chr(34) &...

Re-Salut julos Pas de solution en formule selon moi J'ai essayé ça : =hyperlink('c:[slash]windows[slash]explorer.exe c:[slash]mondossier';'The Link') mais la fonction hyperlink n'admet pas les arguments qu'on passe à l'exécutable. En revanche, on peut toujours écrire ça : Function GoToRep...