Discussion :

[Blop le bricoleur]

Bonjour à tous

Mon problème cette semaine est axé sur la sauvegarde auto et la suppression auto.

Je voudrais que quand une cellule spécifique de mon fichier (par exemple A1) est remplie, mon fichier se sauvegarde automatiquement dans un autre dossier (appelé par exemple "temporaire").

Et qu'une fois ce fichier rempli entièrement, quand je sauvegarde, ça me l'enregistre dans un autre dossier ( "registre") et qu'en même temps ça le supprime du fichier "temporaire".

C'est possible ou pas ? (je sais que c'est bon pour la sauvegarde mais pas sur que ce soit possible pour la supression)

J'ai déja un bout de code en ce qui concerne le choix du dossier lors d'un enregistrement :

Code :

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

1
2
3
4
5
6
Sub sauvegarde() 
Dim Chemin As String
Chemin = "C:\Documents and Settings\*******\dossier\" ' registre ou temporaire
Nom_Sauve = Chemin & (ActiveWorkbook.Worksheets(1).Range("A1").Text & ".xls") 'nom de sauvegarde
ThisWorkbook.SaveAs (Nom_Sauve)
End Sub

Merci de bien vouloir m'éclairer

[decondelite]

1: pour ta sauvegarde automatique:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target Is Range("A1") Then
        If Target.Value<>"" Then
            ' Sauvegarde
        End If
    Enf If
End Sub

2: pour ta sauvegarde une fois le fichier rempli

Code :

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

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' Je te laisse deviner ce qu'il faut mettre ici
End Sub

[Blop le bricoleur]

Merci,

j'arrive à faire ce que je veux pour ma 2eme partie (sauvegarde et supression de la version "temporaire").

Par contre ça bloque au niveau du 1:... Ca n'a pas l'air de fonctionner.
J'dois mal m'y prendre...

Ps: j'ai pensé à corriger le 2eme "End if" du 1: ^^

[decondelite]

Désolé, j'ai tapé ça directement sur le forum.
Utilise ta fonction sauvegarde dans le 1.

Montre voir ce que tu as fait?

[Blop le bricoleur]

Y'a pas de mal ^^"

Pour la fonction, j'ai fait un bête copié/collé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target Is Range("A1") Then
        If Target.Value<>"" Then
Dim Chemin As String
Chemin = "C:\Documents and Settings\*******\dossier\" ' registre ou temporaire
Nom_Sauve = Chemin & (ActiveWorkbook.Worksheets(1).Range("A1").Text & ".xls") 'nom de sauvegarde
ThisWorkbook.SaveAs (Nom_Sauve)
     End If
    End If
End Sub

Voyant que ca marchait pas j'ai tenté quelques modifs par-ci, par-là mais sans succès...

[decondelite]

Ah pardon désolé je me suis trompé en te donnant du code: j'oubliais que la comparaison de plages ne donnait pas souvent un résultat concluant.

Remplace:

Code :

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

Target Is Range("A1")

Par:

Code :

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

Target.Address = Range("A1").Address

Ca j'en suis sûr ça fonctionnera.