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 :

Ouvrir le bon fichier (verifier une partie du nom) [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Invité
    Invité(e)
    Par défaut Ouvrir le bon fichier (verifier une partie du nom)
    Bonjour,

    je sauvegarde des BD au format cvs, le nom des fichiers sont constitués d'un texte suivi de la date, heure et minute, nom fichier avec code ci-dessous.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    NomFichier = "Stock du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " à " _
    & Format(Time, "hh") & "h" & Format(Time, "mm") & "mm" & ".csv"
    Pour mettre à jour ou revenir à une date ultérieure, j'ai le code ci-dessous qui me place directement dans le bon dossier où se trouvent les archives.
    Ce dossier contient plusieurs archives par catégories (stock, commande, etc... suivi de la date).
    Je voudrais vérifier que le fichier sélectionné contient le mot "stock", la procédure ce poursuit sinon un message averti que ce n'est pas le bon fichier.
    Le code ci-dessous n'est pas de moi, j'ai juste adapter le nom de mon dossier
    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
    Sub MàJ_BD()
    'Ouverture de l'explorateur Windows et récupération du chemin d'accès
    Dim Fichier$, Niveau$, sPath$, Chemin$, Rep$
    'Crée une boite de dialogue de sélection de fichiers :
    With Application.FileDialog(msoFileDialogFilePicker)
        'Selection d'un seul fichier
       .AllowMultiSelect = False
     
    Rep = Application.ThisWorkbook.Path
        'Repertoir de départ
       .InitialFileName = Rep & "\Archive des BD"
        'Affiche la boite
       .Show
        'si il y a une selection (donc si l'utilisateur n'annule pas la boite)
       If .SelectedItems.Count Then
            'Récupération du chemin complet selectionné
           sPath = .SelectedItems(1)
            'Trouver le niveau de sous dossier ou se trouve le fichier
           Niveau = (UBound(Split(sPath, "\")))
            'Récupérer la chaine de caractère (nom du fichier) du niveau trouvé
           Fichier = Split(sPath, "\")(Niveau)
            'Récupérer le chemin du dossier
           Chemin = Left(sPath, Len(sPath) - Len(Fichier))
        End If
    End With
    End Sub
    En vous remerciant par avance.

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour,

    voir la fonction Instr... ou Left ...

  3. #3
    Invité
    Invité(e)
    Par défaut
    merci beaucoup, je ne maitrise pas , j'espère m'en sortir et surtout trouver le bon exemple dans l'aide.

    Bon dimanche.

  4. #4
    Invité
    Invité(e)
    Par défaut
    Merci pour la mise sur la voie.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Left(Fichier, 10) = "Stock du " Then
    MsgBox "fichier ok"
    Else
    MsgBox "fichier pas bon"
    End If

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

Discussions similaires

  1. Copier un fichier dont une partie du nom change tous les jours
    Par Hazard17 dans le forum Général VBA
    Réponses: 13
    Dernier message: 22/01/2015, 08h58
  2. [XL-2003] Comment appeler et ouvrir un fichier en ne connaisant qu'une partie du nom ?
    Par MichaSarah dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 18/09/2010, 09h33
  3. ouvrir un fichier word dont on ne connait qu'une partie du nom
    Par renaud7 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 24/11/2009, 11h41
  4. Réponses: 1
    Dernier message: 15/05/2009, 09h31
  5. Réponses: 2
    Dernier message: 18/01/2007, 21h05

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