liste liens : recuperer fichiers

tototiti2008

XLDnaute Barbatruc

• 24 Juin 2009

• #2

Re : liste liens : recuperer fichiers

Bonjour VBA_DEAD,

tu veux copier ou déplacer ces fichiers ?
se peut-il que ces fichiers soient ouverts par l'utilisateur ?
pourquoi tes adresses commencent-elles par "\\" ?

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 24 Juin 2009

• #3

Re : liste liens : recuperer fichiers

Salut TOTOTITI2008,

je veux juste les copier, je ne veux surtout pas les deplacer.
j`ai ensuite une macro qui (une fois que les fichiers son stockes ds un endroit particulier) va me regrouper les donnees (macro de MichelXLD je crois bien...😛)

donc je veux juste copier les files - pas plus.

merci pour ton aide


VBA_DEAD

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 24 Juin 2009

• #4

Re : liste liens : recuperer fichiers

hope la
je vois un probleme.
les files ont parfois le meme nom...
chaque file est sauve ds un fichier different et donc parfois les files ont le meme nom.
j`avais pas pense a ce probleme....
du coup peut on renommer les fichiers quand on recupere le file: type file 1.xls, file 2.xls , file 3.xls....

desole car ca va bien compliquer le code


vba_dead

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 24 Juin 2009

• #5

Re : liste liens : recuperer fichiers

pour les \\ les files sont asur un serveur donc je vais chercher les files
ca commence comme ca
\\RMTR\SERVICE_VENTES\...

merci

VBA_DEAD

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 26 Juin 2009

• #6

Re : liste liens : recuperer fichiers

Bonjour

bon ma demande doit etre trop complexe. 😱

pour mon probleme, sans renommer les files (ca me permettra d`en recuperer une majorite qui ont un nom unique), il y a t`il une solution?

personne n`a jamais eu ce probleme?

je vous remercie

VBA_DEAD

 

Vote positif 0 Vote négatif

H

happymarmotte

XLDnaute Occasionnel

• 26 Juin 2009

• #7

Re : liste liens : recuperer fichiers

salut

voila un code que j`avais (2006 - source le forum! 😀) qui repond a la question je crois

Sub CopyAllFilesToDir()

Dim filepath, out, dir As String
dir = "C:\Documents and Settings\Macro\"
'chemin ou tu veux recuperer les files captures par la macro

Set fs = CreateObject("Scripting.FileSystemObject")

With Workbooks("Liste_liens.xls").Sheets("Sheet1")
'Liste_Liens est le nom du fichier - liens ds colonne c

For i = 1 To .Cells(1, 1).End(xlDown).Row

filepath = .Cells(i, 3).Value 'Path in 3rd Column

If fs.FileExists(filepath) Then

out = dir + Right(filepath, Len(filepath) - InStrRev(filepath, "\"))

fs.CopyFile filepath, out 'Copy

End If
Next i
End With
End Sub

a+

happymarmotte

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 26 Juin 2009

• #8

Re : liste liens : recuperer fichiers

Salut

merci pour le code.
j`ai teste mais ca ne marche pas. il ne se passe rien. 😕
quelqu`un peut me dire ce qui ne marche pas ds mon ficheir joint?
merci

VBA_DEAD

 

Pièces jointes

• Macro_CaptureFile2.xls

  23.5 KB · Affichages: 68

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 27 Juin 2009

• #9

Re : liste liens : recuperer fichiers

Bonjour,
je cherche tjs et je vois pas pourquoi le code ne marche pas.
quelqu`un peut m`indiquer ce qui ne va pas ds le code que j`ai mis le file excel??

merci

vba_dead

 

Vote positif 0 Vote négatif

V

VBA_DEAD

XLDnaute Occasionnel

• 29 Juin 2009

• #10

Re : liste liens : recuperer fichiers

Hello

Ca y est ca marche. En fait c`etait le format de mon lien qui n`allait pas.

merci donc

VBA-DEAD

 

Vote positif 0 Vote négatif

M

mike69290

XLDnaute Nouveau

• 3 Novembre 2009

• #11

Re : liste liens : recuperer fichiers

Bonjour,

Je relance le sujet car j’ai le même besoin mais un cas légèrement différent :

• Ce sont des liens hypertextes pointés sur des mots (= le contenu de la cellule n’est pas le nom du fichier)
  
• J’ai plusieurs feuilles qui doivent être « fouillées ». Les cellules contenant des hyperliens sont éparpillées dans chaque feuilles, les cellules n’ont pas toutes un lien
  
• Le nom du classeur excel et les noms des feuilles varient (= la macro doit fonctionner peu importe les noms)

Donc en gros, j’ai besoin d’une macro qui :
1. Fouille toutes les feuilles du classeur actif à la recherche de liens pointant vers un fichier (ce sont des pdf)
2. Copie ces fichiers vers le répertoire de destination


Sauriez-vous faire ça ?

Il y a parfois 70 liens dans mes classeurs et je dois régulierement rassembler manuellement tous les fichiers pour envoyer le dossier à mes clients: cela me prend un temps fou. Donc un grand merci d'avance ! 🙂

 

Dernière édition: 3 Novembre 2009

Vote positif 0 Vote négatif