Double sauvegarde

Bonsoir, j'utilise Excel pour un fichier tout simple mais important et je cherche a faire une double sauvegarde en une seule fois.

Pour etre plus précis je sauvegarde mon fichier sur Dropbox; je voudrais le sauvegarder en meme temps dans "documents" de mon mac.

Au cas ou il y aurait un problème .

J'ai entendu parler d'une macro!

Quelqu'un pourrait m'expliquer pas a pas comment faire?

J'utilise Excel mac 2011.

Merci pour votre aide, Jack.

Bonjour,

Le plus simple c'est que tu emploi l'éditeur de macro.

Clic sur le ruban Développeur,

si pas présent ->

Clic sur le bouton Excel (le rond en haut à gauche)

Dans le bas de la fenêtre, à droite -> Option Excel

Checker <Afficher l'onglet développeur dans le ruban>

OK ça c'est fait...

En suite.. dans ce ruban,

Clic sur <Enrégistrer une macro>

Maintenant tu exécute les actions que tu veux automatiser, sauver ton classeur à deux endroits différents.

Quand c'est fait tu reclique sur le même bouton mais libellé < Arrêter l'enrégistrement>

Tu va dans l'IDE (éditeur de code) Alt+F11 double clic sur Module1

Tu va voir ton code.

Tu ajoute un bouton sur ta feuille et tu le lie à la macro.

J'espère avoir été suffisamment... "pas à pas"

A+

Bonjour a vous.

Une solution mais aucun moyen de savoir si cela marche sur Mac

Alt f11 et copier coller.

Dans thisWorbook du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
GetDirectory
ChoixNbSauvegardes
Sauve
End Sub

D'autre part dans un module :

Public Delai
Public Dossier
Public NbFicMax
Dim Nom
Public NextTime
Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & strDate & ".xls"
DeleteEnTrop (Dossier)
End Sub

Function GetDirectory(Optional Msg) As String
GetDirectory = C  'choix du dossier de sauvegarde
Dossier = GetDirectory & "\"
End Function
Sub ChoixNbSauvegardes()
NbFicMax = 4 'choix du nombre de sauvegardes
End Sub

Sub DeleteEnTrop(path)
Dim Fic As String
Dim Tabl() As Variant
Dim i As Integer
'Stocker les noms et les dates de sauvegarde des
'archives dans un tableau
ReDim Tabl(1, 0)
Fic = Dir(path)
Do While Fic <> ""
  ReDim Preserve Tabl(1, UBound(Tabl, 2) + 1)
  Tabl(0, UBound(Tabl, 2)) = Fic
  Tabl(1, UBound(Tabl, 2)) = FileDateTime(path & Fic)
  Fic = Dir
Loop
'S'il y a plus de fichiers que défini dans NbMax
'on trie le tableau des archives par date décroissante
'et on efface les premiers pour n'en laissser
'que le nombre choisi dans NbMax
If UBound(Tabl, 2) > NbFicMax Then
  Tri Tabl, 1, UBound(Tabl, 2)
  For i = UBound(Tabl, 2) To NbFicMax + 1 Step -1
   Kill path & Tabl(0, i)
  Next i
End If
End Sub

'Procédure récursive classique

'de tri adaptée au tri d'un

'tableau à 2 dimensions

Sub Tri(ByRef Liste As Variant, ByVal Bas As Long, ByVal Haut As Long)
Dim i  As Long, j As Long
Dim Milieu As Variant, Echange As Variant
  i = Bas
  j = Haut
  Milieu = Liste(1, Int(Bas + Haut) / 2)
  Do
    While Liste(1, i) > Milieu
      i = i + 1
    Wend
    While Milieu > Liste(1, j)
      j = j - 1
    Wend
    If i <= j Then
      Echange = Liste(1, i)
      Liste(1, i) = Liste(1, j)
      Liste(1, j) = Echange
      Echange = Liste(0, i)
      Liste(0, i) = Liste(0, j)
      Liste(0, j) = Echange
      i = i + 1
      j = j - 1
    End If
  Loop Until i > j
  If Bas < j Then Tri Liste, Bas, j
  If i < Haut Then Tri Liste, i, Haut
End Sub

(GetDirectory = C 'choix du dossier de sauvegarde) :chemin ou le classeur sera sauvegarder.a determiner

(NbFicMax = 4 'choix du nombre de sauvegardes) :sauvegarde incrémenté de 4 exemplaires.

(strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss"): sauvegarde avec format dates.

Sinon la solution de lermite et beaucoup plus simple.

Ok pour répondre a Lermite je plante à ce niveau:

"Maintenant tu exécute les actions que tu veux automatiser, sauver ton classeur à deux endroits différents."

A ce niveau la que dois faire?

Bonjour

Bruno9442, juste au dessus de la zone de saisie, dans la barre d'outils, tu as différents boutons dont "Code". Ceci permet de sélectionner le Code compris dans ton message et de l'avoir au final beaucoup plus lisible.

Regarde l'effet sur ton précédent message ou j'ai corrigé.

Merci

Cordialement

superdjacks a écrit :

Ok pour répondre a Lermite je plante à ce niveau:

"Maintenant tu exécute les actions que tu veux automatiser, sauver ton classeur à deux endroits différents."

A ce niveau la que dois faire?

Momentanément tu "oublie" que tu est en édition

Pour etre plus précis je sauvegarde mon fichier sur Dropbox; je voudrais le sauvegarder en meme temps dans "documents" de mon mac.

Tu fais ces deux actions manuellement..

Ensuite tu continue..

Quand c'est fait tu re-clique sur le même bouton mais libellé < Arrêter l'enrégistrement>

Tu sauve le classeur.

EDIT : Ensuite tu dépose ton classeur mais sur un MP à mon intention, j'éliminerais éventuellement les adresses confidentielles.

Et j'optimiserais ton code.

Merci Amadéus.

Effectivement cela deviens beaucoup plus lisible.

J’espère m'en souvenir la prochaine fois

Merci a Lermite qui m'a donné la solution.

superdjacks a écrit :

Merci a Lermite qui m'a donné la solution.

Lorsqu'une question est résolue, il est d'usage, sur ce forum, de clôturer le poste en

A+

Alors A+.