Bonjour Le forum,
pourriez vous m'aider en m'indiquant comment écrire le chemin universel pour supprimer un fichier qui se trouve sur le bureau quelque soit l'username du PC
j'arrive à supprimer le fichier sil est dans le même dossier avec ThisWorkbook.Path, L'idéal étant de supprimer le fichier en vérifiant le disque dur (C🙂
Sub supprime()
Dim strUser As String, strPath As String
On Error Resume Next
strUser = Environ("username")
strPath = "c:\users\" & strUser & "\ desktop \"
Workbooks("test1.xlsm").Close False 'ferme le fichier s'il est ouvert
Kill ThisWorkbook.Path & "\test1.xlsm"
Kill "C:\Users\strUser\strPath\test1.xlsm"
End Sub
merci
pourriez vous m'aider en m'indiquant comment écrire le chemin universel pour supprimer un fichier qui se trouve sur le bureau quelque soit l'username du PC
j'arrive à supprimer le fichier sil est dans le même dossier avec ThisWorkbook.Path, L'idéal étant de supprimer le fichier en vérifiant le disque dur (C🙂
Sub supprime()
Dim strUser As String, strPath As String
On Error Resume Next
strUser = Environ("username")
strPath = "c:\users\" & strUser & "\ desktop \"
Workbooks("test1.xlsm").Close False 'ferme le fichier s'il est ouvert
Kill ThisWorkbook.Path & "\test1.xlsm"
Kill "C:\Users\strUser\strPath\test1.xlsm"
End Sub
merci