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 :

Ouverture fichier + enregistrement du chemin


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2015
    Messages : 28
    Par défaut
    Bonjour à tous,

    Je souhaite ouvrir une boite de dialogue ou l'utilisateur pourra sélectionner le fichier qui va lui servir pour la copie des données via la macro.
    Pour ce faire, il faut que j'ouvre donc cette boite de dialogue, que j'enregistre le chemin + le nom du fichier dans une variable que j'utiliserais plus tard

    J'ai trouvé ce code qui pourrait me convenir :
    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
    Sub test2()
    Dim chemin As String
    Dim nomFichier As String
    Dim cheminComplet As String
    Dim dummy As String
    cheminComplet = Application.GetOpenFilename
     
    If cheminComplet <> "faux" Then
        ' 1 l'extension
    dummy = cheminComplet
    While Right(dummy, 1) <> "."
        ext = Right(dummy, 1) & ext
        dummy = Left(dummy, Len(dummy) - 1)
    Wend
    dummy = Left(dummy, Len(dummy) - 1) ' ici on élimine le .
    ' le nom du fichier
    While Right(dummy, 1) <> "\"
        nomFichier = Right(dummy, 1) & nomFichier
        dummy = Left(dummy, Len(dummy) - 1)
    Wend
    ' le chemin
    chemin = dummy
     
     
     
    End If
     
     
    End Sub
    Cependant, il m'enregistre bien le chemin, mais pas le nom du fichier...
    Comme je ne comprend pas du tout la structure du code, quelqu'un peut il m'aider?

    J'appelle ensuite mon chemin pour l'ouverture de mon fichier dans :

    Merci d'avance pour votre aide!

    ou si vous avez en votre possession un autre code, je suis preneuse également

  2. #2
    Membre Expert Avatar de Thautheme
    Homme Profil pro
    salarié
    Inscrit en
    Août 2014
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : salarié

    Informations forums :
    Inscription : Août 2014
    Messages : 1 373
    Par défaut
    Bonjour Cheerleaders, bonjour le forum,

    Peut-être comme ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Macro1()
    Dim NC As String 'déclare la variable NC (Nom et Complet)
    Dim N As String 'déclare la variable N (Nom)
    Dim E As String 'déclare la variable E (Extension)
     
    NC = Application.GetOpenFilename 'définit la variable NC (chemin d'accès plus le nom)
    N = Split(NC, "\")(UBound(Split(NC, "\"))) 'définit la variable N
    E = Split(N, ".")(1) 'définit la variable E
    End Sub

  3. #3
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2015
    Messages : 28
    Par défaut
    Super, merci pour ton aide!

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

Discussions similaires

  1. [XL-2010] ouverture fichier pb de chemin d'accès
    Par Giantrick dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 17/01/2013, 07h50
  2. [PHP-JS] ouverture fichier - chemin UNC
    Par charlene44 dans le forum Langage
    Réponses: 12
    Dernier message: 22/06/2006, 12h14
  3. Ouverture fichier - chemin UNC
    Par charlene44 dans le forum Applets
    Réponses: 17
    Dernier message: 21/06/2006, 13h46
  4. Réponses: 4
    Dernier message: 13/06/2006, 15h11
  5. [Ouverture fichier] Chemin qui bug !
    Par nebule dans le forum Langage
    Réponses: 15
    Dernier message: 18/05/2006, 09h59

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