XL 2013 (RESOLU) Faire Save As et le renommer

chaelie2015 · 21 Novembre 2022

Bonsoir Forum
Je souhaite créer un code qui fait de sauvegarde (Save AS) de tous mon classeur (avec le code vb) et le renommer selon le contenu de la cellule C3.
Merci par avance

job75 · 21 Novembre 2022

VB:

Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [C3], 52 '52 = extension .xlsm'
End Sub

job75 · 21 Novembre 2022

Bonsoir chaelie2015,

Que mettez-vous en cellule C3 ? Donnez plusieurs exemples.

Si l'extension n'est pas indiquée laquelle faut-il utiliser ?

A+

chaelie2015 · 21 Novembre 2022

job75 à dit:
Bonsoir chaelie2015,

Que mettez-vous en cellule C3 ? Donnez plusieurs exemples.

Si l'extension n'est pas indiquée laquelle faut-il utiliser ?

A+

Bonsoir job75
pour renommer le nouveau classeur selon le contenu de la cellule C3
ex: si C3= BRU_2022_Anvers
alors si je clic sur un bouton j'aurai un nouveau classeur nommé : BRU_2022_Anvers.xlsm
A+

job75 · 21 Novembre 2022

VB:

Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [C3], 52 '52 = extension .xlsm'
End Sub

chaelie2015 · 21 Novembre 2022

job75 à dit:

VB:

Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [C3], 52 '52 = extension .xlsm'
End Sub

Bonsoir Job75
Merci pur le code c'est parfait, mais j'ai trouvé un petit souci : si la cellule C3 contient une formule (par exemple fonction concaténer) le code ne fonctionne pas ?
a+

TooFatBoy · 21 Novembre 2022

Bonjour,

chaelie2015 à dit:
si la cellule C3 contient une formule (par exemple fonction concaténer) le code ne fonctionne pas ?

Si, normalement ça marche.

Ton classeur de base est bien enregistré ?
Autrement dit, c'est bien un fichier, enregistré sur ton PC, que tu as ouvert ?

Usine à gaz · 21 Novembre 2022

Bonsoir à tous
Peut-être :
Code fait par job75
Je me suis permis juste d'ajouter [C3].value
Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [C3].value, 52 '52 = extension .xlsm'
End Sub

TooFatBoy · 21 Novembre 2022

Arthour, je te vois !

J'ai récemment lu sur ce forum que les crochets faisaient une évaluation, donc si j'ai bien compris, le .value serait une sorte de pléonasme.

Toutefois, ça vaut le coup d'être testé.

chaelie2015 · 21 Novembre 2022

Bonsoir job75, TooFatBoy et Usine à gaz
Merci pour la réponse c'est parfait
a+

Phil69970 · 21 Novembre 2022

Bonjour à tous

@chaelie2015
Remarque :
Que renvoi la formule en C3 ?
1) Si il y a des caractères interdits par Microsoft alors pb !

Message d’erreur lors de l’ouverture ou de l’enregistrement d’un fichier dans Microsoft Excel : « nom de fichier non valide » - Support Microsoft

Décrit un problème dans lequel vous recevez un message d’erreur lors de l’ouverture ou de l’enregistrement d’un fichier dans Microsoft Excel si le chemin d’accès du fichier est supérieur à 218 caractères.

support.microsoft.com

Solution de contournement ==>

Recherche caractères interdits.

Bonjour à tous, Je suis à la recherche d'une macro recherchant dans la cellule C9 les caractères interdits dans l'enregistrement des noms de fichier. Si il y a un caractère interdit en C9 un message m'averti que je n'ai pas le droit d'utiliser ces caractères. Si cela a de l'importance, la...

excel-downloads.com

Et sans oublier bien sur de vérifier le nombre de caractères de ton fichier (lire la fin de la réponse du lien)

2) Idem si C3 renvoi vide
Solution de contournement ==>

VB:

Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
Dim VarChn$
VarChn = [C3]
If VarChn = "" Then VarChn = "MaValeur" 'A adapter
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & VarChn, 52 '52 = extension .xlsm'
End Sub

Merci de ton retour

@Phil69970

TooFatBoy · 21 Novembre 2022

TooFatBoy à dit:
J'ai récemment lu sur ce forum que les crochets faisaient une évaluation, donc si j'ai bien compris, le .value serait une sorte de pléonasme.

chaelie2015 à dit:
@ Usine à gaz : Merci pour la réponse c'est parfait

Faut croire que j'ai mal compris...

Phil69970 · 21 Novembre 2022

Re

Et faut croire que je suis transparent pour Chaelie

@Phil69970

TooFatBoy · 21 Novembre 2022

Phil69970 à dit:
Et faut croire que ~~je suis~~ nous sommes transparents pour Chaelie

Mais il m'a vu dans son fil suivant.

Usine à gaz · 22 Novembre 2022

Usine à gaz à dit:
Bonsoir à tous
Peut-être :
Sub Sauvgarde()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [C3].value, 52 '52 = extension .xlsm'
End Sub

Bonjour Gérard , le fil, le Forum
@ chaelie2015 : Ce n'est pas moi qui ai fait ce code, c'est job75

job75 · 22 Novembre 2022

Bonjour Lionel, le fil,

Oui mais c'est toi qui a proposé d'ajouter .Value.

Comme l'a dit TooFatBoy cet ajout est normalement inutile; chaelie se mélange probablement les pinceaux.

@chaelie2015 merci de déposer votre fichier avec la formule de concaténation en C3.

A+

XL 2013 (RESOLU) Faire Save As et le renommer

chaelie2015

XLDnaute Accro

job75

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Message d’erreur lors de l’ouverture ou de l’enregistrement d’un fichier dans Microsoft Excel : « nom de fichier non valide » - Support Microsoft

Recherche caractères interdits.

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires