Bonjour,

Mon problème est très simple, très souvent documenté et pourtant.... je ne trouve pas pourquoi mon petit programme refuse de fonctionner:
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
18
19
 
Sub MaProcedure()
Dim STRING_PAREN As String
Dim DOSSIER As String
Dim MonFichier As String
Dim f As Integer
 
STRING_PAREN = "1*2*A*C"
 
'Chemin et nom du fichier
DOSSIER = ThisWorkbook.Path
MonFichier = DOSSIER & "\" & "PAREN_"
MonFichier = MonFichier & Format(Date, "yyyymmdd") & ".txt"
 
'sauvegarde
Open MonFichier For Output As #f
Print #f, STRING_PAREN
Close #f
End Sub
L'exécution s'arrête systématiquement sur l'instruction Open.... For Output.. avec le message d'erreur : Erreur d'exécution N° 52 - Nom ou numéro de fichier incorrect


Si quelqu'un a une suggestion (moi je ne sais plus quoi inventer )

Merci d'avance pour toute aide,
Mike