Correction code VBA, Merci d'avance :)

Résolu
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 :)

1 réponse

  1. 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
    1. Ahhhhhhhhhhhhhh !!!!

      Oui. Bah merci beaucoup beaucoup !
      0