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
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