Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Forcer la sauvegarde du classeur dans un répertoire précis

  • Initiateur de la discussion Initiateur de la discussion corvelc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

corvelc

XLDnaute Occasionnel
Bonjour à tous,

Après recherche dans le forum et tests multiples je n’arrive pas à obtenir ce que je souhaite donc je m’adresse aux pro VBA.
En quelques mots : j’ai un fichier qui est utilisé par de multiples utilisateurs, et je souhaite que lorsqu’un utilisateur veut sauvegarder ce fichier modifié, "]il soit obligé de le sauvegarder dans un répertoire précis, et que le nom du fichier contienne en plus la date de modification pour ne pas avoir deux fichiers identiques si sauvegardés par plusieurs utilisateurs le même jour :

Exemples :
Nom du répertoire obligatoire où doit se faire la sauvegarde : « C:\Fiche_modifiées »
Nom du fichier d’origine « FIC224_Protection applis Web.xls»
Nom fichier si modifié « FIC224_Protection applis Web 26/07/2011 10:35:02.xls »

Merci d’avance pour votre aide

CC
 
Dernière édition:
Re : Re: Forcer la sauvegarde du classeur dans un répertoire précis

Encore Merci pour l'aide.
Avec cet exemple et différents sujets trouvés dans le forum, j'arrive à faire ce que je voulais, reste un nouveau point pour lequel j'ai besoin de conseils, c'est de pouvoir sans quitter le classeur d'origine ouvert faire une copie du classeur dans un autre répertoire.
Actuellement quand je sauvegarde le classeur d'origine dans un autre répertoire le classeur ouvert dans Excel devient la sauvegarde.

Merci d'avance.
CC
 
Bonjour corvelc et le forum.

A placer dans le code d'un bouton controle activex.
Cela enregistrera à chaque clic sur le bouton.
Avec les deux code, vous devriez vous en sortir. 🙂


Code:
Dim chemin As String, fichier As String
chemin = "c:\ici le chemin ou enregistrer terminé par \"
fichier = chemin & "\" & " FIC224_Protection applis Web" & " " & Format(Date, "d mm yy") & " " & Format(Time, "h mm ss") & ".xlsm"
ActiveWorkbook.SaveCopyAs chemin & fichier

A +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…