Création dossier sur windows à l'aide d'une macro

[matthieu2701]

Bonjour,

J'ai fais un fichier excel qui me permet de générer automatiquement un échéancier de paiement en fonction des données remplis.

Je souhaiterais qu'en cliquant sur le bouton "Générer dossier client" qu'un dossier soit créé sous windows sous la forme Nom Prénom IGOR. Avec les éléments de mon fichier cela donnerais MARTIN Michel 100452.

En espérant avoir été assez clair.

Merci par avance.

 

[JCGL]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Dossier()
MkDir ThisWorkbook.Path & "\" & Feuil1.Cells(5, 1) & " " & Feuil1.Cells(5, 3)
End Sub

A+ à tous

 

[MJ13]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour Matthieu, Jean-Claude

En général, j'utilise ce code:

Code vba:
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Private Sub CreationDossier(sNomRep As String)
'ChDrive "D"
SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub
Private Sub Test()
Dim Rep As String
Rep = "C:\repA\repB\repC\RepD"
CreationDossier Rep
End Sub

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour Matthieu, Jean-Claude

En général, j'utilise ce code:

Code vba:
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Private Sub CreationDossier(sNomRep As String)
'ChDrive "D"
SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub
Private Sub Test()
Dim Rep As String
Rep = "C:\repA\repB\repC\RepD"
CreationDossier Rep
End Sub

Le dossier créer va prendre quel nom ?

 

[MJ13]

Re : Création dossier sur windows à l'aide d'une macro

Re

Le dossier créer va prendre quel nom ?

Euh, il suffit de tester (par contre tu peux virer le private de la sub test (c'est issu d'une autre appli).

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

@JCGL

La il me cré un dossier avec le nom "Fichiers\Martin Michel 100452". Je souhaite que "Martin Michel 100452".

Est-ce que tu peux récupérer les données du nom dans la feuille 2 B2 et pour le numéro IGOR feuille 2 B1 ?

Merci

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

Je dois virer quelle partie ?

 

[JCGL]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,
Salut Michel,

Enlève ThisWorkBook.Path et remplace par le chemin souhaité

A+ à tous

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,
Salut Michel,

Enlève ThisWorkBook.Path et remplace par le chemin souhaité

A+ à tous

Mon chemin est MaTT'S HD:User:Matthieu😀ownload

Le dossier est créé mais avec DownloadMartin Michel 100452

 

[JCGL]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,

Le chemin présenté n'est pas une adresse conventionnelle...

Option Explicit
Sub Dossier()
MkDir "MaTTS HD\Matthieu\Download\" & Feuil1.Cells(5, 1) & " " & Feuil1.Cells(5, 3)
End Sub

A+ à tous

 

[MJ13]

Re : Création dossier sur windows à l'aide d'une macro

Re

C'est pas très clair tout ça 😕.

Mon chemin est MaTT'S HD:User:Matthieuownload

En général, on a par exemple une lettre pour le lecteur comme "C:\Temp". Sinon, il faut préciser.

Le chemin présenté n'est pas une adresse conventionnelle...

+1 🙂

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,

Le chemin présenté n'est pas une adresse conventionnelle...

Option Explicit
Sub Dossier()
MkDir "MaTTS HD\Matthieu\Download\" & Feuil1.Cells(5, 1) & " " & Feuil1.Cells(5, 3)
End Sub

A+ à tous

Si c'est bon pour moi car je suis sou MAC. Cela fonctionne mais je souhaite pas le Download dans le nom du dossier

 

[MJ13]

Re : Création dossier sur windows à l'aide d'une macro

Re

je suis sou MAC

Pense à le signaler dans tes options!

 

[matthieu2701]

Re : Création dossier sur windows à l'aide d'une macro

Re



Pense à le signaler dans tes options!

Désolé. Le chemin que j'ai mis fonctionne mais je souhaite pas le Download dans le nom du fichier

 

[JCGL]

Re : Création dossier sur windows à l'aide d'une macro

Bonjour à tous,

Avec un peu de réflexion...

Option ExplicitSub Dossier()
MkDir "MaTTS HD\Matthieu\" & Feuil1.Cells(5, 1) & " " & Feuil1.Cells(5, 3)
End Sub

A+ à tous