suppression clone fichier

Bonjour à tous,
Je crée un clone sur le bureau avec un nom donné à l'ouverture d'un fichier et je voudrais supprimer le clone à sa fermeture.
J'ai compris qu'il faut pas se trouver sur le clone du fichier à supprimer.
Cà fonctionne avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Quitter2() Dim chem1$, UserAppli As String ExitApp = True UserAppli = Application.ActiveWorkbook.FullName If InStr(UserAppli, VBA.CreateObject("WScript.Network").UserName) > 0 Then ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill UserAppli If Application.Workbooks.Count > 1 Then Application.ActiveWorkbook.Close False End If End If ThisWorkbook.Close End Sub

---

Mais que veut dire ce code? Il ne vérifie pas le chemin du fichier ?

Code:

---

If InStr(UserAppli, VBA.CreateObject("WScript.Network").UserName) > 0 Then

---

Merci

Salut,
Déjà faut ajouter le nom de fichier à Chem1...
Et si tu tente de supprimer le classeur actif alors qu'il est ouvert tu va avoir un message d'erreur. je pense.

Code:

---

1 2 3 4 5

Sub TestDeletPath() Dim Chemin As String Chemin = "C:\Users\fpair\Desktop\" & Excel.Application.ThisWorkbook.Name If Dir(Chemin, vbNormal) > vbNullString Then Kill Chemin End Sub

---

ps: Il serait bien de répondre aux précédent posts, pour savoir si l'on à pu t'aider...

Bonjour,
Désolé, j'ai modifié ma demande vu que çà fonctionne.

Citation:

---

ps: Il serait bien de répondre aux précédent posts, pour savoir si l'on à pu t'aider...

---

Voir ma réponse.
Merci

Re,
Je pense que tu mélanges torchons et serviettes.

Code:

---

Excel.Application.ThisWorkbook.FullName

---

Renvoie le chemin de classeur. Dans mon cas par exemple il n'est pas sur "C:\Utilisateur....." puisque enregistré sur un serveur.

Citation:

---

If InStr(UserAppli, VBA.CreateObject("WScript.Network").UserName) > 0Then

---

Pourquoi utiliser un objet alors que VBA contient la fonction Environ qui te donne le même résultat
Teste dans la fenêtre d'exécution cela :

Code:

---

? Environ("UserProfile")

---

Donc tu dois vérifier si le fichier et sur le profil utilisateur , et si oui tu le supprime.

Re Valtrase,
Je suis sur mon Pc et n'ai pas encore la possibilité de tester çà sur un serveur.

La commande me donne

Code:

---

1 2	? Environ("UserProfile") C:\Users\fpair

---

Salut,

Citation:

---

Envoyé par Valtrase

Pourquoi utiliser un objet alors que VBA contient la fonction Environ qui te donne le même résultat
Teste dans la fenêtre d'exécution cela :

Code:

---

? Environ("UserProfile")

---

---

Je pense que tu trouveras une réponse ici:
https://stackoverflow.com/questions/...s-advapi32-dll

PS: Ce n'est pas UserProfile dont tu as besoin, mais UserName.