Transfert de fichier tif et pdf avec vba

[Thierry.delcol]

Bonjour,

Je souhaiterai céer une macro qui tranfère des fichiers en .tif ou .pdf d'un dossier à un autre sans les ouvrirs.
Ces fichiers sont listés dans une feuille excel, avec leur adresse de destination (qui est différence pour chaque fichier)
Ces fichiers sont présents dans un seul dossier de mon ordinateur.
Dans ma macro, je récupère le nom du fichier et sa future adresse dans le tableur excel. Je le recherche dans le dossier ou il est situé physiquement et je voudrais le déplacer dans la nouvelle adresse sans l'ouvrir.
Est-ce possible. Je n'ai pas trouvé de code

Merci de votre aide

 

[Thierry.delcol]

Re : Transfert de fichier tif et pdf avec vba

Bonjour,

Je souhaiterai céer une macro qui tranfère des fichiers en .tif ou .pdf d'un dossier à un autre sans les ouvrirs.
Ces fichiers sont listés dans une feuille excel, avec leur adresse de destination (qui est différence pour chaque fichier)
Ces fichiers sont présents dans un seul dossier de mon ordinateur.
Dans ma macro, je récupère le nom du fichier et sa future adresse dans le tableur excel. Je le recherche dans le dossier ou il est situé physiquement et je voudrais le déplacer dans la nouvelle adresse sans l'ouvrir.
Est-ce possible. Je n'ai pas trouvé de code

J'ai mis le code de la macro ci-après
-----------------------
Sub Macro1()
Application.ScreenUpdating = False
Sheets("Docs&Links").Select
adresse3 = Cells(3, 6).Value
For ligne = 9 To 4000
If Cells(ligne, 6) = "" Then GoTo 1
adresse = Cells(ligne, 6).Value
adresse1 = Cells(ligne, 8).Value
'cherche le plan dans le fichier source
Set fs = Application.FileSearch
With fs
.LookIn = adresse3
.Filename = adresse

With Application.FileSearch
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End With
' je veux transférer les fichier sélectionner dont l'adresse est "adresse3 & adresse" dans "adresse1"





1
Next
End Sub

Merci de votre aide

 

[PascalXLD]

Re : Transfert de fichier tif et pdf avec vba

Bonjour

Fil déplacé sur le bon forum

 

[kjin]

Re : Transfert de fichier tif et pdf avec vba

Bonsoir,
On pourrait utiliser la méthode MoveFile du FileSystemObject...avec une explication un peu plus claire...
A+
kjin

 

[Thierry.delcol]

Re : Transfert de fichier tif et pdf avec vba

Bonjour,

J'ai joint le une partie du fichier avec la macro. Si tu peux me donner une idée ou me modifier la macro en cours

Merci de ton aide