Enregistrement VBA

Bonjour

J'essaie d automatiser l'enregistrement d un fichier par VBA mais mon code bloque sur la method "SaveAs"... des idees pour resoudre mon probleme?

Sub enregistrer_as()

Dim Name As String
Dim main As Worksheet

Set main = ActiveWorkbook.Sheets("Main")

Name = "Quotes at " & main.Range("AB1")

ActiveWorkbook.SaveAs Filename:="S:\Desk_Credit\Primaire\TCA" & Name

End Sub

merci d avance

Bonjour,

Essaie ceci :

Public Sub Enregistrer_sous()
Dim ws As Worksheet
Dim sFile As String
Const sPATH As String = "S:\Desk_Credit\Primaire\TCA\"
    With ActiveWorkbook
        Set ws = .Worksheets("Main")
        sFile = "Quotes at " & ws.Range("AB1").Value & ".xlsx"
        .SaveAs Filename:=sPATH & sFile, FileFormat:=51
    End With
End Sub

Hello

merci pour ton retour, cependant toujours la meme erreur

Re,

Que contient la cellule AB1 ?

As-tu la possibilité de joindre ton classeur ?

Cdlt.

AB1 contient une copie valeur de la fonction =Now()

en copie le fichier, tu ne pouras pas l'utiliser completement puisqu il faut un autre logiciel

AB1 contient une copie valeur de la fonction =Now()

en copie le fichier, tu ne pouras pas l'utiliser completement puisqu il faut un autre logiciel

Bonjour

tu a un problème de format date

a Voir

sFile = "Quotes at " & Format(ws.Range("AB1").Value, "dd-mm-yyyy hh:mm") & ".xlsx"

A+

Maurice

RE,

Une nouvelle proposition :

Public Sub Enregistrer_sous()
Dim ws As Worksheet
Dim sDate As String, sFile As String
Const sPATH As String = "S:\Desk_Credit\Primaire\TCA\"
    With ActiveWorkbook
        Set ws = .Worksheets("Main")
        sDate = Format(ws.Range("AB1"), "YYYYMMDD HHMM")
        sFile = "Quotes at " & sDate & ".xlsx"
        .SaveAs Filename:=sPATH & sFile, FileFormat:=51
    End With
End Sub

Super ! merci les gars it works!

(donc il était bien question de format date....)