IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Achiver en zip un document excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut Achiver en zip un document excel
    Bonjour à tous,

    Je cherche une solution pour archiver en zip le document excel en vba.

    Si vous avez des scripts pouvant m'aider!

    Je vous remercie

  2. #2
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Juin 2007
    Messages
    56
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juin 2007
    Messages : 56
    Par défaut
    Bonjour,

    Il faut un fichier modèle qui contient une ligne d'entête (fichier joint)
    Voici le code que j'utilise :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
     
    Dim osa As Shell
     
    Private Sub ZipperFichier(fichier)
     
    ' Préparation de l'archive
      nfZip = "c:\Temp\" & sfs.GetBaseName(fichier) & ".zip"
      sfs.CopyFile "c:\Modèle\Modèle.zip", nfZip, True
      DoEvents
     
    ' Intégration du fichier dans l'archive
      Set osa = New Shell
      osa.Namespace(nfZip).CopyHere (fichier)
     
    ' Wait pour être sur de pouvoir récupérer le fichier
      DoEvents
      Application.Wait (Now + TimeValue("0:00:01"))
       Set osa = Nothing
    A+
    Thierry
    Fichiers attachés Fichiers attachés

  3. #3
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132

Discussions similaires

  1. Réponses: 5
    Dernier message: 11/08/2008, 15h25
  2. creation d'un document excel via VC7 sous VS2003
    Par jlassira dans le forum MFC
    Réponses: 1
    Dernier message: 30/01/2006, 17h15
  3. Réponses: 3
    Dernier message: 25/07/2005, 09h40
  4. Ouvrir un document Excel en READ ONLY (avec VBA)
    Par beegees dans le forum Access
    Réponses: 2
    Dernier message: 29/12/2004, 20h48
  5. [VB6] Savoir depuis VB, si un document Excel est ouvert
    Par Argonz dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 12/11/2002, 08h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo