Discussion :

[Lou17]

Bonjour,
Peut on faire une instruction qui zipperait la base en cours afin de l'envoyer par courriel ?
merci

[helas]

On ne peut dans la base même la zipper

[vodiem]

salut helas et Lou17,

Peut on faire une instruction qui zipperait la base en cours afin de l'envoyer par courriel ?

une instruction surement pas. :p

mais comme le dit helas:

On ne peut dans la base même la zipper

plus précisément lorsque la base est ouvert.

donc ca marche si tu lance un script et tu quittes l'application.
dans ce script tu vérifie que la base est fermée (via sont .ldb par exemple)
tu lance la compression par ligne de commande, en pensant à découper l'archive si sa taille est trop importante pour un envoi.
tout en pensant à faire un compactage au préalable, tant qu'à faire.
et après l'envoi du mail par script tu relance l'appli.

bien en pensant aux éventuelles erreurs de parcours qu'il faut gérer...

simple comme instruction, non.
tu trouveras tous les codes qu'il te faut pour cela dans la partie VBScript.

bon courage.

[francishop]

Bonsoir,

salut helas et Lou17

Et les autres? Normalement les artistes saluent également le public.

******************************************************************************

A l'aide d'un palier intermédiaire, ce qui permet de garder la base ouverte.

La base-->Tabase
Dans le dossier-->C:\TonDossier
Le dossier de sauvegarde-->C:\TonDossier\TaSauvegarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub cmdSauvegarde_Click()
 Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile CurrentProject.FullName, "C:\TonDossier\TaSauvegarde\Tabase.mdb"
  Set fso = Nothing
'Et on zip
Shell """C:\Program Files\7-Zip\7z.exe"" a -tzip ""C:\TonDossier\TaSauvegarde\Tabase.zip"" ""C:\TonDossier\TaSauvegarde\Tabase.mdb"" -r"
 Kill "C:\TonDossier\TaSauvegarde\Tabase.mdb"
End Sub

Cordialement.

[helas]

Excellent francishop

J'ai voulu installer 7zip qui est un logiciel libre mais non gratuit puisqu'il faut envoyer 2 sms
J'ai donc testé avec ALZip qui lui est gratuit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub zip()
 Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile CurrentProject.FullName, "C:\temp\bd.mdb"
  Set fso = Nothing
 'Et on zip
 Shell """C:\Program Files\AlZip\alzip.exe"" -a -d ""C:\TonDossier\TaBase.mdb"" ""C:\TonDossier\TaSauvegarde.zip"" "
End Sub

-d détruit le fichier source donc pas de Kill

Merci une nouvelle fois à francishop

[helas]

Autant pour moi
Je constate qu'ALZip est payant

[Invité]

Bonjour

J'ai voulu installer 7zip qui est un logiciel libre mais non gratuit puisqu'il faut envoyer 2 sms

Attention à ces arnaques, 7Zip est entièrement gratuit, je l'ai depuis des années sur mon XP et aussi depuis peu sur mon VISTA.

Méfiez-vous des numéros de téléphones ou SMS pour avoir un logiciel en Free, faites plusieurs recherches quand vous cherchez un logiciel.

Starec