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

[cbleas]

bonjour,
vous avez aussi Izarc comme logiciel gratuit de Zip

bonne journée

[vodiem]

bonjour Starec, cbleas et bonsoir francishop ;p

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

Un logiciel libre est un logiciel dont la licence dite libre donne à chacun le droit d'utiliser, d'étudier, de modifier, de dupliquer, de donner et de vendre ledit logiciel sans contrepartie.

7z est bien un logiciel libre (ce qui n'empêche pas d'avoir des restrictions: dont la gratuité, l'algo du Rar...).

francishop> on se vante d'avoir une licence Access et pas avoir les moyens d'avoir un archiveur payant? lol
je plaisante, 7z est bien pas seulement par son prix.
Izarc je ne connais pas (tout au plus j'ai entendu parlé de Isaac...: il a bonne réputation )

Je constate qu'ALZip est payant

ca explique pourquoi je ne le connais pas. lol

pour en revenir à la discution:
francishop, j'avais pensé aussi à faire une copie mais j'ai eu des doutes sur la sureté de cette opération, j'ai donc réussi à produire:
erreur d'exécution '70': Permission refusée.

mais en soi, c'est vrai qu'il est possible de gerer cette erreur et rester ainsi sous access.