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 asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 2 738
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

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

sertissage des cables rj45

Méthode find dans VBA - Recherche de données sous Excel

Réinitialisation d'un téléphone mobile chinois avec touche

appliquer une pause dans une macro vba excel