planning suite

[bercool]

Bonsoir,
Je reviens avec mon planning et une question de sauvegarde de classeur par macro.Cette macro fonctionne mais je souhaiterais une modif que je n'arrive pas à faire:

Sub Class()
Dim dt, brig, nomclasseur As String
Dim path As String
Dim rep As Variant
path = ActiveWorkbook.path
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
With ActiveSheet
dt = .Range("a2").Value 'la c'est l'annee
brig = .Range("e18").Value 'la c'est le nom de l'equipe

nomclasseur = "Planning" & " " & brig
End With
rep = MsgBox("Sauvegarder le planning de :" & brig, vbYesNo + vbQuestion, "MODIFIER")
If rep = vbYes Then
ActiveWorkbook.SaveCopyAs Filename:=path & "\2007" & nomclasseur & ".xls"
Else
Exit Sub
End If

Application.ScreenUpdating = True
End Sub


En fait c'est la valeur en rouge (\2007) que j'aimerais remplacer par la variable dt


Merci de vos conseils

A+++

 

[Compte Supprimé 979]

Re : planning suite

Salut Bercool,

Alors là franchement, c'est de la mauvaise volonté 😀

ActiveWorkbook.SaveCopyAs Filename:=path &[COLOR=red] "\" & dt [/COLOR]& nomclasseur & ".xls"

Voilà 😉

 

[bercool]

Re : planning suite

Salut,

Merci quelle c....rie je butte là dessus depuis 1 heure,à force l'évidence m'a echappée !!!!

Merci et toutes mes excuses.

A+++