Faire un "enregistrer sous" automatique sous le nom inscrit dans une cellule

[NorthB]

Bonjour à tous,

Je souhaiterai effectué par le biais d'un bouton macro, un "engistrement sous" avec comme nom de fichier celui d'une cellule du classeur.
Donc tout automatique!

Cela fait une grosse soirée que je me penche dessus sans résultat!

Par avance merci à tous

 

[Temjeh]

Bonsoir NorthB

Voici un début

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

A++

Temjeh

 

[Temjeh]

D'après-moi il a du perde connaissance en voyant ce code et ptêtre en revenant de l'Hôpital j'aurai au moins un merci

Faute de remerciement je me remercie

Bravo Temjeh

 

[NorthB]

Merci beaucoup Temjeh !

Je comptais bien faire mes remerciement mais j'ai pas pu le faire plus tôt,
j'était pas sur mon pc encore !

J'ai eu le temps de voir la reponse mais pas de l'essayer avant ce soir !
Faut pas être préssé comme ça vous allez frôler l'ulcère !

Encore merci beaucoup et c'est sincère, j'ai entrer le code et ça ce passe
à merveille.
Maintenant j'essaie de le compléter pour effectuer le même genre de chose
mais pour l'appliquer à un chemin dont le dernier dossier dépend d'une
info cellule d'ailleur j'ai essayer ça :

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ThisDir = Range("A2").Value
ActiveWorkbook.SaveAs Filename:=ThisDir + ThisFile
End Sub

Mais sans succès !

Si vous voyez l'erreur ...
La réponce est "instruction incorrecte à l'exterieur d'une procédure"

 

[Temjeh]

Rebonsoir NorthB

Sans rancune je fait de l'humour à l'occasion

Ptêtre ce code:

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ChDir Range("A2").Value
ActiveWorkbook.SaveAs Filename:=ThisFile

End Sub

A++

Temjeh

 

[NorthB]

D'accord merci mais depuis, je suis arrivé au problème de syntaxe car
je souhaite spécifié le chemin a partir de C: dont le dernier dossier est spécifié par range A2 et je ne sais pas du tout comment l'écrire en VBA.

J'ai fait de multiples essais au " filling" mais bon".....

C'est que je suis vraiment débutant dans ce domaine !

 

[NorthB]

Ca y est j'ai trouvé le bon code !

Pour information et si ça interresse des utilisateurs, lorsque vous souhaitez enregistrer votre classeur dans un chemin dont le dernier fichier est spécifié dans une cellules et dont le nom que vous souhaitez donner a votre classeur est spécifié dans une autre entrer le code :

Sub SAVE_AS()

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Jérome\Bureau\SAMBA\FOUR\" + Range("D2").Value + "\" + Range("G2")


End Sub

Merci à tous et en particulier à Temjeh

 

[Guimauve]

Re : Faire un "enregistrer sous" automatique sous le nom inscrit dans une cellule

Bonjour, j'ai un petit soucis avec votre macro, impossible de la faire fonctionner...
J'aimerai que lorsque j’appuie sur le bouton "save en haut a gauche, celle ci sauvegarde dans un répertoire dédier avec pour nom les cellules B3 + " - " + F2.
j'ai essayer dans tous les sens, impossible de la faire marcher. pourriez vous m'aider svp ?

Merci d'avance.

Ps: l'excel est en pièce jointe