Discussion :

[yoyo3d]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nom As String
Nom=A1

J'avais pensé faire ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yoyo3d]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[ouskel'n'or]

Si ton bouton est dans la feuille active, mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je croyais que A1 était une variable

[yoyo3d]

Voici mon code au final.....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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