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 !

 

[fanch55]

Bonjour,
Vous rajoutez cette ligne en fin de votre code

Name FichierArchive As DossierDestination & ".zip"

 

[Dymouille]

Bonjour,

Merci pour ta proposition,
ca me retourner mon dossier Zip comme ceci :

Ca ne touche pas au nom du fichier !

Je te joins le code ci-dessous, Merci !

Sub DecompresserArchiveZip()



'définition des variables
    Dim ApplicationArchivage As Object
    Dim FichierArchive As Variant
    Dim DossierDestination As Variant

'informations sur l'archive et le dossier pour les fichiers décompressés
    FichierArchive = "C:\Users\dl\FnB Panel,Descriptions,Reference3012789200103.zip" 'l'archive à décompresser
    DossierDestination = "C:\Users\dl\Extraction PDH\Unzip" 'le dossier dans lequel les fichiers seront décompressés
    
'vérification du format du chemin du dossier de destination
    If Right(DossierDestination, 1) <> "\" Then DossierDestination = DossierDestination & "\"

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

End Sub

 

[fanch55]

Cette partie n'est pas nécessaire à la décompression et nuit au rename :

'vérification du format du chemin du dossier de destination
    If Right(DossierDestination, 1) <> "\" Then DossierDestination = DossierDestination & "\"

 

[Dymouille]

J'ai supprimé la ligne, et toujours rien !
Par contre ca me supprime mon .zip et extrait le fichier avec son nom d'origine !
l'idéal serait d'extraire le fichier avec le nom du dossier compressé (zip) sans le supprimer !

 

[fanch55]

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

J'ai peut-être mal décodé la demande initiale :

Essayez ce code :

'Décompression
    Set ApplicationArchivage = CreateObject("Shell.Application")
    ApplicationArchivage.Namespace(DossierDestination).CopyHere ApplicationArchivage.Namespace(FichierArchive).items

' rename du fichier
    ApplicationArchivage.Namespace(FichierArchive).self.Name = ApplicationArchivage.Namespace(DossierDestination).self.Name & ".zip"
    
    Set ApplicationArchivage = Nothing
    

End Sub

 

[Dymouille]

Hello,

c'est ma faute, c'est moi qui explique vraiment mal !
Toutes les semaines je fais une extractions qui me sort 28 dossiers compressés,
avec chacun un nom diffèrent (c'est le FichierArchive en brut dans le code pour l'instant)
le problème est que chaque dossier comporte un fichier excel qui a comme nom les 13 derniers chiffres
du nom du dossier !
Les noms des dossiers sont uniques, mais pas les noms des fichiers Excel !

Exemple :

Dossier -> FnB Panel,Descriptions,Reference3010337111109 / Fichier -> 3010337111109
Dossier -> Reference,Descriptions,Assets3010337111109 / Fichier -> 3010337111109

du coup en décompressant sans changer le nom des fichiers excel, ca m'écrase le précedant portant le même nom !

J'ai un dossier Unzip, qui est déjà créé dans lequel les fichiers excel après renommage doivent être mis,

Merci !

 

[fanch55]

Salut,

Si je comprend bien :
Un fichier zippé contient un et un seul fichier excel compressé.
le fichier zippé doit être dézippé et le fichier Excel extrait doit avoir le même nom que le fichier zippé ( l'extension étant celui d'excel)
Le fichier décompressé devra être stocké dans le dossier Unzip

Ai-je bon ?

 

[Dymouille]

Fanch55,

C'est tout à fait ça ! tout en gardant le fichier zippé intacte si possible !
le Fichier excel est un ".Csv"

 

[Etoto]

Fanch55,

C'est tout à fait ça ! tout en gardant le fichier zippé intacte si possible !
le Fichier excel est un ".Csv"

Un Csv ? Tu vas utiliser Power Query du coup ?

 

[Dymouille]

Non, j'utilise pas le fichier en csv, je le convertie en xlsx pour ensuite l'utiliser normalement

 

[Etoto]

Non, j'utilise pas le fichier en csv, je le convertie en xlsx pour ensuite l'utiliser normalement

Alors sache que des fois avec des tableaux c'est mieux de créer un fichier xlsx lui faire une requête à partir d'un csv comme ça tu peux modifier la requête donc le tableau final.

 

[Dymouille]

Je note ! même si dans mon cas je n'en aurais pas vraiment besoin

 

[Etoto]

Je note ! même si dans mon cas je n'en aurais pas vraiment besoin

Ok par contre pour le VBA je ne peux t'aider, pour cause que je suis surement moins bon que toi. Je laisse la place aux autres.

 

[fanch55]

Le code ci-dessous devrait le faire

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 = "FnB Panel,Descriptions,Reference3012789200103.zip" ' nom du fichier Zip
    
    FRacine = "C:\Users\dl"                     ' racine où on travaille
       FZip = FRacine & "\" & FNom              ' l'archive à décompresser
     FUnzip = FRacine & "\Extraction PDH\Unzip"  ' Dossier Final de stockage
      FTemp = FRacine & "\TempZip"              ' Dossier intermédiaire  de décompression
      
    If Dir(FTemp, vbDirectory) = vbNullString Then MkDir FTemp
    
'Décompression

    Set OShell = CreateObject("Shell.Application")
        ' Décompression dans le dossier intermédiaire
        OShell.Namespace(FTemp).CopyHere OShell.Namespace(FZip).Items, NOCONFIRMATION
        
        Set XFiles = CreateObject("Scripting.FileSystemObject").getfolder(FTemp).Files
        If XFiles.Count = 1 Then
            For Each File In XFiles
              ' Mise en conformité du nom
                File.Name = Replace(FNom, ".zip", ".csv")
              ' Déplacement du fichier dans le dossier Final
                OShell.Namespace(FUnzip).MoveHere File.Path, NOCONFIRMATION
            Next
        End If
        Set XFiles = Nothing
        
    Set OShell = Nothing
    If Dir(FTemp, vbDirectory) <> vbNullString Then RmDir FTemp

End Sub