enregistrer sous... nom d'une cellule

[steph]

bonjour à Tous,

j'aimerai que quand l'utilisateur d'un document ferme le document ou l'application, il tombe sur la fenêtre Enregistrer sous avec par défaut la valeur d'une cellule comme nom de fichier.

Pouriez-vous m'aider ?

j'ai la macro suivante, mais qd on ferme via la croix de la fenêtre ou de l'application, cela ne marche pas...

Merci d'avance à vous

 

[steph]

oups...

la macro suivante :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
nomdefichier = Application.GetSaveAsFilename([Y12], , , 'Nom de Fichier ')
If nomdefichier = False Then
Cancel = True
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs nomdefichier: End If
Application.EnableEvents = True
End Sub

 

[idea]

Re : enregistrer sous... nom d'une cellule

Bonjour,

En fait, moi ca serait pour que le ficher se nomme ( et aussi s'enregistre )comme a la cellule H11 qd je clique sur un bouton que j'ai deja créé.

merci de votre aide.

 

[Staple1600]

Re : enregistrer sous... nom d'une cellule

Bonsoir

Tu peux tester ceci

Sub TEST()
Dim NOM as String
NOM=Range("H11")
ThisWorkbook.SaveAs (NOM)
End Sub

Mettre les trois lignes de ce code VBA
dans le code de ton bouton

 

[idea]

Re : enregistrer sous... nom d'une cellule

MERCI DE ME REPONDRE EN TOUT CAS

IL ME SEMBLE QUE CETTE LIGNE POSE UN PROBLEME CAR CA NE MARCHE PAS

ThisWorkbook.SaveAs (NOM)

 

[Staple1600]

Re : enregistrer sous... nom d'une cellule

Re

Chez moi cela fonctionne

 

[idea]

Re : enregistrer sous... nom d'une cellule

ah bon,

voici ce que je fais:

alt F11
lecture
puis je copie ca

Sub rec()
Dim NOM As String
NOM = Range("H11")
ThisWorkbook.SaveAs (NOM)
End Sub

et je ferme la lecture

je cree un bouton controle de formulaire
je selectionne la "macro" rec
mais cela ne fonctionne pas

cordialement

 

[Staple1600]

Re : enregistrer sous... nom d'une cellule

Re



Regarde le fichier joint

Testé sur mon poste, cela fonctionne.

 

[idea]

Re : enregistrer sous... nom d'une cellule

Oui,

JE VAIS BIEN REGARDER CE QUI NE VA PAS

MERCI DE TON AIDE
A BIENTOT

 

[idea]

Re : enregistrer sous... nom d'une cellule

Bon Ca Fonctionne Mais Le But N Est Pas Tout A Fais Ca

J Ai Une Matrice A Remplir Et Quand Je Presse Le Bouton Il Faut Que J Ai Un Nvx Ficher Qui Est Nomme Par Rapport A H1 Que J Ai Complete De Ma Matrice. Ce Nvx Ficher Doit S Enregistrer Dans Un Repertoire Avec Ma Matrice

Desole De Ne Pas Etre Plus Clair

 

[Cousinhub]

Re : enregistrer sous... nom d'une cellule

Bonjour,
désolé de ne pas comprendre.....
De plus, pas facile à lire l'énoncé, écrit comme tel (les majuscules à chaque début de mot, le langage SMS, l'absence de ponctuation......)

 

[jeanpierre]

Re : enregistrer sous... nom d'une cellule

S'lut idea,

nE SOIT PAS DESOLE DE NE PAS ETRE CLAIR....

nOUS AUSSI ONT A MIT LES PLEINS PHARES ET CELA NE CHANGE RIEN....

On peut, peut-être mixer nos claviers, tiens du coup

 

[idea]

Re : enregistrer sous... nom d'une cellule

Bonjour,

le but de ma presence sur ce forum est le suivant:

je part d un ficher ( qui je reprend a chaques fois ) a remplir.
Dans les cases a remplir je voudrai que H1 soit le nom d'un nouveaux fichier et se classe dans le meme dossier d orgine que mon fichier a remplir.

une tierce personne a t elle des reseignements?

cordialement

 

[Cousinhub]

Re : enregistrer sous... nom d'une cellule

Re-,
en repartant du code proposé par Staple 😉

essaie comme ceci :

Sub rec()
Dim NOM As String
lechemin = ActiveWorkbook.Path & "\"
NOM = Range("H1")
ThisWorkbook.SaveAs lechemin & NOM & ".xls"
End Sub

 

[idea]

Re : enregistrer sous... nom d'une cellule

c est super
merci a tous