Discussion :

[Est3van]

Bonjour,

J'ai un petit soucis avec une macro qui devrait me permettre de nommer un fichier à partir d'une donnée présente en cellule "BF5" :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim mail As String
mail = Range("BF5").Value
 
Dim nom
 
nom = Application.GetSaveAsFilename("Recap_" & mail, "Excel Files (*.xls), *.xls")
 
If nom <> False Then
ActiveWorkbook.SaveAs nom
End If

Le problème est que lorsque l'explorateur Windows s'ouvre pour choisir le chemin d'enregistrement, le nom du fichier ne s'affiche pas (dans la barre de nom en bas).

Quelqu'un a une explication ? Je précise que la cellule "BF5" contient une adresse mail.

Merci d'avance,

Est3van

[Menhir]

Il y a plusieurs éléments que je ne comprends pas dans ta demande.

Le problème est que lorsque l'explorateur Windows s'ouvre pour choisir le chemin d'enregistrement, le nom du fichier ne s'affiche pas (dans la barre de nom en bas).

La méthode GetSaveAsFilename sert à sélectionner le nom d'un fichier.
Si on lui impose le nom de fichier à renvoyer, je ne vois pas l'intérêt.

je précise que la cellule "BF5" contient une adresse mail.

Cette adresse mail fait partie du nom du répertoire ?

Peut-être que ceci pourra t'aider : https://docs.microsoft.com/fr-fr/off...saveasfilename

[Est3van]

Le GetSaveAsFilename me permet d'obtenir le nom complet (avec le chemin d'enregistrement). la macro marche très sans la partie "& mail", je peux choisir le nom complet du classseur qui est préappelé "Recap_" Quand je rajoute la variable mail là ça ne marche plus.

En gros le nom du fichier c'est ça : C:\Users\Est3van\Desktop\Work\Recap_mail

Je veux prédéfinir Recap_mail et utiliser GetSaveAsFilename pour le reste. Je ne sais pas si je suis clair.


Est3van