yannick63430
XLDnaute Junior
bonsoir,
j'ai besoin de votre aide afin d'automatiser ma macro.
en fait j'ai dans les cellules B1 à B13 des chemins d'accès (C:\Users\ya...) et en C1 un chemin d'accès général et unique
j'ai une macro qui a besoin de se référencer à B1 pour "ouvrir" ce chemin d'accès et de l'autre le chemin d'accès en C1.
J'aimerai pouvoir mettre une variable avec du style "for to next" afin que la macro automatise la tâche pour B1&C1, puis B2&C1 jusqu'à B13&C1
pour ma macro, je me suis inspirer du travail de frederic.sigonneau et la voici :
Sub Deplacer2()
sSource = "C:\Users\ya...\*.pdf"
sDestination = "C:\Users\yannick\"
' "h:\temp\"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile sSource, sDestination
MsgBox "Terminé."
End Sub
j’espère avoir été clair.
Merci d'avance
Cordialement
yannick
j'ai besoin de votre aide afin d'automatiser ma macro.
en fait j'ai dans les cellules B1 à B13 des chemins d'accès (C:\Users\ya...) et en C1 un chemin d'accès général et unique
j'ai une macro qui a besoin de se référencer à B1 pour "ouvrir" ce chemin d'accès et de l'autre le chemin d'accès en C1.
J'aimerai pouvoir mettre une variable avec du style "for to next" afin que la macro automatise la tâche pour B1&C1, puis B2&C1 jusqu'à B13&C1
pour ma macro, je me suis inspirer du travail de frederic.sigonneau et la voici :
Sub Deplacer2()
sSource = "C:\Users\ya...\*.pdf"
sDestination = "C:\Users\yannick\"
' "h:\temp\"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile sSource, sDestination
MsgBox "Terminé."
End Sub
j’espère avoir été clair.
Merci d'avance
Cordialement
yannick