Discussion :

[Rayan1]

Salut cher Programmeur,
Je reviens vous expliquer mon problème sur le message d’erreur qui s’afficher « Erreur 70 Permission refusé ».
Je vous explique mon idée.
Je voulais à travers DROPBOX sauvegarder ma base dorsale (la base qui comporte les tables). Comme vous me l’avez conseillé, à chaque création d’une application, je fais la séparation de ma base.
Maintenant, je me suis dit s’il n’était pas possible de faire une sauvegarde de ma base dorsale sur DROPBOX installé dans la machine. Cela va me permettre de faire une récupération de mes données si toute fois un problème survenait.
Voici le chemin de sauvegarde de ma base de données : D:\Save_Data\Data.accdb
Maintenant à chaque fois à la fermeture de l’application, je fais la copie de la base nommé « DATA » dans un dossier que j’ai crée sur le dossier DROPBOX.
Voici le chemin : C:\Users\User\Dropbox\Save_Data\UpDateData.accdb
Je fais la copie avec le code suivant :
1_ J’ai crée une fonction
Function CopierBaseExterne()
FileCopy " D:\Save_Data\Data.accdb ", " C:\Users\User\Dropbox\Save_Data\UpDateData.accdb "
End Function

2_ Appelé la fonction
A la fermeture de l’application j’utilise : Call CopierBaseExterne
C’est la bas maintenant le problème ou bien le message d’erreur n°70 s’affiche : « Permission refusé ».

Si tu a une idée pour moi sa sera la bien venu.
Merci d’avance

[ClaudeLELOUP]

Bonjour,

Tant que la frontale est ouverte, Access va refuser de copier la dorsale. (Ton message d’erreur actuel.)
Tu dois externaliser la copie.
Une idée.
Crée-toi une petite db avec le code de copie de ta dorsale.
Dans cette db, une macro AutoExec qui :
- exécute le code
- et qui se referme.

À la fermeture de ta frontale, tu provoques l’ouverture de cette db, qui fera le boulot et se refermera immédiatement.

[loufab]

Bonjour,

Tu peux également au moment de la fermeture, supprimer les attachements, faire la copie puis rattacher soit en suivant soit au démarrage.

Cordialement,

[chrtophe]

Loufab,

Pourquoi t'as pas donné un lien sur ton tuto ?

http://loufab.developpez.com/tutorie...rage_msaccess/

[loufab]

Bonne remarque !

Parce que le fonctionnement souhaité n'est pas le même.

Rayan a sa bdd en local et veux la copier sur le cloud pour la sauvegarder.

Mon tuto détaille une solution de partage sur cloud ou la bdd est déjà sur le cloud. C'est totalement différent.

[Rayan1]

Merci
Pour votre aide mais malheureusement je suis un débutant donc j'ai tenté de suivre à la lettre pour la conception mais je suis perdu.
Ou bien si quelqu'un pouvais faire la pratique ainsi je serai plus situer quand je l'aurai
merci d'avance

[ClaudeLELOUP]

Bonjour,

Pas de souci, on a tous été un débutant !


Voici un exemple.

On crée une nouvelle Application.
On l’appelle DBSauvegarde.mdb.
On la loge dans le même répertoire que la dorsale.
Dans un module, ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
 
Public Function Sauvegarde()
  'Copier la dorsale, là où tu veux
  FileCopy "D:\Save_Data\Data.accdb", "C:\Users\User\Dropbox\Save_Data\UpDateData.accdb"
  'Refermer la DB
  Quit
End Function

Et une macro appelée Autoexec. Comme son nom l’indique, elle va se déclencher automatiquement à chaque ouverture de la dB




Donc si on double-clique sur le fichier, l’application va :
- s’ouvrir ;
- copier ta dorsale ;
et se refermer immédiatement.
Tu n’auras pas le temps de t’en rendre compte.

Pour l’ouvrir sans déclencher le code :
- un clic sur le nom du fichier, pour le mettre en surbrillance ;
- enfoncer la touche Majuscules et double-cliquer.

Elle s'ouvre alors sans exécuter la macro... et tu peux alors explorer son contenu.

-------
Dans un formulaire de ta Frontale, un bouton :





Avec ce code associé au clic du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
 
Private Sub btSauvegarde_Click()
  'Ouvrir la DBSauvegarde.mdb
  Shell "Explorer /root," & CurrentProject.Path & "\DBSauvegarde.mdb", vbNormalFocus
  'Fermer la frontale
  Quit
End Sub

« Shell "Explorer /root," & CurrentProject.Path & "\DBSauvegarde.mdb", vbNormalFocus »

Traduction en français :
« Exécuter le programme Explorer avec le fichier appelé DBSauvegarde.mdb qui se trouve dans le même répertoire que cette db. »
(L'équivalent d'un double-clic sur le fichier.)

N.B. J'utilise une version Access2000. Chez toi, l'extension « .mdb .accdb ».

[argyronet]

Bonjour,

Pour éviter l'erreur 70 et copier la base dorsale même en cours d'utilisation, il faut user de l'APi SHFileOperation

Code déclaration :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Type SH_FILE_OPSTRUCT
    hWnd                                                   As Long
    wFunc                                              As Long
    pFrom                                              As String
    pTo                                                As String
    fFlags                                             As Integer
    fAborted                                           As Boolean
    hNameMaps                                          As Long
    sProgress                                          As String
End Type
 
Private Const FOP_COPY                                  As Long = &H2
Private Const FOP_NOCONFIRMATION                       As Long = &H10
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SH_FILE_OPSTRUCT) As Long

Code fonction de copie :

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
19
20
21
22
23
24
25
26
27
 
Public Function CopyCurrentDatabase(ByVal SourceFileName As String, ByVal TargetFilename As String, ByVal NoConfimation As Boolean) As Boolean
'---------------------------------------------------------------------------
' Procedure     : CopyCurrentDatabase
' DateTime      : 13/03/2008
' Author        : Jean-Philippe AMBROSINO
' Purpose       : This Function is used to copy a file even if it's in use
'...........................................................................
' Parameters    : SourceFileName : DB filename
'                 TargetFilename : Backup filename
'                 NoConfimation : True = Yes
'                 ErrDescription = Error message array
 
' Return Codes  : Boolean = True if success
'...........................................................................
'---------------------------------------------------------------------------
Dim SHFileOp                                           As SH_FILE_OPSTRUCT
    With SHFileOp
        .wFunc = FOP_COPY
        .pFrom = SourceFileName
        .pTo = TargetFilename
        If NoConfimation Then
            .fFlags = FOP_NOCONFIRMATION
        End If
    End With
    CopyCurrentDatabase = (SHFileOperation(SHFileOp) = 0)
End Function

Argy

[ClaudeLELOUP]

Merci Jean-Philippe,




J'ai copié dans ma boîte à outils.

[Rayan1]

Vraiment merci je m'y mettre dès maintenant. Mais Argyronet on dirais que pour toi est plus simple mais un peux compliqué pour un débutant. On ne sais où on doit mettre les code.

[Rayan1]

ClaudeLeLoup je testé ta méthode c'est vraiment cool. Mais le seul problème c'est que quand tous les formulaires se ferment. Il y à mes documents qui s'ouvre. Je ne c'est pas pourquoi, pourtant j'ai suivi à là lettre.

[ClaudeLELOUP]

Mais le seul problème c'est que quand tous les formulaires se ferment. Il y à mes documents qui s'ouvre

De quels formulaires et documents parles-tu ?

Quoi qu'il en soit, préfère la solution de Argyronet , elle est beaucoup plus directe !

[Rayan1]

C'est le dossier mes documents du système d'exploitation qui s'ouvre.

[ClaudeLELOUP]

Tu as probablement fait une faute d'orthographe dans l'adresse d'un fichier => Windows ne le trouve pas et t'ouvre un formulaire pour le chercher.

Mais utilise la proposition de Argyronet.

Copie le code qu'il te propose dans un module et remplace dans ton code actuel, l'instruction :

Code :

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

 Call CopierBaseExterne

par ceci celle-ci :

Code :

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

CopyCurrentDatabase("D:\Save_Data\Data.accdb", "C:\Users\User\Dropbox\Save_Data\UpDateData.accdb",True)

[Rayan1]

Salut merci beaucoup pour votre aide. c'est bon maintenant