VBA E valeur de cellule= nom du document

Bonjour à tous,
Je souhaite récupérer la valeur d'une cellule et l'utiliser dans le nom du document lors de son enregistrement.

Ex si dans ma cellule A1 j'ai la valeur 2007001a, je souhaiterais que le document soit enregistrer avec ce nom: 2007001a.xls.


J'ai trouvé la définition d'une variable (je ne suis pas certain que la syntaxe soit bonne)

Code:

---

1 2	Dim nom As String Nom=A1

---

J'avais pensé faire ceci:

Code:

---

1 2 3 4 5

ActiveWorkbook.SaveAs Filename:= _ "C:\Hydrants\"&nom".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub

---

De toutes les façons ça ne marche pas et pourtant je suis sur d'etre proche de la solution….

Mes connaissances étant "très limitées" dans ce domaine, je m'adresse à vous.
Amicalement yoyo.

Et comme ça, ça ne va pas mieux ?

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:= _ "C:\Hydrants\" & nom & ".xls"

---

Tu peux te dispenser de tout le reste qui sont les paramètres par défaut ;)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton2_Click() Dim nom As String nom = G51 ActiveWorkbook.SaveAs Filename:= _ "C:\Hydrants\" & nom & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False   End Sub

---

voici mon code actuel et quand j'appuie sur mon bouton excel
j'obtiens un document sans nom.... et pourtant dans ma cellule j'ai bien une valeur.
Cela viendrait il du fait que ma cellule est fusionnée?

Si ton bouton est dans la feuille active, mets

Code:

---

nom = Activesheet.Range("G51").value

---

Je croyais que A1 était une variable :(

Voici mon code au final.....:D

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton2_Click() Dim nom As String nom = Cells(51, 7) ActiveWorkbook.SaveAs Filename:= _ "C:\Hydrants\Fiches Reception\" & nom & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False   End Sub

---

notez bien la façon de désigner la cellule
Cells(51,7) au lieu de G51 je connaissait cette façon mais je ne pensait pas que cela puisse avoir un lien avec mon probleme.....
en tout cas, merci à tous....et à bientôt...