Bonjour,
Quelle erreur ai-je faite Svp
En vous remerciant
Code:
1
2
3
4 Sub Enregistrer() ActiveWorkbook.SaveAs Filename:="C:\ADD\Jean\RecepFiche\" & Range("A4") & " " & Range("K4").xls ActiveWorkbook.Close End Sub
Version imprimable
Bonjour,
Quelle erreur ai-je faite Svp
En vous remerciant
Code:
1
2
3
4 Sub Enregistrer() ActiveWorkbook.SaveAs Filename:="C:\ADD\Jean\RecepFiche\" & Range("A4") & " " & Range("K4").xls ActiveWorkbook.Close End Sub
Salut,
A la fin :
Code:& Range("A4").Value & " " & Range("K4").Value & ".xls"
Bonsoir pijaku
Me solutionner en 10 minutes chrono c'est super et tu me rend heureux
Je te souhaite une bonne soirée
Content pour toi.
Attention, selon le type de données dans tes cellules (K4 par exemple), il vaut mieux utiliser la propriété Text plutôt que Value (cas d'une date par exemple)
A+