Enregistrement fichier

[julie999]

Bonjour
j'utilise ce code pour enregistrer mon fichier
mais j'aimerais qu'a la place de me mettre un input box il me prend le contenu de la cellule c4

Dim s As String
s = InputBox(" Sous quelle date voulez vous enregistrer ce fichier" & " ex:0102 pour 01 Fevrier" & " ou " & " ex:0408 pour 04 Août")
If s <> "" Then
ChDir "C:\Documents and Settings\as400\Bureau\Photobox_Cross docking"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Reporting PHIL" _
& s & ".xls"
merci de votre aide
Julie

 

[Dull]

Re : Enregistrement fichier

Salut Julie999, le Forum

Peut-être comme cela

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Reporting PHIL" & Feuil1.[C4] & ".xls"

Nom de la feuille à adapter éventuellement

Bonne Journée

 

[julie999]

Re : Enregistrement fichier

re
le nom de la feuille est:"recap"
en cellule c4 se trouve la date sous forme:1609 (pour 16 septembre)
je met donc ce code
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Reporting PHIL" & recap.[C4] & ".xls"
mais ca ne fonctione pas
le fichier devrait s'enregistrer sous le nom"Reporting PHIL 1609.xls"

on peut eventuellement le placer a la racine du disque c
une idée
merci julie
la feuille en piece jointe

 

[Dull]

Re : Enregistrement fichier

Re Julie

Effectivement Feuil1 est le CodeName de la Feuille
Dans ton cas le CodeName est Feuil12

ou alors remplacer Feuil12 par Sheets("recap")

C:\Documents and Settings\as400\Bureau\Photobox_Cross docking\Reporting PHIL" & Feuil12.[C4].Text & ".xls"

A tester

Bonne Journée