Je cherche =E0 =E9crire une macro qui enregistre le fichier en=20
cours en rajoutant =E0 son nom la valeur contenue dans la=20
cellule B7 + "xls".
Puis qui ferme le fichier.
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
Michel Pierron
Bonjour FRANK; Sub SaveBook Dim wbkName As String With ThisWorkbook wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1) .SaveAs wbkName & ActiveSheet.Range("B7") & ".xls" .Close False End With End Sub
MP
"FRANK" a écrit dans le message de news:132501c3e023$3659fc50$ Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en cours en rajoutant à son nom la valeur contenue dans la cellule B7 + "xls". Puis qui ferme le fichier.
Merci d'avance
FRANK
Bonjour FRANK;
Sub SaveBook
Dim wbkName As String
With ThisWorkbook
wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1)
.SaveAs wbkName & ActiveSheet.Range("B7") & ".xls"
.Close False
End With
End Sub
MP
"FRANK" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:132501c3e023$3659fc50$a301280a@phx.gbl...
Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en
cours en rajoutant à son nom la valeur contenue dans la
cellule B7 + "xls".
Puis qui ferme le fichier.
Bonjour FRANK; Sub SaveBook Dim wbkName As String With ThisWorkbook wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1) .SaveAs wbkName & ActiveSheet.Range("B7") & ".xls" .Close False End With End Sub
MP
"FRANK" a écrit dans le message de news:132501c3e023$3659fc50$ Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en cours en rajoutant à son nom la valeur contenue dans la cellule B7 + "xls". Puis qui ferme le fichier.
"FRANK" a écrit dans le message news: 132501c3e023$3659fc50$ Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en cours en rajoutant à son nom la valeur contenue dans la cellule B7 + "xls". Puis qui ferme le fichier.
"FRANK" <anonymous@discussions.microsoft.com> a écrit dans le message news:
132501c3e023$3659fc50$a301280a@phx.gbl...
Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en
cours en rajoutant à son nom la valeur contenue dans la
cellule B7 + "xls".
Puis qui ferme le fichier.
"FRANK" a écrit dans le message news: 132501c3e023$3659fc50$ Bonjour,
Sous Excel XP
Je cherche à écrire une macro qui enregistre le fichier en cours en rajoutant à son nom la valeur contenue dans la cellule B7 + "xls". Puis qui ferme le fichier.
Merci d'avance
FRANK
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Merci pour la réponse qui fonctionne bien mais la cellule
concernée contient une date alors il me remplace ma date
par des chiffres incompréhensifs.
En fait dans cette cellule est écrit une date du style
Décembre-03 et je voudrais la conserver dans mon filename.
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Merci pour la réponse qui fonctionne bien mais la cellule
concernée contient une date alors il me remplace ma date
par des chiffres incompréhensifs.
En fait dans cette cellule est écrit une date du style
Décembre-03 et je voudrais la conserver dans mon filename.
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
ru-th
Salut
soit .SaveAs wbkName & ActiveSheet.Range("B7").text & ".xls" soit .SaveAs wbkName & format(ActiveSheet.Range("B7"),"mmmm-aa") & ".xls" a+ rural thierry
a écrit dans le message de news: 198c01c3e02c$c86019f0$ Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Salut
soit
.SaveAs wbkName & ActiveSheet.Range("B7").text & ".xls"
soit
.SaveAs wbkName & format(ActiveSheet.Range("B7"),"mmmm-aa") & ".xls"
a+
rural thierry
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
198c01c3e02c$c86019f0$a001280a@phx.gbl...
Merci pour la réponse qui fonctionne bien mais la cellule
concernée contient une date alors il me remplace ma date
par des chiffres incompréhensifs.
En fait dans cette cellule est écrit une date du style
Décembre-03 et je voudrais la conserver dans mon filename.
soit .SaveAs wbkName & ActiveSheet.Range("B7").text & ".xls" soit .SaveAs wbkName & format(ActiveSheet.Range("B7"),"mmmm-aa") & ".xls" a+ rural thierry
a écrit dans le message de news: 198c01c3e02c$c86019f0$ Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Jacky
Remplace la ligne 2 par: chemin = chemin & ActiveWorkbook.Name & " " & [b7].Text & ".xls" JJ
a écrit dans le message news: 198b01c3e02c$b84f3f50$
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
FRANK
Remplace la ligne 2 par:
chemin = chemin & ActiveWorkbook.Name & " " & [b7].Text & ".xls"
JJ
<anonymous@discussions.microsoft.com> a écrit dans le message news:
198b01c3e02c$b84f3f50$a001280a@phx.gbl...
Merci pour la réponse qui fonctionne bien mais la cellule
concernée contient une date alors il me remplace ma date
par des chiffres incompréhensifs.
En fait dans cette cellule est écrit une date du style
Décembre-03 et je voudrais la conserver dans mon filename.
Remplace la ligne 2 par: chemin = chemin & ActiveWorkbook.Name & " " & [b7].Text & ".xls" JJ
a écrit dans le message news: 198b01c3e02c$b84f3f50$
Merci pour la réponse qui fonctionne bien mais la cellule concernée contient une date alors il me remplace ma date par des chiffres incompréhensifs. En fait dans cette cellule est écrit une date du style Décembre-03 et je voudrais la conserver dans mon filename.
