Discussion :

[Invité]

Bonjour EvaristeGaloisBis,

J'ai lu cette discussion.

Je sais que ce post est passé dû. Mais je croyais avoir la solution, en fait, à ta ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fsoMonDossier = fso.CreateFolder(stMonChemin)

Il crée mon dossier mais affiche le message d'erreur suivant: Erreur d'exécution '13', incompatibilité de type.
Pourtant j'ai inscrit exactement ce que tu a écrit.
J'ai également "Microsoft Scripting runtime" de cocher.

Alors ?

Linux1155

bonjour a tous,

j'apporte encore une autre solution, juste pour la forme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub tt()
'Il ne faut pas oublier de rajouter la réference
'Miscrosoft Scripting runtime
StMonChemin = "C:\Users\" & UserLogin & "\Desktop\Publipostageessaie"
Dim fso As FileSystemObject
Dim fsoMonDossier As Folder
Dim stMonChemin As String
 
stMonChemin = "c:\temp\monchemin"
 
Set fso = New FileSystemObject
 
If Not fso.FolderExists(stMonChemin) Then
  Set fsoMonDossier = fso.CreateFolder(stMonChemin)
End If
 
End Sub