Temjeh
XLDnaute Accro
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:
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
Trouvé du net j'ai ceci pour dézipper fichier.
J'importe un zip directement du net et ensuite je le dézippe:
Code:
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 SubPremiè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
Dernière édition: