Correction code VBA, Merci d'avance :)

Résolu
SOMUM Messages postés 28 Statut Membre -  
SOMUM Messages postés 28 Statut Membre -
Bonjour,

J'ai un soucis sur un code VBA, une âme charitable se lancerait ?

Sub EnregistreSous()
Dim NOM As String
lechemin = ActiveWorkbook.Path & "C:\Users\user\Desktop\TEST_EAD\"
NOM = Range("F24")
ThisWorkbook.SaveAs lechemin & NOM & ".xls"
End Sub


Merci d'avance encore et encore :)
A voir également:

1 réponse

via55 Messages postés 14730 Statut Membre 2 749
 
Bonjour

ActiveWorkbook.Path renvoie déjà le chemin il ne faut pas le rajouter encore après !! il suffit de rajouter un \
lechemin = ActiveWorkbook.Path & "\"

Cdlmnt
Via
0
SOMUM Messages postés 28 Statut Membre
 
Ahhhhhhhhhhhhhh !!!!


Oui. Bah merci beaucoup beaucoup !
0