impossible d'utiliser la fonction mkdir

[fbertran]

Bonjour,

j'essaie d'utiliser la fonction mkdir pour créer un dossier, mais impossible, ile me ressort toujours l'erreur 75 : erreur d'acces chemin/fichier.

mon code est très simple

sub makedir ()
mkdir "scen_hebdo"
end sub

PS: il n'y a pas de conflit avec un dossier existant portant le même nom

merci

Cordialement

 

[gilbert_RGI]

Re : impossible d'utiliser la fonction mkdir

Bonjour

pas de problème avec cette macro

elle crée bien un dossier

attention au path pour le retrouver

l'erreur 75 vient parce que le dossier est déjà créé

 

[fbertran]

Re : impossible d'utiliser la fonction mkdir

Non justement le dossier n'existe pas.

Je viens de créer cette macro sur un ordi win 7 avec office 2007, et l'extension du fichier est xlsm. Si j'enregistre le fichier en xls et que je le lance sous un ordi win xp avec office 2003, cela marche.

d'ou cela peut il venir?

Cordialement

 

[fbertran]

Re : impossible d'utiliser la fonction mkdir

Non en faite c'est une erreur ca marche pas avec un fichier xls sous win xp et office 2003, je retrouve la même erreur

 

[gilbert_RGI]

Re : impossible d'utiliser la fonction mkdir

possibilité de faire ceci

Sub makedir()
    Répertoire = "C:\scen_hebdo"
    If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
    MsgBox Répertoire
End Sub

🙄

 

[fbertran]

Re : impossible d'utiliser la fonction mkdir

Non en faite cela ne marche pas avec un fichier xls sur un ordinateur windows XP avec office 2003. Je retrouve la même erreur

 

[gilbert_RGI]

Re : impossible d'utiliser la fonction mkdir

bizzare la macro telle quelle chez moi fonctionne

elle me met le dossier dans le path du thisworkbook
le fichier source est-il enregistré ?

utiliser ce code pour lire le path

Sub makedir()
    Répertoire = ThisWorkbook.Path & "\" & "scen_hebdo"
    If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
    MsgBox Répertoire
End Sub

 

[fbertran]

Re : impossible d'utiliser la fonction mkdir

Voila, la blague!!!!

J'ai copié mon fichier et je ne l'ai pas enregistré, une fois enregistré sous, cela marche nickel.

Merci beaucoup!

 

[kiki29]

Re : impossible d'utiliser la fonction mkdir

Salut, juste pour information, pour la création de dossier ( à partir de Windows 2000 je crois )

Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long


' Pour valeur retournée dans Rep
'	Voir	http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
'	et	http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx

Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

Sub Test()
Dim strDossier As String
    strDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier strDossier
End Sub

 

[gilbert_RGI]

Re : impossible d'utiliser la fonction mkdir

Salut, juste pour information, pour la création de dossier ( à partir de Windows 2000 je crois )

Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
 
' Pour valeur retournée dans Rep
'    Voir    http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
'    et    http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
 
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub
 
Sub Test()
Dim strDossier As String
    strDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier strDossier
End Sub

ce code est en API 🙄