Z
zouille
Guest
salut forum
voila , j'ai creer un projet avec une macro pour enregistrer sous ( avec nom en fonction d'une cellule+date) mais c'est pas exactement ce que je veux
J'aimerais que le fichier s'enregistre automatiquement mais dans le meme dossier ou se trouve mon projet ou dans un sous dossier 'mes devis'(dans ce meme dossier)
mais ca ne marche pas .
en ce moment mon projet se trouve sur mon bureau dans le dossier 'xls' et qd je lance la macro , ca 'senregistre bien mais sur le bureau et non dans ce dossier
que faire
merci a tous
voila , j'ai creer un projet avec une macro pour enregistrer sous ( avec nom en fonction d'une cellule+date) mais c'est pas exactement ce que je veux
Code:
Sub Enregistrer()
Dim stRep As String
Sheets('devis').Copy
stRep = ThisWorkbook.Path
For Each s In ActiveSheet.Shapes
If s.Type = msoFormControl Then
s.Delete
End If
Next
ActiveWorkbook.SaveAs stRep & Replace(Range('G4'), ' ', '-') & Format(Now, '-ddmmyy')
ActiveWorkbook.Close savechanges:=False
mais ca ne marche pas .
en ce moment mon projet se trouve sur mon bureau dans le dossier 'xls' et qd je lance la macro , ca 'senregistre bien mais sur le bureau et non dans ce dossier
que faire
merci a tous