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 appeler un répertoire en vba?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Août 2013
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Août 2013
    Messages : 12
    Par défaut Comment appeler un répertoire en vba?
    bonjour,

    Je travail sur une automatisation de paramètres et j'aimerais afficher, en cliquant sur un bouton relié à une macro, le contenu d'un fichier (repertoire) et que ceci fonctionne quelque soit l'endroit ou est stocker ce fichier.

    Merci de votre aide,

    Cdlt

  2. #2

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Août 2013
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Août 2013
    Messages : 12
    Par défaut
    dsl mais je ne trouve pas, en fait je souhaite que la racine de mon chemin puisse changer selon le pc qui est utilisé.

  4. #4
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Il faudrait que tu expliques un peu plus...
    ThisWorkbook.Path est le répertoire où est située l'application.

    Si les fichiers ou répertoires que tu recherches peuvent être situés un peu partout, ça ne sera pas possible d'automatiser. C'est souvent le cas en entreprise où certains utilisateurs ont des lettres différentes de mappage...

    S'ils sont toujours situés dans le même répertoire que l'application, alors la ligne ci-dessus devrait pouvoir aider...

  5. #5
    Invité
    Invité(e)
    Par défaut
    http://warin.developpez.com/access/fichiers/#LIII

    Mais c'est une recherche récursive sur l'ensemble du disque alors ça risque d'être long.

  6. #6
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Voici un bout de code qui peut t'interesser
    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    'ouverture d'un fichier par boite FileDialog
    '**********************************************************
        'Declaration d'une variable comme objet FileDialog
        Dim fd As FileDialog
     
        'Creation d'un objet FileDialog comme un File Picker dialog box.
        Set fd = Application.FileDialog(msoFileDialogFilePicker)
     
        'Déclaration d'une variable contenant le "path" de style variant
        Dim vrtSelectedItem As Variant 'obligatoirement de type variant
     
        With fd
     
            'donner le Path initial lors de l'affichage de la boite filedialog.
            'Cela permet d'arriver directement sur le repertoire addéquat
            .InitialFileName = "C:\Mon_rep\"
     
     
            'Utilisation de la méthode show pour afficher le File Picker de la boite de dialogue et
            '   retourne la valeur de l'action de l'utililisateur.
            If .Show = -1 Then
     
                'Step through each string in the FileDialogSelectedItems collection.
                For Each vrtSelectedItem In .SelectedItems
     
                    'vrtSelectedItem est un String contenant le "path"  de chaque item selectionné.
                    'affichage du "PATH et du fichier selectionné" dans une boite message
                    MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                    File_Select = vrtSelectedItem
     
                Next vrtSelectedItem
     
            'Au cas ou l'utilisateur appuis sur Cancel...
            Else
                'Dans ce cas je sors.
                Exit Sub
            End If
        End With
    Cela te permet de pouvoir naviguer facilement

Discussions similaires

  1. Réponses: 3
    Dernier message: 27/11/2007, 07h40
  2. [VBA]Comment appeler la fenetre PRINT?
    Par acheo dans le forum VBA Access
    Réponses: 2
    Dernier message: 13/04/2007, 19h13
  3. Réponses: 1
    Dernier message: 12/04/2007, 11h50
  4. PRocédure stocké, comment appeler avec delphi?
    Par SkyDev dans le forum Bases de données
    Réponses: 3
    Dernier message: 09/04/2004, 18h20
  5. Comment trouver le répertoire démarrage sous 98?
    Par PHILOSOPHE dans le forum API, COM et SDKs
    Réponses: 6
    Dernier message: 18/11/2003, 20h10

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