Nom de classeur variable Fermé

Question

Bonjour,

Je  suis en stage dans une entreprise et doit créer un programme pour récupérer des informations. 

J'ai créé un nouveau classeur qui recevra les données du classeur source, à l'aide d'un bouton j'arrive à récupérer les informations, jusque là tout va bien. 
Mon problème est que le classeur source n'est pas toujours le même. J'ai donc créer un bouton pour ouvrir le classeur que je désignerai comme source. Mon problème est le suivant comment définir ce classeur? 

 Voici ma macro, j'aimerai changer la première ligne pour que le nom du fichier soit celui du classeur que j'ai précedemment ouvert. 

Sub Macro1()

'
' Macro1 Macro
'

'
    Windows("essai macro.xlsm").Activate
    Range("I6").Select
    Selection.Copy
    Windows("recuperation donnée.xlsm").Activate
   Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Merci d'avance

Polux31 · Answer

Bonjour,

Voilà une fonction qui retourne le chemin et le nom du fichier sélectionné :

'// Ouverture du browser Windows
'// La fonction retourne le chemin d'accès du fichier sélectionné
'//
Public Function Utilisation_FileDialog_SelectionFichier(ByVal titre As String) As Variant
    Dim x As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        'Définit un titre pour la boîte de dialogue
        .Title = titre
        'Interdit la multi-sélection
        .AllowMultiSelect = False
        'Efface les filtres existants.
        .Filters.Clear
        'Définit une liste de filtres pour le champ "Type de fichiers".
        .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
        'La valeur 1 permet de spécifier que ce filtre est positionner en premier dans la liste de choix.
        .Filters.Add "Documents Excel", "*.xls; *.xlsx", 1
        'Définit le filtre qui s'affiche par défaut dans le champ "Type de fichiers".
        .FilterIndex = 2
        
        'Indique le type d'affichage dans la boîte de dialogue (exemple visualisation des propriétés)
        .InitialView = msoFileDialogViewProperties
        'Affiche la boîte de dialogue
        .Show
    
        'Boucle sur les fichiers sélectionnés
        For x = 1 To .SelectedItems.Count
            Utilisation_FileDialog_SelectionFichier = .SelectedItems(x)
        Next x
    
    End With

End Function 

Voilà comment l'utiliser :

Dim nomFichier As String

nomFichier = Utilisation_FileDialog_SelectionFichier("Sélectionner un fichier")

Bon courage

;0)

Nom de classeur variable

1 réponse

Discussions similaires