Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sauvegarder avec choix de nom

Sauvegarder avec choix de nom

14 réponses
Avatar
RT
Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Mes documents\just wait\promethean"
ActiveWorkbook.SaveAs Filename:= _
"C:\Mes documents\just wait\promethean\orders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
JLuc
*Bonjour RT*,

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
fichier = Inputbox("Donner moi un nom")

fichier = fichier & ".xls"

ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitpromethean" & fichier,
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
ActiveWindow.Close
End Sub



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
ChrisV
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE", _
, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
ActiveWindow.Close
End Sub





Avatar
RT
Merci beaucoup



Cela fonctionne impeccabel

Il ne me reste plus à présent que finalisé certains petits détails

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais tout seul comme un petit


Sinon je serai de retour


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE", _
, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande
de


donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
ActiveWindow.Close
End Sub









Avatar
RT
Merci beaucoup pour ton aide

Ta solution fonctionne, mais j'ai finalement pris celle de CrisV
Comme je lui ai signalé il ne me reste plus à présent qu'à finaliser
certains petits trucs

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais
Sinon je serai de retour


A bientôt et encore merci

Rex


"JLuc" wrote in message
news:
*Bonjour RT*,

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande
de


donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
fichier = Inputbox("Donner moi un nom")

fichier = fichier & ".xls"

ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitpromethean" & fichier,
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse,
_


CreateBackup:úlse
ActiveWindow.Close
End Sub



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
ChrisV
Waste, ake wanciyankin ktelo ! >:-)


ChrisV


"RT" a écrit dans le message de news:

Merci beaucoup



Cela fonctionne impeccabel

Il ne me reste plus à présent que finalisé certains petits détails

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais tout seul comme un petit


Sinon je serai de retour


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE", _
, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui demande
de


donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse,
_
CreateBackup:úlse
ActiveWindow.Close
End Sub













Avatar
RT
Mais quoi qu'il y en a dans cette phrase là !!!!!

Pardonne-moi mais je ne comprends pas
C'est sûrement une petite phrase sympa, mais.........

Une p'tite traduction ne serait pas superflu


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:#
Waste, ake wanciyankin ktelo ! >:-)


ChrisV


"RT" a écrit dans le message de news:

Merci beaucoup



Cela fonctionne impeccabel

Il ne me reste plus à présent que finalisé certains petits détails

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais tout seul comme un petit


Sinon je serai de retour


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE", _
, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui
demande




de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse,




_
CreateBackup:úlse
ActiveWindow.Close
End Sub

















Avatar
ChrisV
La traduction en français... ;-)
"De rien, à bientôt !"


ChrisV


"RT" a écrit dans le message de news:

Mais quoi qu'il y en a dans cette phrase là !!!!!

Pardonne-moi mais je ne comprends pas
C'est sûrement une petite phrase sympa, mais.........

Une p'tite traduction ne serait pas superflu


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:#
Waste, ake wanciyankin ktelo ! >:-)


ChrisV


"RT" a écrit dans le message de news:

Merci beaucoup



Cela fonctionne impeccabel

Il ne me reste plus à présent que finalisé certains petits détails

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais tout seul comme un petit


Sinon je serai de retour


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE", _
, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au point

Tout va bien mais je ne sais pas comment insérer une ligne qui
demande




de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> >> > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse,




_
CreateBackup:úlse
ActiveWindow.Close
End Sub





















Avatar
Modeste
Hau Wichasha TeaPot®
(*)OOOOOFT !!!!
;o)))
RT wrote:
Une p'tite traduction ne serait pas superflue


is it possible you don't already know ChrisV's idiomatics ????
http://www.elexion.com/lakota/iyapi/words2.html

;o)))
(*)Official Owner Of Only One Ferrari Tyre

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
RT
Eh ben le teapot y comprends rien !!!!!!

Alors soyez sympa en sortez moi de ma misère

Vous causez en quelle langue? A moins que ce ne soit un patois ou un pas lui

A bientôt

Et même très binetôt car je bloque sur une conneris de macro
et si je ne trouve pas dans la demi heure je ferais appelle à vos bons et
loyaux services


Rex ou Teapot ou l'homme au pneu de Ferrari




"Modeste" wrote in message
news:
Hau Wichasha TeaPot®
(*)OOOOOFT !!!!
;o)))
RT wrote:
Une p'tite traduction ne serait pas superflue


is it possible you don't already know ChrisV's idiomatics ????
http://www.elexion.com/lakota/iyapi/words2.html

;o)))
(*)Official Owner Of Only One Ferrari Tyre

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr





Avatar
RT
Comme je viens de l'écrire à à notre modeste ami

J' y comprends rien !!!!!!

Alors soit sympa et dis moi quoi que c'est comme expression linguistique que
cette bête là?

Vous causez en quelle langue? A moins que ce ne soit un patois ou un pas lui

A bientôt

Et même très bientôt car je bloque sur une conneries de macro
et si je ne trouve pas dans la demi heure je ferais appelle à vos bons et
loyaux services


Rex ou Teapot ou l'homme au pneu de Ferrari

En tous les cas merci pour l'aide



"ChrisV" wrote in message
news:
La traduction en français... ;-)
"De rien, à bientôt !"


ChrisV


"RT" a écrit dans le message de news:

Mais quoi qu'il y en a dans cette phrase là !!!!!

Pardonne-moi mais je ne comprends pas
C'est sûrement une petite phrase sympa, mais.........

Une p'tite traduction ne serait pas superflu


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:#
Waste, ake wanciyankin ktelo ! >:-)


ChrisV


"RT" a écrit dans le message de news:

Merci beaucoup



Cela fonctionne impeccabel

Il ne me reste plus à présent que finalisé certains petits détails

Par exemple reformatage, calcul de totaux etc

Mais cela je crois que j'y arriverais tout seul comme un petit


Sinon je serai de retour


A bientôt et encore merci

Rex


"ChrisV" wrote in message
news:
Bonjour RT,

Non testée...

Sub orderforpromethean()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
On Error Resume Next
ChDrive "C"
ChDir "C:Mes documentsjust waitpromethean"
eSS:
With Application
.ActiveWorkbook.SaveAs (.InputBox("Indiquer un nom", "MPFE",
_





, , , , , 1 + 2) & ".xls")
End With
If err.Number <> 0 Then MsgBox Error(err): GoTo eSS
ActiveWindow.Close
End Sub


ChrisV


"RT" a écrit dans le message de news:

Bonjour à tous

Ci'dessous vous trouverez une macro que j'essaye de mettre au
point







Tout va bien mais je ne sais pas comment insérer une ligne qui
demande




de
donner un nom de fichier
Comme il est maintenant il sauf comme "orders.xls"
mais je voudrais qu'a chaque fois il me demande de donner un nom

Alors j'en appelle à votre légendaire intelligence et gentillesse

A bientôt

Rex


Voici la macro


Sub orderforpromethean()
'
' orderforpromethean Macro
' Safe the order to Promethean as a single sheet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> >> > _


False, Transpose:úlse
Application.CutCopyMode = False
ChDir "C:Mes documentsjust waitpromethean"
ActiveWorkbook.SaveAs Filename:= _
"C:Mes documentsjust waitprometheanorders.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse,




_
CreateBackup:úlse
ActiveWindow.Close
End Sub

























1 2