Discussion :

[frunch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[Valtrase]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[frunch]

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

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

[Valtrase]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

? Environ("UserProfile")

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

[frunch]

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

La commande me donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedolith]

Salut,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

? 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.