enregistrement spécial

[bibou1212]

Bonjour à tous,

Je suis en train d'essayer de configurer une macro, pour lorsque je clic sur un bouton de commande, j' enregistre sous la forme d'un fichier ...\"date".xls

J'ai parcouru plusieurs pages de forums qui parle ce ce sujet mais je dois dire que je me perd completement dans le VBA...

Dans une des page du forum j'ai pris un code que j'ai retranscris mais j'ai une erreur d'execusion '1004'.

Par la suite j'aimerai mettre une automatisation sur un enregistrement complet du fichier entier en auto toutes le minutes, et un bouton d'impression qui imprimerai juste la feuille dans lequel il se trouve.

Mais pour l'instant, je suis sur mon problème d'enregistrement.

Je vous met le code que j'ai copier puis modifier qui se trouve dans le module associé au bouton qui permettra l'enregistrement du dossier avec la date.

Sub Continuer_QuandClic()
'
' Continuer_QuandClic Macro
' Macro enregistrée le 14/12/2007 par perreida
'

'
ActiveSheet.Shapes("Button 5").Select
Selection.Characters.Text = "Continuer"
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Application.Goto Reference:="Continuer_QuandClic"
'
Dim auj As String


nomf = Range("g29").Date

'ActiveWorkbook.SaveAs Filename:="V:\Grany&PtitLU\Feuille prod par jour\Grany\25 06 07.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="V:\Grany&PtitLU\Feuille prod par jour\Grany2008\" + nomf + ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub


Si vous arrivez à trouver ma boulette ça me sortirai une épine du pied

Merci

 

[wilfried_42]

Re : enregistrement spécial

re:

voici un fichier, avec une date, et un bouton de type formulaire, tout se passe bien

 

[bibou1212]

Re : enregistrement spécial

en regardant je me suis apperçu que sur nomf = format(range("G29),"dd mm yyyy") il manqué peut être un " après ("G29")
Alors j'ai essayer et maintenant il me met un défaut '1004' sur la partie:

ActiveWorkbook.SaveAs Filename:="V:\Grany&PtitLU\Feuille prod par jour\Grany2008\" & nomf & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

 

[bibou1212]

Re : enregistrement spécial

ok et merci pour le fichier mais sur mon PC il s'enregistre dans "temps"
comment je peut lui donner un chemin spécifique?

 

[wilfried_42]

Re : enregistrement spécial

re:

a la place de thisworkbook.path & "\" & nomf & ".xls"

tu mets :

"V:\Grany&PtitLU\Feuille prod par jour\Grany2008\" & nomf & ".xls"

 

[bibou1212]

Re : enregistrement spécial

JE suis content ça marche super bien et maintenant j'aimerai quand je clic sur ce même bouton en même temps passer à une autre page, c'est possible de cumuler les deux?

 

[wilfried_42]

Re : enregistrement spécial

re:

apres thisworkbook.saveas

tu mets :
sheets("Nom de ta feuille").select

fais attention, quand tu fais un saveAs, ton classeur actif n'est plus l'ancien, mais la sauvegarde, regarde bien le nom dans la barre en bas

 

[bibou1212]

Re : enregistrement spécial

cette commande n'est pas pour sauvegarder qu'une seul feuille??

 

[wilfried_42]

Re : enregistrement spécial

re:

les lignes de code que tu as presenter au debut, enregistrent tout le classeur, pas une seule feuille, j'ai continué sur cette idée .........

 

[bibou1212]

Re : enregistrement spécial

Alors j'ai essayer la commande : ThisWorkbook.Save Assheets("Grany prod").select "V:\Sites\Grany&PtitLU\Feuille prod par jour\Grany2008\" & nomf & ".xls" et elle ne marche pas.
mais elle sert à quoi celle là exactement??
C pas pour passer à une autre feuille?

 

[wilfried_42]

Re : enregistrement spécial

re:

voici ma macro compete

Sub Bouton1_QuandClic()
    Dim nomf As String, memfic as string ' definir les variables
    memfic = thisworbook.path & "\" & thisworkbook.name ' mise en memoir du nom du fichier
    nomf = Format(Range("F29"), "dd mm yyyy") ' mettre la date au bon format dans la varieble
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & nomf & ".xls" ' sauveagarder le fichier
    Workbooks.Open Filename:=memfic ' reouvrir le premier fichier
    Sheets("Feuil3").Select ' selectionner la nouvelle feuille
    Workbooks(nomf & ".xls").Close ' fermer le fichier de sauvegarde
End Sub

 

[bibou1212]

Re : enregistrement spécial

Merci c super ça marche impec

Encore mille merci t'es un dieu Wilfried