Enlever message "Overite" dans mon dézippeur

[Temjeh]

Bonjour et merci d'avance

Trouvé du net j'ai ceci pour dézipper fichier.

J'importe un zip directement du net et ensuite je le dézippe:

Sub TestRun()

    Call UnZip("C:\Users\NC\Desktop\Test", "C:\Users\NC\Desktop\Test\zip_du_net.Zip")
 
End Sub
 
 
Sub UnZip(strTargetPath As String, Fname As Variant)
 
    Dim oApp As Object
    Dim FileNameFolder As Variant
 
    If Right(strTargetPath, 1) <> Application.PathSeparator Then
        strTargetPath = strTargetPath & Application.PathSeparator
    End If
 
    FileNameFolder = strTargetPath
    Set oApp = CreateObject("Shell.Application")
    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
 
End Sub

Première fois c'est bon mais ..
Le problème est d'enlever le message pour remplacer si déjà existant.
J'ai essayé avec DisplayAlert à false mais pas bon

Je sais que j'aurais comme option de vider le dossier avant le code mais j'aimerais faire plus propre.
Merci de votre temps

Temjeh

 

[Victor21]

Re : Enlever message "Overite" dans mon dézippeur

Bonjour, Temjeh

Et avec le displayalerts à false ?

 

[Temjeh]

Re : Enlever message "Overite" dans mon dézippeur

Merci Victor

Non le Display à false ne fonctionne pas

Temjeh

 

[Temjeh]

Re : Enlever message "Overite" dans mon dézippeur

Merci

J'ai opté pour vider avant:

'Delete
Set FSO = CreateObject("scripting.filesystemobject")
MyPath = C:\Users\ ...  '<< Change

If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1)

If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " n'exsite pas": Exit Sub

On Error Resume Next
FSO.deletefile MyPath & "\*.*", True
FSO.deletefolder MyPath & "\*.*", True
On Error GoTo 0

Temjeh