Correction code VBA, Merci d'avance :)

Résolu/Fermé

SOMUM Messages postés 28 Date d'inscription mardi 15 mars 2016 Statut Membre Dernière intervention 1 août 2016 - Modifié par SOMUM le 15/03/2016 à 12:56
SOMUM Messages postés 28 Date d'inscription mardi 15 mars 2016 Statut Membre Dernière intervention 1 août 2016 - 15 mars 2016 à 15:17

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:

Correction code VBA, Merci d'avance :)
Code ascii - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code deverouillage telephone perdu - Guide
Code blocks - Télécharger - Langages

1 réponse

Réponse 1 / 1

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 742
15 mars 2016 à 13:39

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

SOMUM Messages postés 28 Date d'inscription mardi 15 mars 2016 Statut Membre Dernière intervention 1 août 2016
15 mars 2016 à 15:17

Ahhhhhhhhhhhhhh !!!!

Oui. Bah merci beaucoup beaucoup !

Discussions similaires

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...