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 :

Récupérer une partie d'une adresse (VBA)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    85
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Avril 2007
    Messages : 85
    Par défaut Récupérer une partie d'une adresse (VBA)
    Bonjour tout le monde.

    Je dois récupérer la fin d'un chaine de caractère, mais je ne sais plus comment faire.

    La chaine de caractère est une adresse du type :
    C:/blabla/blabla/.../blablablo/BLIBLI.txt

    Je souhaiterais ne récupérer que le "BLIBLI.txt", donc la droite du dernier "/"

    Sachant que BLIBLI.txt est d'une longueur variable (BLIBLIBLI.txt, BLI.txt...)

    J'ai beau essayer avec Left, Right et LEN sans succés je ne retrouve plus la bonne organisation pour que ca marche.

    Merci de votre aide

    Fred

  2. #2
    Membre éprouvé
    Inscrit en
    Janvier 2007
    Messages
    132
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Janvier 2007
    Messages : 132
    Par défaut
    Bonjour
    Ce que je fais n'est peut être pas très académique mais ça marche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Dim Resultat as string
    Do while right(chaine,1)<>"/"
       Resultat =right(chaine,1)+Resultat
       chaine=left(chaine, len(chaine)-1)
    loop
    Slts

  3. #3
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Vu ton explication je ne vois qu'une solution.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    dim a$, i as integer, B$
    a$="C:/blabla/blabla/.../blablablo/BLIBLI.txt"
     
    for i=len(a$) to 1 step -1
         if mid(a$,i,1)="\" then exit for
    next i
    B$ = mid(a$,i + 1)
    A+

  4. #4
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    85
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Avril 2007
    Messages : 85
    Par défaut
    Ok superbe

    Je vous remerci tt les deux.

    J'ai finalement utilisé la seconde version.

    Juste une question complémentaire :
    Pquoi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dim a$, i as integer, B$
    et pas :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dim a$, i, B$ as integer
    Merci bcp

    fred

  5. #5
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    S'il s'agit de l'adresse d'un fichier existant sur ton PC tu peux aussi écrire directement


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox Dir("C:\dossier\...\nom fichier.txt")

    michel

  6. #6
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Tu peux aussi utiliser split qui permet le découpage d'une chaine de caractères contenant un séparateur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Dim str() As String
     
    str = Split("C:/blabla/blabla/.../blablablo/BLIBLI.txt", "/")
    MsgBox str(UBound(str))

  7. #7
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Citation Envoyé par jackfred
    Ok superbe

    Je vous remerci tt les deux.

    J'ai finalement utilisé la seconde version.

    Juste une question complémentaire :
    Pquoi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dim a$, i as integer, B$
    et pas :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dim a$, i, B$ as integer
    Merci bcp

    fred
    Dim a$ est une variable String ($)
    et chaques variables doit être attribuée séparément..
    dim i,f,b AS Integrer donne..
    i = variant : f = variant : et b = integer
    il faut mettre : dim i AS Integrer , f AS Integrer , f AS Integrer
    A+

Discussions similaires

  1. [Débutant] Récupérer les coordonnées d'une partie d'une figure
    Par LeTube dans le forum MATLAB
    Réponses: 0
    Dernier message: 04/06/2014, 14h41
  2. [XL-2007] problème de codage en vba ("copie d'une partie d'une cellule dans une cellule vide")
    Par skipeemed dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 26/10/2010, 18h01
  3. Sélectionner seulement une partie d'une valeur d'une cellule
    Par ArthurO0O dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 20/08/2007, 12h05
  4. masquer une partie d'une vidéo par une banniere
    Par lezabour dans le forum Général Conception Web
    Réponses: 1
    Dernier message: 16/10/2006, 17h47
  5. copier une partie d'une image vers une autre
    Par gregcat dans le forum Langage
    Réponses: 1
    Dernier message: 14/04/2006, 14h39

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