creer fichier text probleme

Question

Bonjours à tous,

Voila j'ai un tt petit problème que je ne comprend pas. Lorsque j'utilise:

Private Sub Command1_Click()
Open "C:\Mon.txt" For Output As #fichier
Print #fichier, "blabla"
Close #fichier
End Sub

Cela fonctionne, mais quand jutilise:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim DriveLetter As String

Private Sub Command1_Click()
Open DriveLetter & "Mon.txt" For Output As #fichier
Print #fichier, "blabla"
Close #fichier
End Sub


Cela ne fonctionne pas j'ai un message d'erreur:
Erreur d'exécution '52'
nom ou num&ro incorrect

Pourtant DriverLetter fonctionne très bien et si je fait msgbox DriveLetter il me dit: C:\
Donc si quelqu’un passé par ici et pouvais m’éclairer je lui en serai très reconnaissant.




D'avance merci.

mortalino · Answer

Avant tes Open :

Fichier = freeFile

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mortalino · Answer

Ah et GetDriveType te reourne un type Long..

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_Titant · Answer

fichier = FreeFile
 je l'ai pas mit ds l'exemple mais je l'avais mit

mortalino · Answer

que veux-tu avec ton GetDriveType ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_Titant · Answer

Le vrai pouvoir ne se donne pas, il se prends !

mortalino · Answer

"C'est pas faux !" comme dirait Perceval

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_Titant · Answer

tin le forum deconne jarrive pas a poster

mortalino · Answer

Vide le cache de ton navigateur (menu Outils)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_Titant · Answer

ha voila je te disai dsl pour le flop.

je te pots ma source elle est tres petite:

Private Sub Form_Load()
For Y = 1 To 26
If GetDriveType(Chr(64 + Y) & ":") = 3 Then
DriveLetter = (Chr(64 + Y) & ":")
GoTo dl:
End If
Next Y
dl:
End Sub

Je veux recuperer le lecteur par defautl

cs_Titant · Answer

en faite je crois que tu avais raison j'avais simplement oublier le:
fichier = FreeFile
merci pour ton aide

mortalino · Answer

GetDriveType ne sert qu'à récupérer le type de ton lecteur (cd rom, disque fixe, amovible, etc.)

C'est pas GetCurrentDirectory que tu cherches, par hasard ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

PCPT · Answer

salut,

et bien sûr être certain de l'existance du fichier ^^

ps (sans rapport) :
Q : [doc/faq.aspx#cs_postempty Parfois lorsque je réponds sur 
    le forum, ma réponse envoyée est vide, comment faire]

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Creer fichier text probleme

12 réponses

Votre réponse

Discussions similaires