enregistrer sous... nom d'une cellule

S

steph

Guest

• 21 Février 2005

• #2

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

 

Vote positif 0 Vote négatif

I

idea

Guest

• 14 Mars 2008

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2008

• #4

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

Bonsoir

Tu peux tester ceci

Code:

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

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #5

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2008

• #6

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

Re

Chez moi cela fonctionne

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2008

• #8

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

Re



Regarde le fichier joint

Testé sur mon poste, cela fonctionne.

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #9

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

Oui,

JE VAIS BIEN REGARDER CE QUI NE VA PAS

MERCI DE TON AIDE
A BIENTOT

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #10

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 15 Mars 2008

• #11

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......)

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 15 Mars 2008

• #12

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

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #13

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 15 Mars 2008

• #14

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

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

essaie comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

I

idea

Guest

• 15 Mars 2008

• #15

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

c est super
merci a tous

 

Vote positif 0 Vote négatif