XL 2010 If sans Then dans Code (RESOLU)

[misteryann]

Bonjour le forum et bonne année à toutes et tous.

j'ai un code me permettant de créer un (des) dossiers.
Mais j'ai une erreur du genre "if sans then" alors que "then" est présent.
Le code est inspiré de celui-ci:

Sub DossierCreeSiExistePas()
Dim GestionFichier As New Scripting.FileSystemObject
If GestionFichier.FolderExists("F:\Atelier\Australie") = False Then
GestionFichier.CreateFolder "F:\Atelier\Australie"
End If
Set GestionFichier = Nothing
End Sub

(Microsoft Scripting runtime est "actif")

merci pour votre aide
Cordialement

 

[Dranreb]

Bonsoir.
Chez moi il trouve seulement deux erreurs de syntaxe.
Essayez comme ça :

Private Sub CommandButton8_Click()
Dim FSO As New FileSystemObject, NomDoss As String
NomDoss = Me.TextBox1.Text & "\Devis\" & Me.TextBox2.Text
If Not FSO.FolderExists(NomDoss) Then FSO.CreateFolder NomDoss
NomDoss = Me.TextBox1.Text & "\Commande\" & Me.TextBox2.Text
If Not FSO.FolderExists(NomDoss) Then FSO.CreateFolder NomDoss
End Sub

 

[misteryann]

Bonsoir Dranreb
J'ai une erreur 76 avec chemin d'accès introuvable

Cordialement

 

[Dranreb]

Décomposez: créez chaque dossier du chemin séparément s'il n'existe pas.
Je suppose qu'il ne peut créer qu'un dernier nouveau sous dossier à un chemin existant.

 

[misteryann]

Bonsoir.
Au final c'est ce que j'ai fait. C'est pas beau mais ça fonctionne

Application.DisplayAlerts = False
Rep = TextBox15.Value
SRep = Rep & "\Devis " & Prise_en_main.ComboBox1.Text & "\"
SRep2 = Rep & "\Bons de Commande " & Prise_en_main.ComboBox1.Text & "\"
SRep3 = Rep & "\Demandes de Devis " & Prise_en_main.ComboBox1.Text & "\"
SRep4 = Rep & "\Demandes d'Intervention " & Prise_en_main.ComboBox1.Text & "\"
SRep5 = Rep & "\Fiches Produits " & Prise_en_main.ComboBox1.Text & "\"
SRep6 = Rep & "\Bons de Travaux " & Prise_en_main.ComboBox1.Text & "\"
SRep7 = Rep & "\Proforma " & Prise_en_main.ComboBox1.Text & "\"
SRep8 = Rep & "\Annexes SGP " & Prise_en_main.ComboBox1.Text & "\"
SRep9 = Rep & "\Édition " & Prise_en_main.ComboBox1.Text & "\"
nom = SRep & TextBox16.Value
Nom2 = SRep2 & TextBox16.Value
Nom3 = SRep3 & TextBox16.Value
Nom4 = SRep4 & TextBox16.Value
Nom5 = SRep5 & TextBox16.Value
Nom6 = SRep6 & TextBox16.Value
Nom7 = SRep7 & TextBox16.Value
Nom8 = SRep8 & TextBox16.Value
Nom9 = SRep9 & TextBox16.Value
MkDir SRep
MkDir SRep2
MkDir SRep3
MkDir SRep4
MkDir SRep5
MkDir SRep6
MkDir SRep7
MkDir SRep8
MkDir SRep9
MkDir nom
MkDir Nom2
MkDir Nom3
MkDir Nom4
MkDir Nom5
MkDir Nom6
MkDir Nom7
MkDir Nom8
MkDir Nom9

Cordialement