XL 2013 (RESOLU) Faire Save As et le renommer

[chaelie2015]

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]

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]

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]

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]

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]

Bonjour,

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]

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]

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]

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

 

[Phil69970]

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 ==>

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]

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.

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

Faut croire que j'ai mal compris...

 

[Phil69970]

Re

Et faut croire que je suis transparent pour Chaelie

@Phil69970

 

[TooFatBoy]

Et faut croire que je suis nous sommes transparents pour Chaelie

Mais il m'a vu dans son fil suivant.

 

[Usine à gaz]

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]

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+