Discussion :

[knkbru]

Bonjour, dans un macro que je construis, je cherche une instruction qui permette d'ouvrir un et un seul fichier Excel parmi plusieurs et en fonction d'un code précis.
Cela serait un peu comme une commande d'ouverture d'une inputbox, dans laquelle, au lieu d'un champ ouvert en écriture libre, il y apparaitrait une liste déroulante prédéfinie de données parmi lesquelles un seul choix par simple clic serait possible.
En l'état actuel de mes connaissances, je ne sais que générer l'inputbox suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub choixProjet()
Dim strNom
 
strNom = InputBox("Inscrivez un code projet en lettres capitales (ex: 2S)")
projet = strNom
 
Workbooks.Open Filename:=ThisWorkbook.Path & "\CR_projet" & projet & ".xls"
 
End Sub

dans laquelle l'intervenant peut inscrire un code, mais pour éviter l'écriture de données erronées, je souhaite que l'intervenant ne puisse choisir qu'une possibilité parmi plusieurs prédéfinies.

Merci de votre aide.

[mercatog]

Soit il faut passer par un userform, soit comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Fichier
Dim wbk As Workbook
 
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
Set wbk = Workbooks.Open(Fichier)
'suite code
End If

[PPz78]

Tu peux aussi utiliser la boite de dialogue Excel si les fichiers sont dans le même répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    ' Ouverture de la fenêtre de dialogue
    With Application.FileDialog(msoFileDialogOpen)
        .InitialView = msoFileDialogViewDetails
        .Title = "Choisir un fichier dans la liste ci dessous"
        .InitialFileName = "\\.psf\PC-MAC\Macro Excel PPT\DS" ' Chemin du répertoire
        .AllowMultiSelect = False
        .Show
 
        ' Chemin du fichier sélectionné
        MsgBox .SelectedItems(1)
    End With

Si la réponse te convient, merci d'ajouter : résolu

A+

PPz