macro recherche chemin fichier

Le
jcp66
Bonjour j'ai un fichier excel avec en colonne B des noms de fichiers.
Ceux ci sont presents dans une arborescence sousl'emplacement du fichier
excel, mais le chemin est different selon les fichiers.
Je voudrais une macro qui me mette en colonne C le chemin de chacun.
Je butte depuis un moment en recherchant également avec google mais sans
resultat.
Si quelqu'un a la solution, par avance merci.
cordialment
jcp
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4813611
Salut à toi

Je te propose par une boîte de dialogue d'aller sélectionner chacun de tes
fichiers
Tu sélectionnes dans la colonne C la première cellule à traiter et tu lances
ce code :

Départ = ActiveCell.Address
Début:
Workbooks.Open Filename:=Application.GetOpenFilename("(*.xls),")
Workbooks("Document de recopie").Sheets("Onglet de
recopie").Range(Départ).Offset(i, 0) = ActiveWorkbook.Path & "" &
ActiveWorkbook.Name
ActiveWorkbook.Close SaveChanges:úlse
If MsgBox("Voulez vous traiter un autre fichier", vbYesNo) = vbYes Then
i = i + 1
GoTo Début
Else
Exit Sub
End If

Actualises la ligne :

Workbooks("Document de recopie").Sheets("Onglet de
recopie").Range(Départ).Offset(i, 0) = ActiveWorkbook.Path & "" &
ActiveWorkbook.Name

Document de recopie = le nom de ton document dans lequel est rapportée le
chemin de tes dossiers

Onglet de recopie = le nom de la feuille de ce document

Espérant que celà te convienne
Dis moi !!!


Bonjour j'ai un fichier excel avec en colonne B des noms de fichiers.
Ceux ci sont presents dans une arborescence sousl'emplacement du fichier
excel, mais le chemin est different selon les fichiers.
Je voudrais une macro qui me mette en colonne C le chemin de chacun.
Je butte depuis un moment en recherchant également avec google mais sans
resultat.
Si quelqu'un a la solution, par avance merci.
cordialment
jcp





Nelson
Le #4645801
Tu n'arrives pas à trouver les fichiers où à écrire les chemins d'accès dans
la colonne C?


Bonjour j'ai un fichier excel avec en colonne B des noms de fichiers.
Ceux ci sont presents dans une arborescence sousl'emplacement du fichier
excel, mais le chemin est different selon les fichiers.
Je voudrais une macro qui me mette en colonne C le chemin de chacun.
Je butte depuis un moment en recherchant également avec google mais sans
resultat.
Si quelqu'un a la solution, par avance merci.
cordialment
jcp





jcp66
Le #4645721
je voudrais trouver le chemin et l'ecrire

"Nelson"
Tu n'arrives pas à trouver les fichiers où à écrire les chemins d'accès
dans
la colonne C?


Bonjour j'ai un fichier excel avec en colonne B des noms de fichiers.
Ceux ci sont presents dans une arborescence sousl'emplacement du fichier
excel, mais le chemin est different selon les fichiers.
Je voudrais une macro qui me mette en colonne C le chemin de chacun.
Je butte depuis un moment en recherchant également avec google mais sans
resultat.
Si quelqu'un a la solution, par avance merci.
cordialment
jcp








JB
Le #4645681
Bonjour,

Utiliser Application.FileSearch.

Sub essai()
nf = InputBox("Fichier cherché?")
If nf <> "" Then
RechercheFichiers "c:mes documents", nf
End If
End Sub

Sub RechercheFichiers(chemin, monfichier)
Dim FS, I As Integer
Set FS = Application.FileSearch
FS.LookIn = chemin
FS.SearchSubFolders = True
FS.Filename = monfichier
If FS.Execute() > 0 Then
MsgBox "Ce dossier contient " & FS.FoundFiles.Count & "
fichier(s) répondant aux critères"
For I = 1 To FS.FoundFiles.Count
MsgBox FS.FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier trouvé"
End If
End Sub

JB


On 1 août, 10:42, "jcp66"
Bonjour j'ai un fichier excel avec en colonne B des noms de fichiers.
Ceux ci sont presents dans une arborescence sousl'emplacement du fichier
excel, mais le chemin est different selon les fichiers.
Je voudrais une macro qui me mette en colonne C le chemin de chacun.
Je butte depuis un moment en recherchant également avec google mais sans
resultat.
Si quelqu'un a la solution, par avance merci.
cordialment
jcp


Publicité
Poster une réponse
Anonyme