Macro Excel pour sauvegarde avec nom repris dans une celluleRésolu

Question

Bonjour,

Quelqu'un aurait-il une idée pour que dans la macro ci-dessous, la variable "nom" prenne la valeur de la cellule A1 et donc, que le nom du fichier sauvegardé soit la valeur contenue dans A1 ?
Ex : A1 contient "pHg" je souhaiterais que ma macro sauve le fichier sous le nom "pHg.xls"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub EnregistrerNomCellule()
'
' EnregistrerNomCellule Macro
' Macro enregistrée le 25/08/2006 par pHg
'
Dim nom



'nom = Val(A1)

' j'ai essayé ceci mais ça ne marche pas !!!


ActiveWorkbook.SaveCopyAs "(nom)" & ".xls"

End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Merci déjà...

pHg

jrivet · Accepted Answer

Salut,


Pour récupérer la valeur A1 de la feuille 1 du classeur actif


ActiveWorkBook.Worksheets(1).Range("A1").Text


Soit
Call ActiveWorkbook.SaveCopyAs (ActiveWorkBook.Worksheets(1).Range("A1").Text & ".xls")






@+, Julien

pHg007 · Answer

Grand merci Julien pour cette réponse rapide et pertinente.


 






pHg

CHASTENAY89 · Answer

Cher Julien,
J'ai trouvé partiellement une réponse à mon problème dans la solution que vous avez donné dans le forum "Macro Excel pour sauvegarde avec nom repris dans une cellule".

Mon problème est de sauvegarder un fichier EXCEL en lui donnant un nom sous la forme suivante :

[i] [list]
1 - N° de facture (situé dans mon cas en cellule "B10")
 2 - incérer un séparteur du type "-" 
 3 - Reprendre le nom du client (situé dans mon cas en cellule "C9")/i
/list
La sauvegarde du nouveau fichier devrait être du type : "201105001-DURAND.xls"

Je n'arrive pas à trouver la bonne solution.
Merci par avance de votre aide.

Bernard

Macro Excel pour sauvegarde avec nom repris dans une cellule

3 réponses

Votre réponse

Discussions similaires