figer chemin telechargement

[IsabelleC]

bonjour,

j'essaie de mettre en place une procédure pour telecharger automatiquement des fichiers

j'ai un pb avec le chemin du dossier où se téléchargent les fichiers.
cette procédure étant destinée à être installée sur plusieurs postes, est-il possible de "figer" le chemin : thisworkbook.path
pour télécharger les dossiers

merci d'avance pour vos réponses

isabelle

 

[CBernardT]

Re : figer chemin telechargement

Bonjour IsabelleC et le forum,

Fais un essai avec le code ci-dessous. Tous les fichiers contenus dans le répertoire du classeur ouvert, dans le code "ThisWorkbook.Name" seront ouverts. Attention à l'ouverture d'un trop nombre de fichiers qui risque de ralentir très fortement la machine.

Sub ouvrirFichiers()
Dim i As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
If .Filename <> ThisWorkbook.Name Then
Workbooks.Open .FoundFiles(i)
End If
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub

Cordialement

Bernard

 

[IsabelleC]

Re : figer chemin telechargement

bonsoir bernard,

je te remercie pour ta réponse mais en fait pour le moment je ne veux pas ouvrir les fichiers mais enregistrer les fichiers lors de leur téléchargement dans le même dossier que le classeur qui gère la procédure

par contre je garde ton code pour l'étape suivante même si 2007 ne reconnait pas filesearch, je vais essayer de régler cela

bonne soirée

isabelle