Sub DecompresserArchiveZip()
Const NOCONFIRMATION = 16
'définition des variables
Dim OShell As Object, XFiles As Object
Dim FRacine, FZip, FTemp, FUnzip, FNom ' par défaut type Varian
'informations sur l'archive et le dossier pour les fichiers décompressés
FNom = "NC AND NCV DATA,REPORTSINBOUNDMULTIZIP,Awb_Details_Inbound_ProcessOrInbound_19022024" ' nom du fichier Zip
FRacine = "C:\BNC AND NCV DATA\REPORTSINBOUNDMULTIZIP" ' racine où on travaille
FZip = FRacine & "\" & FNom ' l'archive à décompresser
FUnzip = FRacine & "C:\BNC AND NCV DATA\MASTERVESSELNUMBEREXTRACTION" ' Dossier Final de stockage
FTemp = FRacine & "C:\BNC AND NCV DATA\REPORTSINBOUNDMULTIZIP\TEMP" ' Dossier intermédiaire de décompression
If Dir(FTemp, vbDirectory) = vbNullString Then MkDir FTemp
Pour jour le code bloque à ce niveau... avec l'erreur d'execution 52, il y aurai des choses que j'aurai mal adapté ?