VBA Création dossier + enregistrement fichier

Bonjour à tous et à toutes

Je suis confronté à un soucis sur Excel avec une maccro.
J'ai cherché et cherché, j'ai vu le sujet traité mainte fois mais jamais je n'ai réussi à adapter un code trouvé pour le faire fonctionné mon usage.

J'ai un fichier excel avec 2 onglets.
sur l'onglet 1 "Devis" je voudrais qu'en cliquant sur un bouton et en activant la maccro :

- Il se créer un dossier dans un répertoire défini. Le nom du dossier à creer prend le nom de la cellule N8
Exemple :
Le repertoire est : C:\Users\Dell\Desktop\RFC\01 - DEVIS
Si le nom de la cellule N8 est "Devis Mr Machin" alors le dossier à creer sera "Devis Mr Machin" et le repertoire sera C:\Users\Dell\Desktop\RFC\01 - DEVIS\Devis Mr Machin

- Une fois le dossier crée, le fichier excel s'enregistre dans le dossier (en reprenant l'exemple, le fichier s'enregistre dans le dossier C:\Users\Dell\Desktop\RFC\01 - DEVIS\Devis Mr Machin et prend le nom de la cellule N8.xls

Le code que j'ai fait "fonctionne"
Seulement, le dossier se créer bien, mais le fichier s'enregristre dans le repertoire de base (C:\Users\Dell\Desktop\RFC\01 - DEVIS\) et non dans le dossier crée (Devis Mr Machin)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Nouveau_dossier_test() Const Repert As String = "C:\Users\Dell\Desktop\RFC\01 - DEVIS\"   Dim Sousrep, sPath Dim chemin As String   Sousrep = Range("N8").Text sPath = Repert & Sousrep   If Len(Dir(sPath, vbDirectory)) = 0 Then MkDir sPath End If     ActiveWorkbook.SaveCopyAs sPath & Range("N8").Value & ".xls" End Sub

---

Merci beaucoup pour votre aide ! :D
Très bonne soirée

Bonsoir,

il manque un "\"
Je pense aussi qu'il vaudrait mieux enregistrer en xlsx ou xlsm

Code:

---

ActiveWorkbook.SaveCopyAs sPath & "\" & Range("N8").Value & ".xls"

---

Bonjour tototiti2008,

Merci pour votre reponse,
j'ai modifié le code en ajoutant le "" et modifiant en .xlsx

j'ai maintenant un message d'erreur :

erreur d'execution 1004
le nom du fichier ou le chemin d'accès n'existe pas


le dossier se créer bien pourtant lui

:?

Bonjour,

Que contient N8 ?
Que vaut sPath ?
Si vous souhaitez pouvoir comprendre ce qui cloche, ce sont des informations à vérifier

Re,

Dans la cellule N8 je vais chercher le texte de la cellule K6 et C19 n8 =K6 & " " & C19
K6 etant le numero de devis
et C19 l'intitulé



sPath est la "combinaison" de Repert & Sousrep
Repert étant l'adresse du dossier dans lequel je veux que le nouveau dossier soit créer
Sousrep étant le nom du dossier à créer dans Repert

merci :)

Re,

Est-ce que ça signifie que ça vous a permis de trouver l'erreur ?

Re,

Non pas trouvé

hormis que le dossier à créer et le fichier à enregistrer dedans ai le même nom (avec l'extension .xlsx pour fichier) je ne vois pas :S

essayez d'ajouter une ligne MsgBox

Code:

---

Msgbox sPath & "\" & Range("N8").Value & ".xlsx"

---

avant d'enregistrer
Range sans précision va lire dans la feuille active, est-ce que c'est la bonne feuille qui est activée ?

Hello,

Je propose une approche moderne via la librairie FSO, ce qui t'éviteras les pieges classiques des delimiteurs de dossier / fichier dans un chemin,
FSO les prend en charge pour toi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub Nouveau_dossier_test() Const Repert As String = "C:\Users\Dell\Desktop\RFC\01 - DEVIS"   Dim Fso As Object '// Scripting.FileSystemObject Set Fso = CreateObject("Scripting.FileSystemObject")   Dim Sousrep As String Sousrep = Range("N8").Text   Dim Path As String Path = Fso.BuildPath(Repert, Sousrep)   If Not (Fso.FolderExists(Path)) Then Fso.CreateFolder Path End If   ThisWorkbook.SaveCopyAs Fso.BuildPath(Path, Range("N8").Value & ".xlsx") End Sub

---

Notes supplémentaires:
- Pense a typer correctement toutes tes variables.
- La notation hongroise est à bannir.
- Utilise des références explicites plutôt que des références dépendantes du contexte (tout ce qui est Active...).