Discussion :

[mikeduff]

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

[Thumb down]

bonjour,

Code :

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

1
2
3
4
5
'sauvegarde
f = FreeFile
Open MonFichier For Output As #f
Print #f, STRING_PAREN
Close #f

[mikeduff]

Waw ! Grand merci pour cette réponse rapide et efficace !

Je me demande juste pourquoi je n'ai aperçu cette instruction dans aucun des articles que j'ai pu lire (beaucoup !).

Je ne comprends pas très bien quel est son rôle, mais bon, ça marche !
Je vais mieux dormir, merci !

Mike

[Thumb down]

F est un integer par défaut sa valeur est 0 hors le Nº de fichier est au minimum égale à 1.

Freefile retourne la première valeurs de fichier disponibles pour l'application, ainsi f va prendre la valeur de 1 pour le premier fichier texte ouvert 2 pour le deuxième et ainsi de suite.

En fait on ouvre un espace du disque dur [handler] et on lui attribue un nom virtuel c:\Myrep\MyFichier.txt

Freefile retourne le dernier [handler] disponible

J'ai utilise freefile pour respecter le bon usage mais je pouvais écrire directement f=1

[mikeduff]

Grand merci pour les explications. J'ai appris quelque chose (jamais trop tard, hé !)