Bonjour,
Peut on faire une instruction qui zipperait la base en cours afin de l'envoyer par courriel ?
merci
Bonjour,
Peut on faire une instruction qui zipperait la base en cours afin de l'envoyer par courriel ?
merci
On ne peut dans la base même la zipper
salut helas et Lou17,
une instruction surement pas. :pEnvoyé par Lou17
mais comme le dit helas:
plus précisément lorsque la base est ouvert.Envoyé par helas
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.
Bonsoir,
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\TaSauvegardeCordialement.
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
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
-d détruit le fichier source donc pas de Kill
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
Merci une nouvelle fois à francishop
Autant pour moi
Je constate qu'ALZip est payant
bonjour,
vous avez aussi Izarc comme logiciel gratuit de Zip
bonne journée
bonjour Starec, cbleas et bonsoir francishop ;p
Envoyé par helas7z est bien un logiciel libre (ce qui n'empêche pas d'avoir des restrictions: dont la gratuité, l'algo du Rar...).Envoyé par fr.wikipedia.org
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 )
ca explique pourquoi je ne le connais pas. lolEnvoyé par helas
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager