XL 2016 Modification code VBA

[Kaizers]

Bonjour

J'ai ce code, qui fonctionne très bien, mais je souhaite qu'il déplace les fichiers, actuellement il me les copies, mais je veux qu'ils n'y soient plus

Sub Deplacement()

Dim FichierOriginal As String
Dim FichierCopie As String
Dim A As Long

A = Range("F14").Value
B = Range("H14").Value

For K = A To B


FichierOriginal = Range("E" & K).Value
FichierCopie = Range("I" & K).Value

FileCopy FichierOriginal, FichierCopie

Next K


End Sub

 

[Lolote83]

Bonjour
Une fois la copie effectuée, il faut donc faire un Kill pour effacer le fichier Original

https://learn.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/kill-statement

@+ Lolote83

 

[Kaizers]

Effectivement tout simple, merci bcp

 

[Lolote83]

Re bonjour,
Si la solution apportée correspond à tes attentes, n'oublie pas de passer le post en question en RESOLU
@+ Lolote83

 

[Staple1600]

Bonjour le fil, @Kaizers , @Lolote83

@Kaizers
Une autre possibilité

Sub Deplacement_Bis()
Dim FichierOriginal$, FichierCopie$
Dim Chemin_Source$, Chemin_Desti$
Dim A As Long
Chemin_Source= "C:\toto" 'chemin à adapter
A = Range("F14").Value
Chemin_Desti= "C\titi" ' chemin à adapter
A = Range("F14").Value
B = Range("H14").Value
For K = A To B
FichierOriginal = Chemin_Source & "\" & Range("E" & K).Value
FichierCopie = Chemin_Desti & "\" & Range("I" & K).Value
Name FichierOriginal As FichierCopie
Next K
End Sub

Je te laisse tester