none
Envoyer valeurs d'un code vba2010.net dans un tableau excel resultat RRS feed

  • Question

  • Bonjour,

    Je souhaite crée un fichier Bz.txt, j'ai donc utilisé la commande suivante, seulement les ordianteurs que j'utilise sont sur réseau du coup je ne peut rien stocké dans  l'emplacement C:,

    Dim sw AsNewStreamWriter("C:\Bz.txt")

    je souhaiterai donc le sauvegarder dans mes documents qui suivent le chemin suivant:c:\Utilisateurs\A-05\Mes_Documents\Bz.txt

    Seulement lorsque je rentre ceci dans le code j'ai un message d'erreur, ce message apparait t'il à cause du tiret dans A-05 ou d'une chose mal écrite.

    Si vous avez une idée, elle est la bienvenue.

    Merci

    Cordialement,

    vendredi 28 juin 2013 14:41

Réponses

  • Bonjour stpab,

    La chose n'est pas mal écrite en soi, il n'y a pas de caractères interdits. Mais pour que ça fonctionne, il faut que le répertoire existe. D'une part, par défaut, il n'y a pas de répertoire 'Utilisateurs', c'est juste un affichage de l'explorateur dans la langue locale (depui Vista, W7, W8), en réalité c'est 'Users'.

    Ensuite, si tu désires écrire dans le répertoire du compte, il est peu probable qu'il y ait un répertoire 'A-05', à moins de l'avoir crée au préalable. Le mieux est peut être d'utiliser le nom du compte ?

    Enfin à l'image de 'Utilisateurs' et 'Users', il n'y a pas de répertoire 'Mes Documents' mais 'Documents'.

    Tu peux utiliser les fonctions prévues à cet effet, par exemple :

    Dim fName As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Bz.txt"
    MessageBox.Show(fName)

    affiche chez moi :

        D:\Users\Jacques\Documents\Bz.txt

    Tu peux créer ce fichier directement avec :

    Dim sw As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Bz.txt")

    NB : Il est toujours utile de communiquer de manière exacte l'erreur qui se produit, ça peut donner une piste. En l’occurrence, ici, s'agit il de System.IO.DirectoryNotFoundException ?


    Cordialement, Jacques

    vendredi 28 juin 2013 15:56

Toutes les réponses