IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment vérifier si un folder existe et le créer si pas trouvé ?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut Comment vérifier si un folder existe et le créer si pas trouvé ?
    Je m'explique :

    Mon code nécessite l'usage d'un fichier de travail temporaire a créer dans un répertoire temporaire mais dont l'existence n'est pas certaine .

    Quel est le code pour tester ce répertoire (qui est peut-être vide) ? Dir ? et puis pour créer ?

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Bonjour,


    Dir (avec vbDirectory) pour la 1ère partie
    MKDir est ce que tu cherches...pour la création

    Mais je donnerais de loin la préférence (en lieu et place de tester et créer) à la seule fonction SHCreateDirectoryEx de la librairie "shell32" de l'Api de Windows...

    Elle fait tout, y compris la création (s'ils n'existent pas) des dossiers "intermédiaires"...

    J'en ai montré deux exemples il n'y a pas bien longtemps.

  3. #3
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut

    J'en ai montré deux exemples il n'y a pas bien longtemps.
    Je ne trouve pas. Tu peux me donner le lien d'un post. Merci.

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Bonsoir ucfoutu,
    @ Godzestla
    J'ajoute juste que si ton répertoire est à créer dans un volume différent du volume actif (E:\) par exemple, tu dois utiliser
    avant d'exécuter le MKdir

    pour répondre à ta dernière question, la solution d'ucfoutu me semble la plus confortable... mais pendant que j'y suis
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub test
    Dim Chemin as strig
    Chemin = "C:\LeRepComplet\"
    On Error Resume Next
        ChDrive "E" 'si nécessaire
        ChDir Chemin
        MkDir Chemin
    On Error GoTo 0
    End Sub
    Ne nécessite pas d'API

    (je croyais que tu n'aimais pas utiliser les API uchs... )

  5. #5
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Merci à tous.

    J'ai fait comme ouskelnor car je ne maitrise pas SHCreateDirectoryEx.

  6. #6
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Bonsoir ousk,

    Comment çà, je n'aime pas les fonctions de l'Api de Windows ?
    Je les utilise de préférence chaque fois que je le peux (je me libère ainsi de beaucoup de choses !)... et tu ne me verras par exemple jamais utiliser dans mes applis certains composants, parmi lesquels cet "endormi" de Commondialog ... (parmi d'autres ...)


    Bon... ===>> Godzestla

    T'as mal cherché... ===>>>

    lis donc cette discussion, trouvée avec ucfoutu (forumeur) et SHCreateDirectoryEx (mot clef) !!!

    http://www.developpez.net/forums/sho...ateDirectoryEx

  7. #7
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bon... ===>> Godzestla

    T'as mal cherché... ===>>>
    C'est a dire que j'ai lu TOUS tes posts jusque début avril , vu que tu avais dit
    J'en ai montré deux exemples il n'y a pas bien longtemps.
    J'imagine que notre notion du temps est différente.

    Mais merci. Par égard à ton effort pour ma pauvre ame, j'ai pris ta solution qui est je l'avoue, vachement simple.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 07/04/2014, 16h44
  2. [AC-97] Comment vérifier si une table existe? (fn OpenSchema)
    Par BornToBe dans le forum VBA Access
    Réponses: 4
    Dernier message: 02/04/2012, 09h57
  3. Comment vérifier qu'un chemin existe
    Par Claude_Azoulai dans le forum VB.NET
    Réponses: 2
    Dernier message: 04/12/2011, 17h54
  4. Réponses: 2
    Dernier message: 04/06/2010, 21h53
  5. Réponses: 1
    Dernier message: 18/02/2007, 20h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo