[RESOLU] Macro enregistrer selon cellule spécifiée

[red-69]

Bonjour à tous.

J'aurai besoin d'un coup de main pour une macro permettant d'enregistrer un fichier selon la valeur de la cellule C5.

J'ai rédigé le code suivant :

Sub Enregistre()

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("C5").Value)

End Sub

Le problème, c'est que la fonction "enregister sous" est effectivement lancée, mais cela ne récupère absolument pas la valeur de la cellule C5.
Quelqu'un à une idée du problème en question ?

Par avance merci.

 

[Pierrot93]

Re : Macro enregistrer selon cellule spécifiée

Bonjour,

si la cellule en question est bien sur la feuille active, modifie comme suit :

Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("C5").Value)

par contre si la cellule en question est sur le classeur où se trouve la macro et que ce classeur ne soit pas le classeur actif, il y aura lieu de préciser le nom de la feuille en question...

fonctionne chez moi sous 2003....

bon après midi
@+

 

[red-69]

Re : Macro enregistrer selon cellule spécifiée

Bonjour Pierrot.
Merci pour l'aide.

La cellule est effectivement sur la feuille active.
En revanche, lorsque je lance la macro avec la modification que tu as fait, cela n'apporte pas la solution à mon problème.
La partie "nom du fichier" de l'onglet "enregister sous" reste vide.

 

[red-69]

Re : Macro enregistrer selon cellule spécifiée

Je viens de comprendre le problème.
La cellule C5 est en réalité une concaténation de différentes cellules.
Effectivement, ta solution fonctionne si la cellule a une valeur propre.
Existe-il un moyen de passer outre ce problème ?

 

[Pierrot93]

Re : Macro enregistrer selon cellule spécifiée

Re,

chez moi, sous 2003, le la valeur de la cellule C5 est bien reportée dans le nom du fichier... tu n'as pas de cellule fusionnée par hasard ???

 

[Pierrot93]

Re : Macro enregistrer selon cellule spécifiée

Re,

essaye avec la propriété "text" de la cellule :

Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("C5").Text)

 

[red-69]

Re : Macro enregistrer selon cellule spécifiée

la propriété "text" ne change rien.

Merci encore pour ton aide

 

[Pierrot93]

Re : Macro enregistrer selon cellule spécifiée

Re,

fonctionne aussi chez moi si la cellule est le résultat d'une concaténation... pas d'autre idée...

 

[red-69]

Re : Macro enregistrer selon cellule spécifiée

Merci du coup de main Pierrot.
J'ai trouvé mon erreur. Un "." (caractère interdit) s'était glissé dans ma cellule.