Bouton de sauvegarde

[Roger69]

bonjour le forum
je voudrais mettre un bouton qui permet de sauvegarder obligatoirement avant de quitter la page, dans un répertoire au choix

 

[NezQuiCoule]

Re : Bouton de sauvegarde

Bonjour Roger,

Ma solution serait de ne pas utiliser de bouton si vous souhaitez forcer une sauvegarde. À la place je propose ce code, à insérer dans le code de l'objet ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Fichier = Application.GetSaveAsFilename(fileFilter:="Fichier Excel (*.xlsm), *.xlsm")
    If Fichier = False Then
        MsgBox ("Erreur, vous devez enregistrer le fichier avant de pouvoir quitter")
        Cancel = True
        Exit Sub
erreur:
        MsgBox ("Une erreur est survenue lors de l'enregistrement du classeur..")
    Else
        On Error GoTo erreur
        ThisWorkbook.SaveAs Fichier
        On Error GoTo 0
    End If
End Sub

Cela permettra de forcer l'utilisateur à sauvegarder s'il souhaite quitter le fichier. Attention cependant à bien renommer le fichier avant de l'enregistrer 🙂

Le code peut évidemment être amélioré, mais je pense que c'est un bon début 😉 Bonne journée !

 

[Roger69]

Re : Bouton de sauvegarde

bonjour NezQuiCoule
le problème c'est que par mois je voudrais retrouver les main courante corèspodante exemple fichier avril, fichier mai, fichier juin!
comme ca les main courante ce mettrons par date dans les fichier des mois concerner

 

[NezQuiCoule]

Re : Bouton de sauvegarde

Au moment de chosir le répertoire, rien ne vous empêche de créer un nouveau dossier (clic droit -> Nouveau dossier) puis de se mettre à l'intérieur de celui-ci.

Cette étape peut être automatisée, cependant je ne la conseillerai pas dans le sens où si vous modifier du jour au lendemain votre structure de fichiers, il faut tout recoder, alors qu'avec le code ci-dessus c'est vous qui choisissez exactement où vous l'enregistrez.

Merci de nous expliquer un peu plus en détails ce que vous souhaitez exactement obtenir comme résultat final 🙂

Bonne journée

 

[Roger69]

Re : Bouton de sauvegarde

je vient de le tester tout compte fait votre code me satisfait totalement merci encore pour l'aide rapide

 

[Roger69]

Re : Bouton de sauvegarde

autre chose si cela ai possible, je désire aussi mettre en couleur les ligne de M.I quand la case M.I est cocher je voudrais que cette ligne soit d'une couleur disont couleur bleue ciel!

 

[Roger69]

Re : Bouton de sauvegarde

Quelqu'un aurais t-il une idée? merci de votre aide🙂