Créér un répetoire à partir du nom d'un onglet

[pepi]

Bonjour Forum,

un petit problème et je suis bon avec ma petite application.

Quand je commence un projet, je dois créér un répertoire, pour y enrégistrer des documents reçus. Je voudrais, à partir de mon fichier principal créér ce répertoire en cliquant un bouton. Le code doit prendre le nom de la feuille de fichier principal et avec ce nom créér une répertoire sous "c:\Mes documents\devis"

Donc, supposons que dans mon fichier principal, le nom de la feuille est A, le code doit créér un répertoire c:\Mes documents\devis\A

Qu'en pensez vous?

Trouvé des choses sur le forum mais pas tout à fait.

Bonne soiréé,

Pepi


🙂

 

[pepi]

Re : Créér un répetoire à partir du nom d'un onglet

Merci Jmpr, j'ai régardé pais je ne trouve rien de plus ....

je me suis déjà qu'il fallait que je passe par MkDir.

J'ai essayé de fignoler avec un code que j'ai trouvé sur le forum (mes scuses pour celui qui l'a écrit de ne me plus souvenir de son nom: mes hommages!) dans le genre:

Option Explicit

Private Sub Workbook_Open()

Const MY_DOCUMENTS = &H5&

Dim oShell As Object' oFolder, n'est ce pas du Openoffice?😎

Dim oFolder As Object
Dim sDir As String
Dim sPath As String

sDir = "C:\Mes documents\devis" '<-- A Adapter

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(MY_DOCUMENTS)
sPath = oFolder.Self.Path

If Dir(sPath & "\" & sDir, vbDirectory) = "" Then
If MsgBox("Le répertoire '" & sDir & "' n'existe pas, voulez-vous le créer ?", vbQuestion + vbYesNo) = vbYes Then
MkDir sPath & "\" & sDir
End If
End If

Set oFolder = Nothing
Set oShell = Nothing

End Sub


Qui ne marche pas, déjà les termes oFolder etc: n'est ce pas du Openoffice?

Avez vous un idée?

D'avance merci.

pepi😕

 

[pepi]

Re : Créér un répetoire à partir du nom d'un onglet

Merci jmps, b ap également.

entretemps j'ai trouvé la solution en grattant un peu par ici et par là

Dim MyFile As String
Dim sDir As String

MyFile = ActiveSheet.Name

sDir = _
"C:\Mes documents\devis\" & MyFile


ChDir sDir
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=sDir & "\" & MyFile

et ça marche..

Est-ce je peux améliorer des choses?

Bien à vous

Pepi