Bonjour à tous !

Après plusieurs heures de recherche sur internet, je ne trouve pas le blocage de ma macro. Le but est simple, J'ai un fichier "source" situé sur un serveur que je dois Copier et déplacer sur le "Disque Local" pour faire la manipulation.

Pour le moment, j'ai ces codes là.

Le premier est pour faire une copie du fichier dans le même dossier. Elle fonctionne très bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Fichier1()
    Dim GestionFichier As Object
    Set GestionFichier = CreateObject("Scripting.FileSystemObject")
    GestionFichier.CopyFile "C:\Users\RBER\Desktop\Microsoft Office\Nouveau dossier\Classeur1.xlsx", "C:\Users\RBER\Desktop\Microsoft Office\Nouveau dossier\Classeur2.xlsx"
    Set GestionFichier = Nothing
 
    Application.Run ("DeplaceFichier")
End Sub
Le deuxième doit déplacer le fichier d'un dossier à un autre, mais j'ai une erreur sur ma deuxième ligne: Il n'aime pas la déclaration de la variable "GestionFichier"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Sub DeplaceFichier()
    Dim GestionFichier As New Scripting.FileSystemObject
    ' Celle-ci fonctionne :
    GestionFichier.MoveFile "C:\Users\ADMIN\Desktop\Microsoft Office\Nouveau dossier\Classeur2.xlsx", "C:\Users\ADMIN\Desktop\Microsoft Office\Nouveau dossier(2)"
    Set GestionFichier = Nothing
End Sub

Si vous avez déjà eu cette erreur, je suis preneur de réponse, car je n'ai pas trouvé sur le forum.

Cordialement,