Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA fenêtre de dialogue pour sélectionné le fichier à ouvrire

  • Initiateur de la discussion Initiateur de la discussion Niquido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Niquido

XLDnaute Junior
Bonjour,

Je crée des fichier avec toujours le même nom de base mais avec à la fin soit la date soit la semaine, et ce dans des dossier différents.

Sur d'autres fichiers j'ai besoin de venir ouvrir ses fichiers les un après les autres.

Je voudrai donc que ma macro me demande quel fichier ouvrir, mais je veux qu'elle m'amène déjà dans le répertoire où je vais trouver le fichier en question.

Je ne sais pas comment faire cela.

J'ai chercher sur le net mais je ne trouve pas exactement ce que je veux, ou alors je ne cherche pas comme il faut.

Par avance merci
 
Re : VBA fenêtre de dialogue pour sélectionné le fichier à ouvrire

ChDir "adresse du répertoire"
GetOpenFilename ...

je suis désolé mais je n'utilise jamais cette fonction, une erreur apparait
 
Re : VBA fenêtre de dialogue pour sélectionné le fichier à ouvrire

bonsoir,

une piste:
'Permet de changer le répertoire courant
ChDir "c:\python33"
'Permet d'afficher la boite de dialogue Ouvrir
Application.Dialogs(xlDialogOpen).Show

Caillou
 
Re : VBA fenêtre de dialogue pour sélectionné le fichier à ouvrire

Attention ChDir change seulement le dossier courant du lecteur spécifié. Si le lecteur courant n'est plus le C suite à une ouverture manuelle d'un fichier sur un autre support, ça ne change pas le dossier courant puisque celui ci est un dossier d'un autre lecteur. En ce qui me concerne ça ne m'a jamais servi à rien, mais c'est comme ça: il faut aussi faire un ChDrive pour être sûr de changer le dossier courant.
GetOpenFileName est une méthode de l'objet Application qui renvoie une référence de fichier sans l'ouvrir.
 
Re : VBA fenêtre de dialogue pour sélectionné le fichier à ouvrire

Bonjour Niquido, Caillou, BonjourDranreb
Une autre boite:
VB:
Private Sub CommandButton2_Click()
'Ouverture de l'explorateur Windows et récupération du chemin d'accès
Dim Fichier$, Niveau$, sPath$, Chemin$
'Crée une boite de dialogue de sélection de fichiers :
With Application.FileDialog(msoFileDialogFilePicker)
    'Selection d'un seul fichier
    .AllowMultiSelect = False
    'Repertoir de départ
    .InitialFileName = "C:\Temp\"
    '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
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
37
Affichages
727
Réponses
4
Affichages
247
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…