tester l'existence d'un chemin

[PY]

rebonjour,

je voudrais tester l'existence d'un chemin d'acces mais j'avoue que le problème me dépasse un peu.

voici ce que j'ai commencer a faire:
Private Sub CommandButton7_Click()

Dim cheminfacture As String
Dim chemindevis As String

If TextBox12.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des factures ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
If TextBox13.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des devis ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
cheminfacture = TextBox12.Value
chemindevis = TextBox13.Value
'if cheminfacure existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")
'if chemindevis existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")

End Sub

pouvez-vous m'aider ? merci

 

[Fred]

Slt petit exemple tiré du site disciplus a adapter selon tes besoins ca cherche si le dossier existe si il n'exite pas ca cre le repertoire et enregistre ton fichier actif dedans :

Sub SaveInMyFolder()
Dim x As String, strPath As String
On Error
Resume Next
strPath = "c:\my documents\financial toolkit"
x =
GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If

ActiveWorkbook.SaveAs FileName:=strPath & "\" & ActiveWorkbook.Name
End Sub

 

[STephane]

bonjour


j ai deja poste des soluces ici pour le test de chemin alors je vais poster un truc legere;ent different

c est un bout de code allemand qui cree le repertoire s il n existe pas

Public Function MkDirIfPathNotExist(tPath As String) As Boolean

If Dir(tPath, vbDirectory) = vbNullString Then
MkDirIfPathNotExist = True
Call MkDir(tPath)
End If

End Function


exemple d utilisation
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim tPath as String
Dim tFileName as String

tPath = "C:\TestOrdner\"
tFileName = "TestMappe.xls"

call MkDirIfPathNotExist(tPath)
ThisWorkbook.SaveAs FileName:= tPath & tFileName
End Sub


bye
steph

ps . il vient de www.xakte.de
le site est allemand, les explications en allemand (je les co;prends un peu) ;ais le code est en anglais evidemment