je voudrais créer un dossier et y enregistrer un fichier automatiquement à partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier crée
voici une partie de ce code :
'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer
sDossier = "C:\Users\Moi\Documents\" & Textbox2.Value & "-" & Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer