B
bret
Guest
pourquoi me fait il une erreur dans mon code ?
voici le code pour ceux qui ne veulent pas ouvrir le fichier :
Sub CreateAfile()
Dim nomfichier As Variant
nomfichier = Sheets("quest").Select
Range("f14").Select
dodo = Sheets("feuil1").Select
Range("A1").Select
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\ajeter\" & nomfichier, True)
a.WriteLine (dodo)
a.Close
End Sub
l'erreur c'est une boite de dialogue 400 !!??
quelqu'un pourrait me dire comment je dois faire pour enregistrer
dans un fichier txt la cellule A1 de feuil1 sans les tabulations après la ligne A1
merci
j'ai vu plein de tutoriaux sur ce sujet mais je pige rien si on me donnait la solution toute cuite dans le bec ce serait cool !
merci pour votre aide ! mssieur dame !
voici le code pour ceux qui ne veulent pas ouvrir le fichier :
Sub CreateAfile()
Dim nomfichier As Variant
nomfichier = Sheets("quest").Select
Range("f14").Select
dodo = Sheets("feuil1").Select
Range("A1").Select
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\ajeter\" & nomfichier, True)
a.WriteLine (dodo)
a.Close
End Sub
l'erreur c'est une boite de dialogue 400 !!??
quelqu'un pourrait me dire comment je dois faire pour enregistrer
dans un fichier txt la cellule A1 de feuil1 sans les tabulations après la ligne A1
merci
j'ai vu plein de tutoriaux sur ce sujet mais je pige rien si on me donnait la solution toute cuite dans le bec ce serait cool !
merci pour votre aide ! mssieur dame !