Bonjour =E0 toutes et =E0 tous,
En utilisant Application.GetSaveAsFilename comme ce qui=20
suit :
NomFic =3D "Toto.XLS"
NomFic =3D Application.GetSaveAsFilename(NomFic, "Classeur=20
Microsoft Excel (*.XLS),*.XLS")
Je remarque que la boite de dialogue pr=E9sente par d=E9faut=20
le nom TOTO.XLS, ce qui est normal, mais encadr=E9 de=20
guillemets (double-quotes). Y-a-t'il un moyen d'=E9viter ces=20
guillemets ? Par ailleurs, si dans le champ de saisie, on=20
les retire, pas de souci, idem si on met un autre nom,=20
m=EAme sans extension (VBA/Excel mettra automatiquement=20
cette extension).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour D.Lair,
ceci devrait fonctionner sans avoir testé !!
Dim NomFic As String NomFic = "Toto.XLS" NomFic = Application.GetSaveAsFilename(Workbooks(NomFic).Name, "Classeur Microsoft Excel (*.XLS),*.XLS")
Attention, cela suppose que le fichier mentionné est ouvert et existe bien ...
Salutations!
"D.Lair" a écrit dans le message de news:3f5801c47f8b$5f2e7b80$ Bonjour à toutes et à tous, En utilisant Application.GetSaveAsFilename comme ce qui suit : NomFic = "Toto.XLS" NomFic = Application.GetSaveAsFilename(NomFic, "Classeur Microsoft Excel (*.XLS),*.XLS")
Je remarque que la boite de dialogue présente par défaut le nom TOTO.XLS, ce qui est normal, mais encadré de guillemets (double-quotes). Y-a-t'il un moyen d'éviter ces guillemets ? Par ailleurs, si dans le champ de saisie, on les retire, pas de souci, idem si on met un autre nom, même sans extension (VBA/Excel mettra automatiquement cette extension).
Merci. DL
Bonjour D.Lair,
ceci devrait fonctionner sans avoir testé !!
Dim NomFic As String
NomFic = "Toto.XLS"
NomFic = Application.GetSaveAsFilename(Workbooks(NomFic).Name, "Classeur Microsoft Excel (*.XLS),*.XLS")
Attention, cela suppose que le fichier mentionné est ouvert et existe bien ...
Salutations!
"D.Lair" <denis.klair@ifrance.com> a écrit dans le message de news:3f5801c47f8b$5f2e7b80$a501280a@phx.gbl...
Bonjour à toutes et à tous,
En utilisant Application.GetSaveAsFilename comme ce qui
suit :
NomFic = "Toto.XLS"
NomFic = Application.GetSaveAsFilename(NomFic, "Classeur
Microsoft Excel (*.XLS),*.XLS")
Je remarque que la boite de dialogue présente par défaut
le nom TOTO.XLS, ce qui est normal, mais encadré de
guillemets (double-quotes). Y-a-t'il un moyen d'éviter ces
guillemets ? Par ailleurs, si dans le champ de saisie, on
les retire, pas de souci, idem si on met un autre nom,
même sans extension (VBA/Excel mettra automatiquement
cette extension).
Dim NomFic As String NomFic = "Toto.XLS" NomFic = Application.GetSaveAsFilename(Workbooks(NomFic).Name, "Classeur Microsoft Excel (*.XLS),*.XLS")
Attention, cela suppose que le fichier mentionné est ouvert et existe bien ...
Salutations!
"D.Lair" a écrit dans le message de news:3f5801c47f8b$5f2e7b80$ Bonjour à toutes et à tous, En utilisant Application.GetSaveAsFilename comme ce qui suit : NomFic = "Toto.XLS" NomFic = Application.GetSaveAsFilename(NomFic, "Classeur Microsoft Excel (*.XLS),*.XLS")
Je remarque que la boite de dialogue présente par défaut le nom TOTO.XLS, ce qui est normal, mais encadré de guillemets (double-quotes). Y-a-t'il un moyen d'éviter ces guillemets ? Par ailleurs, si dans le champ de saisie, on les retire, pas de souci, idem si on met un autre nom, même sans extension (VBA/Excel mettra automatiquement cette extension).
