enregistrer sous avec inputbox

[julie999]

Bonjour
je cherche a enregistrer une feuille excel"Report quotidien & mensuel"dans un nouveau classeur en affichant un input box
cet input box me demande sous quelle date je veux enregistrer le fichier(ex 2308 pour 23 août)la feuille va s'enregistrer sous le nom "Photobox Cross docking du 2308"dans le dossierhotobox_Cross docking sur le bureau

voici mon début de code:
Sheets("Report quotidien & mensuel").Copy
ChDir "C:\Documents and Settings\as400\Bureau\Photobox_Cross docking"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Classeur1.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

actuellement le nom du classeur est classeur1
il faut qu'il s'appelle "Photobox Cross docking du"et contenu du input box"2308"

merci de votre aide
Julie

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Bonjour Julie,

essaye ceci, si j'ai bien compris...

Dim s As String
s = InputBox("dalle date ? format jjmm")
If s <> "" Then MsgBox "ok"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " _
    & s, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

bonne journée
@+

 

[julie999]

Re : enregistrer sous avec inputbox

bonjour Pierrot
pour le input box ok par contre pour que le fichier s'enregistrer ca bloque sur ces ligne


Dim s As String
s = InputBox("dalle date ? format jjmm")
If s <> "" Then MsgBox "ok"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " _
& s, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Julie

le dossier doit s'enregistrer sur le bureau dans le dossier"Photobox_Cross docking" sosu le nom"Photobox Cross docking du2308"

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

bonjour Pierrot
pour le input box ok par contre pour que le fichier s'enregistrer ca bloque sur ces ligne

Dim s As String
s = InputBox("dalle date ? format jjmm")
If s <> "" Then MsgBox "ok"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " _
& s, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Julie

le dossier doit s'enregistrer sur le bureau dans le dossier"Photobox_Cross docking" sosu le nom"Photobox Cross docking du2308"

ca bloque ??? message d'erreur ou pas le résultat attendu ??? rajoute peut être l'extension..

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " _
    & s & ".xlsx"

pas 2007 pour tester....

 

[julie999]

Re : enregistrer sous avec inputbox

comment faire pour eviter ce message:
les fonctionalites suivantes ne peuvent pas etre enregistrer dans les classeur sans macro
julie

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

enregiste le en "xlsm"

 

[julie999]

Re : enregistrer sous avec inputbox

Dim s As String
s = InputBox("dalle date ? format jjmm")
If s <> "" Then MsgBox "ok"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " _
& s & ".xlsx"

quand je met ce code j'ai une erreur d'execution 1004
je souite enregistrer la feuille dans un nouveau classeur qui se trouve sur le bureau du disque c dans le dossier"Photobox_Cross docking" sous le nom"Photobox_Cross docking 2208"
pour le 22 aout enregistrement avec classeur sans macro
merci de votre aide julie

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

modifie comme suit :

Dim s As String
s = InputBox("dalle date ? format jjmm")
If s <> "" Then ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " & s & ".xlsm"

 

[julie999]

Re : enregistrer sous avec inputbox

salut pierrot
j'ai copier ce code et j'ai encore une erreur 1004
souligner en jaune a partir de
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Photobox Cross docking du " & s & ".xlsm"

le dossier ou doit se sauvegarder le classeur est sur le bureau j'ai essayer de supprimer doc and sett et as400 et idem erreur
Julie

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

mais ca eût fonctionné ou pas... tout à l'heure tu disais :

comment faire pour eviter ce message:
les fonctionalites suivantes ne peuvent pas etre enregistrer dans les classeur sans macro
julie

 

[julie999]

Re : enregistrer sous avec inputbox

oui çà eut fonctionné c'est pour çà je comprend plus ce que j'avais fait aussi

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

que mets tu dans l'inputbox ?

 

[julie999]

Re : enregistrer sous avec inputbox

voici le fichier

 

[Pierrot93]

Re : enregistrer sous avec inputbox

Re,

pas 2007 sous le coude... alors... essaye peut être l'enregistreur de macro... il aura le mérite de confirmer infirmer le chemin et le format que tu souhaites....

 

[Pierrot93]

Re : enregistrer sous avec inputbox

bonjour,

je viens de tester sous 2007, et le code ci dessous fonctionne chez moi... enregistrement du classeur dans le dossier courant (j'ai retiré le chemin car inexistant chez moi)...

Dim s As String
s = InputBox("Quelle date ? format jjmm")
If s <> "" Then ActiveWorkbook.SaveAs Filename:= _
"Photobox Cross docking du " & s & ".xlsm"

bonne journée
@+