XL 2016 Renommer fichier après extraction zip

[Dymouille]

Hello !

j'ai ce petit bout de code qui dezip un fichier,

    Set ApplicationArchivage = CreateObject("Shell.Application")
    ApplicationArchivage.Namespace(DossierDestination).CopyHere ApplicationArchivage.Namespace(FichierArchive).items
    Set ApplicationArchivage = Nothing

j'aimerais ensuite renommer le fichier avec le nom du dossier,
j'ai essayé avec Dir(), mais je dois mal m'y prendre

Merci d'avance !

 

[Dymouille]

C'est : parfait ! je vais ajuster tout ça pour mon cas !

Un grand merci à toi l'ami !

 

[Dymouille]

Hello !

Je reviens vers toi car j'ai constaté un petit problème,
La macro marche niquel, mais parfois (un jour sur deux) elle ne reconnait pas les dossiers ZIP comme objet si ils ont des "," dans leurs nom, ca me ressort l'erreur 91 !
du coup je suis obligé de rename tous les dossiers !

merci pour ton aide

 

[Etoto]

Hello !

Je reviens vers toi car j'ai constaté un petit problème,
La macro marche niquel, mais parfois (un jour sur deux) elle ne reconnait pas les dossiers ZIP comme objet si ils ont des "," dans leurs nom, ca me ressort l'erreur 91 !
du coup je suis obligé de rename tous les dossiers !

merci pour ton aide

Re,

Je sais absolument pas si c'est ça le problème mais ton Excel considère quoi comme séparateur de décimale, le "," ou le "." ?

 

[Dymouille]

Re,

C'etait le "," que je viens de passer en "." et ca passe !
mais c'est quand même bizarre que du jour au lendemain ca ne marche plus alors que je n'ai pas changé les options !
les fichiers que je Unzip sont dans un OneDrive,
tu penses que cela peut être dû a un problème de synchronisation ?

j'ai remarqué que c'etait quand je mettais a jour a la main mon OneDrive que la Macro en considerait plus les .zip comme Objet

 

[Etoto]

Re,

C'etait le "," que je viens de passer en "." et ca passe !
mais c'est quand même bizarre que du jour au lendemain ca ne marche plus alors que je n'ai pas changé les options !
les fichiers que je Unzip sont dans un OneDrive,
tu penses que cela peut être dû a un problème de synchronisation ?

j'ai remarqué que c'etait quand je mettais a jour a la main mon OneDrive que la Macro en considerait plus les .zip comme Objet

Cela dépend des paramètres de l'ordinateur source du fichier OneDrive surement.

 

[ericdu60]

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

 

[Phil69970]

Bonjour à tous

@ericdu60

il y aurai des choses que j'aurai mal adapté ?

Oui au minimum la charte § 1.3

Bonne lecture

 

[patricktoulon]

re
bonsoir
ben oui un peu de ceci un peu de cela ça fait la tambouille hein

re déjà je t'invite ( bien sur) après que tu ai lu la charte à allez visiter le lien en base de cette réponse
tu aurais déjà une base pour savoir explorer un ZIP

Explorateur et Visualisateur d'arborescence d'un fichier ZIP

ce UserForm vous permet de visualiser l'arborescence d'un fichier ZIP dans un treeview construit de toute pièces (compatible All excel version) 2 boutons sont a votre disposition pour extraire un élément sélectionné on developpe ou undeveloppe...

excel-downloads.com