ENregistrer automatiquement fichier excel dans dossiers ...
15 réponses
aravis
bonjour, vba est un langage très complexe.
Voici mon souci, j'ai un code qui me permet d'enregistrer tout les jours, un
fichier excel.
Le truc c'est que j'aimerai enregistrer les dossiers dans ../dates/janvier (
dans le dossier du mois actuellement)
voici mon code :
rivate Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:\Production
LP11\morgan\SPCompresseurs\ du " & projet & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub
Voici mon souci, j'ai un code qui me permet d'enregistrer tout les jours, un fichier excel.
Le truc c'est que j'aimerai enregistrer les dossiers dans ../dates/janvier ( dans le dossier du mois actuellement)
voici mon code :
rivate Sub Workbook_Open() Dim projet As Single projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseurs du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
cordialement
Dans ton chemin, rajoute ceci : mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
-- JLuc
bonjour, vba est un langage très complexe.
Voici mon souci, j'ai un code qui me permet d'enregistrer tout les jours, un
fichier excel.
Le truc c'est que j'aimerai enregistrer les dossiers dans ../dates/janvier (
dans le dossier du mois actuellement)
voici mon code :
rivate Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseurs du " & projet & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub
cordialement
Dans ton chemin, rajoute ceci :
mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
Voici mon souci, j'ai un code qui me permet d'enregistrer tout les jours, un fichier excel.
Le truc c'est que j'aimerai enregistrer les dossiers dans ../dates/janvier ( dans le dossier du mois actuellement)
voici mon code :
rivate Sub Workbook_Open() Dim projet As Single projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseurs du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
cordialement
Dans ton chemin, rajoute ceci : mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
-- JLuc
aravis
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open()
Dim projet As Single
application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal,
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
JLuc
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois C'est le contraire :
mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
Pour le chemin : chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, Pour la sauvegarde :
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls"
_ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
-- JLuc
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open()
Dim projet As Single
application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois
C'est le contraire :
mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
Pour le chemin :
chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal,
Pour la sauvegarde :
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls"
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois C'est le contraire :
mois = Application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
Pour le chemin : chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, Pour la sauvegarde :
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls"
_ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
-- JLuc
Ange Ounis
En plus des remarques précédentes, 'projet' ne devrait pas être typé en Single. La fonction Format renvoie du texte mais le transtypage forcé par la déclaration en Single donne un résultat qui n'est pas le résultat attendu. Laisse un type Long compte tenu du format de date demandé si tu tiens à un transtypage vers un résultat numérique, mais le plus cohérent, AMA, serait une déclaration en String du fait que 'projet' doit être inséré dans une chaîne de caractères.
---------- Ange Ounis ----------
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
En plus des remarques précédentes, 'projet' ne devrait pas être typé en Single.
La fonction Format renvoie du texte mais le transtypage forcé par la déclaration
en Single donne un résultat qui n'est pas le résultat attendu.
Laisse un type Long compte tenu du format de date demandé si tu tiens à un
transtypage vers un résultat numérique, mais le plus cohérent, AMA, serait une
déclaration en String du fait que 'projet' doit être inséré dans une chaîne de
caractères.
----------
Ange Ounis
----------
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open()
Dim projet As Single
application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:Production
LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal,
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub
En plus des remarques précédentes, 'projet' ne devrait pas être typé en Single. La fonction Format renvoie du texte mais le transtypage forcé par la déclaration en Single donne un résultat qui n'est pas le résultat attendu. Laisse un type Long compte tenu du format de date demandé si tu tiens à un transtypage vers un résultat numérique, mais le plus cohérent, AMA, serait une déclaration en String du fait que 'projet' doit être inséré dans une chaîne de caractères.
---------- Ange Ounis ----------
ca ne fonctionne pas quand je met :
Private Sub Workbook_Open() Dim projet As Single application.WorksheetFunction.Proper(Format(Now(), "mmmm")) = mois projet = Format(Now(), "ddmmyyyy") ActiveWorkbook.SaveAs Filename:="V:Production LP11morganSPCompresseursmois du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True End Sub
aravis
ca me met membre de méthode ou de donnée introuvable ^^
Private Sub Workbook_Open() Dim projet As Single
projet = Format(Now(), "ddmmyyyy") mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm")) chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True
End Sub
ca me met membre de méthode ou de donnée introuvable ^^
Private Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
ca me met membre de méthode ou de donnée introuvable ^^
Private Sub Workbook_Open() Dim projet As Single
projet = Format(Now(), "ddmmyyyy") mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm")) chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True
End Sub
JLuc
ca me met membre de méthode ou de donnée introuvable ^^ Sur quelle ligne ? J'ai tester et ca marche sauf pour le chemin :')
Attention, le repertoire de sauvegarde devient : "V:Production LP11morganSPCompresseursMai" pour ce mois S'il n'existe pas, il faut le créer (ainsi que les autres mois) Le fichier s'appelera : "projet du 1.705201E+07.xls" si tu laisse la variable projet as Single et : "projet du 17052006.xls" si tu la passe As String (pour aujourd'hui)
Private Sub Workbook_Open() Dim projet As Single
projet = Format(Now(), "ddmmyyyy") mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm")) chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True
End Sub
-- JLuc
ca me met membre de méthode ou de donnée introuvable ^^
Sur quelle ligne ? J'ai tester et ca marche sauf pour le chemin :')
Attention, le repertoire de sauvegarde devient :
"V:Production LP11morganSPCompresseursMai" pour ce mois
S'il n'existe pas, il faut le créer (ainsi que les autres mois)
Le fichier s'appelera : "projet du 1.705201E+07.xls" si tu laisse la
variable projet as Single et :
"projet du 17052006.xls" si tu la passe As String (pour aujourd'hui)
Private Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
ca me met membre de méthode ou de donnée introuvable ^^ Sur quelle ligne ? J'ai tester et ca marche sauf pour le chemin :')
Attention, le repertoire de sauvegarde devient : "V:Production LP11morganSPCompresseursMai" pour ce mois S'il n'existe pas, il faut le créer (ainsi que les autres mois) Le fichier s'appelera : "projet du 1.705201E+07.xls" si tu laisse la variable projet as Single et : "projet du 17052006.xls" si tu la passe As String (pour aujourd'hui)
Private Sub Workbook_Open() Dim projet As Single
projet = Format(Now(), "ddmmyyyy") mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm")) chemin = "V:Production LP11morganSPCompresseurs" & mois & ""
ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _ CreateBackup:=True
End Sub
-- JLuc
aravis
ah c'est donc pour ca, moi c'était dans dates/mai ^^
ah c'est donc pour ca, moi c'était dans dates/mai ^^
