Je travaille sur plusieurs gros disques reseaux sur lesquels je gére de la
doc (fichier excel, word, txt, eml.....). J'essai de regrouper par theme les
differents documents dans différents repertoires sur 2 disques principaux
F:\ et G:\.
Or mes collégues enregistrent des docs un peu partout, créeant des
repertoires à la volée.(Mon admin refuse de limiter les la creation de
repertoire et de doc).
Je desirerai
1er)sous Excel, repertorier l'enesmble des documents contenu sur les
disques, par repertoire , les archiver sur une feuille.
2eme) Faire une recherche sur un document et avoir automatiquement le lien
pour l'ouverture. Cad, aue j'aurai dans une feuille contenant une liste de
lien
f:\Espace Document Technique\cahier des charges\gestion solution.doc
je voudrais que ce lien puisse etre activé et que le document soit ouvert
directement par l'application necessaire. Et cela pour l'ensemble des
documents (doc, xls, pdf, ppm,eml....)
Apres quoi je ferai un rapport d'impression pour que chacun puisse savoir ou
son stocker les documents necessaires soit un volume de plusieurs milliers !
Si vous avez une solution, je suis preneur !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
fxm
Bonjour,
En fait, tu cherches à faire des liens hyper-textes. Je vais devoir faire un truc similaire pour mon boulot (mais ce sera dans 2 semaines fini). Voici donc des principes généraux (non testés) :
* pour lister des fichiers d'un répertoire : Sub RecupNomsFichiers() Dim Classeurs() As String, I As Long With Application.FileSearch .NewSearch .FileType = msoFileTypeAllFiles .FileName = "*.XLS" .LookIn = "E:TEMP" 'A DETERMINER !!! .SearchSubFolders = True .Execute With .FoundFiles ReDim Classeurs(1 To .Count, 1 To 1) For I = 1 To .Count Classeurs(I, 1) = .Item(I) Next I Application.ScreenUpdating = False With Range("A1").Resize(.Count) .Value = Classeurs .Sort [A1] End With End With End With End Sub
* pour créer des liens : Sub test() for each celle in selection cellule = celle.Address contenu = celle.value Range(cellule).ClearContents ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=contenu Next celle End Sub
@+ FxM
BlackStorm wrote:
Bonjour,
Je travaille sur plusieurs gros disques reseaux sur lesquels je gére de la doc (fichier excel, word, txt, eml.....). J'essai de regrouper par theme les differents documents dans différents repertoires sur 2 disques principaux F: et G:.
Or mes collégues enregistrent des docs un peu partout, créeant des repertoires à la volée.(Mon admin refuse de limiter les la creation de repertoire et de doc).
Je desirerai 1er)sous Excel, repertorier l'enesmble des documents contenu sur les disques, par repertoire , les archiver sur une feuille. 2eme) Faire une recherche sur un document et avoir automatiquement le lien pour l'ouverture. Cad, aue j'aurai dans une feuille contenant une liste de lien f:Espace Document Techniquecahier des chargesgestion solution.doc je voudrais que ce lien puisse etre activé et que le document soit ouvert directement par l'application necessaire. Et cela pour l'ensemble des documents (doc, xls, pdf, ppm,eml....) Apres quoi je ferai un rapport d'impression pour que chacun puisse savoir ou son stocker les documents necessaires soit un volume de plusieurs milliers ! Si vous avez une solution, je suis preneur !
Merci d'avance !
Bonjour,
En fait, tu cherches à faire des liens hyper-textes.
Je vais devoir faire un truc similaire pour mon boulot (mais ce sera
dans 2 semaines fini). Voici donc des principes généraux (non testés) :
* pour lister des fichiers d'un répertoire :
Sub RecupNomsFichiers()
Dim Classeurs() As String, I As Long
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.FileName = "*.XLS"
.LookIn = "E:TEMP" 'A DETERMINER !!!
.SearchSubFolders = True
.Execute
With .FoundFiles
ReDim Classeurs(1 To .Count, 1 To 1)
For I = 1 To .Count
Classeurs(I, 1) = .Item(I)
Next I
Application.ScreenUpdating = False
With Range("A1").Resize(.Count)
.Value = Classeurs
.Sort [A1]
End With
End With
End With
End Sub
* pour créer des liens :
Sub test()
for each celle in selection
cellule = celle.Address
contenu = celle.value
Range(cellule).ClearContents
ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=contenu
Next celle
End Sub
@+
FxM
BlackStorm wrote:
Bonjour,
Je travaille sur plusieurs gros disques reseaux sur lesquels je gére de la
doc (fichier excel, word, txt, eml.....). J'essai de regrouper par theme les
differents documents dans différents repertoires sur 2 disques principaux
F: et G:.
Or mes collégues enregistrent des docs un peu partout, créeant des
repertoires à la volée.(Mon admin refuse de limiter les la creation de
repertoire et de doc).
Je desirerai
1er)sous Excel, repertorier l'enesmble des documents contenu sur les
disques, par repertoire , les archiver sur une feuille.
2eme) Faire une recherche sur un document et avoir automatiquement le lien
pour l'ouverture. Cad, aue j'aurai dans une feuille contenant une liste de
lien
f:Espace Document Techniquecahier des chargesgestion solution.doc
je voudrais que ce lien puisse etre activé et que le document soit ouvert
directement par l'application necessaire. Et cela pour l'ensemble des
documents (doc, xls, pdf, ppm,eml....)
Apres quoi je ferai un rapport d'impression pour que chacun puisse savoir ou
son stocker les documents necessaires soit un volume de plusieurs milliers !
Si vous avez une solution, je suis preneur !
En fait, tu cherches à faire des liens hyper-textes. Je vais devoir faire un truc similaire pour mon boulot (mais ce sera dans 2 semaines fini). Voici donc des principes généraux (non testés) :
* pour lister des fichiers d'un répertoire : Sub RecupNomsFichiers() Dim Classeurs() As String, I As Long With Application.FileSearch .NewSearch .FileType = msoFileTypeAllFiles .FileName = "*.XLS" .LookIn = "E:TEMP" 'A DETERMINER !!! .SearchSubFolders = True .Execute With .FoundFiles ReDim Classeurs(1 To .Count, 1 To 1) For I = 1 To .Count Classeurs(I, 1) = .Item(I) Next I Application.ScreenUpdating = False With Range("A1").Resize(.Count) .Value = Classeurs .Sort [A1] End With End With End With End Sub
* pour créer des liens : Sub test() for each celle in selection cellule = celle.Address contenu = celle.value Range(cellule).ClearContents ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=contenu Next celle End Sub
@+ FxM
BlackStorm wrote:
Bonjour,
Je travaille sur plusieurs gros disques reseaux sur lesquels je gére de la doc (fichier excel, word, txt, eml.....). J'essai de regrouper par theme les differents documents dans différents repertoires sur 2 disques principaux F: et G:.
Or mes collégues enregistrent des docs un peu partout, créeant des repertoires à la volée.(Mon admin refuse de limiter les la creation de repertoire et de doc).
Je desirerai 1er)sous Excel, repertorier l'enesmble des documents contenu sur les disques, par repertoire , les archiver sur une feuille. 2eme) Faire une recherche sur un document et avoir automatiquement le lien pour l'ouverture. Cad, aue j'aurai dans une feuille contenant une liste de lien f:Espace Document Techniquecahier des chargesgestion solution.doc je voudrais que ce lien puisse etre activé et que le document soit ouvert directement par l'application necessaire. Et cela pour l'ensemble des documents (doc, xls, pdf, ppm,eml....) Apres quoi je ferai un rapport d'impression pour que chacun puisse savoir ou son stocker les documents necessaires soit un volume de plusieurs milliers ! Si vous avez une solution, je suis preneur !
