Macro pour supprimer un classeur sur un réseau

Bonjour,

Je travail sur un classeur de planification qui ce sur un réseau. L’utilisateur travaille avec son propre notebook.

Ce classeur va copier des données dans le classeur nommé movementsReport qui est généré par un site intranet.

Pour ouvrir ce fichier, j’utilise le code suivant que j’ai trouvé sur un forum :

Sub Ouvrir_Fichier_Téléchargement()

Dim CheminFichier As String

' Spécifiez le chemin complet du fichier sur le bureau

CheminFichier = Environ("USERPROFILE") & "\Downloads\movementsReport.xlsx"

' Vérifiez si le fichier existe

If Dir(CheminFichier) <> "" Then

' Ouvrez le fichier

Workbooks.Open CheminFichier

Else

MsgBox "Le fichier n'a pas été trouvé dans le dossier Téléchargement.", vbExclamation

End If

'Traitement des données

End Sub

Une fois que les données sont transférées et traité, je souhaiterais que le fichier movementsReport soit supprimer du dossier Téléchargement.

Le but est de simplifier le travail du planificateur.

J’ai essayé d’utiliser l’instruction Kill ou DeleteFile mais sans succès.

Je souhaiterais un coup de main pour résoudre ce problème.

Un grand merci.

Bonjour rosco1669

J’ai essayé d’utiliser l’instruction Kill ou DeleteFile mais sans succès

Etrange sauf si le code donné
Essayez avec ce code plutôt

Sub Ouvrir_Fichier_Téléchargement()
  Dim CheminFichier As String
  Dim WbkMR As Workbook
  ' Spécifiez le chemin complet du fichier sur le bureau
  CheminFichier = Environ("USERPROFILE") & "\Downloads\movementsReport.xlsx"
  ' Vérifiez si le fichier existe
  If Dir(CheminFichier) <> "" Then
    ' Ouvrez le fichier
    Set WbkMR = Workbooks.Open(CheminFichier)
  Else
    MsgBox "Le fichier n'a pas été trouvé dans le dossier Téléchargement.", vbExclamation
    Exit Sub ' A NE PAS OUBLIER
  End If
  'Traitement des données
  Call TraitementDonnées
  ' Fermer le classeur ouvert
  WbkMR.Close SaveChanges:=False
  ' On peut alors, le supprimer
  Kill CheminFichier & "movementsReport.xlsx"
End Sub

Merci beaucoup pour la réponse.

J'espère pouvoir le tester rapidement. J'ai d'autres problèmes à régler avant avec ce tableau.