Userform

Bon jour,

https://answers.microsoft.com/fr-fr/msoffice/forum/all/executeexcel4macro/03971baf-a1ce-4407-bbdc-2a96ee3e7697
En utilisant la fonction:

Function LireClosedCell(Dossier As String, _
Fichier As String, Feuille As String, Adr As String)

vous arriverez a vos fin.

un exemple (salut michel_m):
Userform

Private Sub CommandButton1_Click()
    Dim Dossier As String, Fichier As String, Feuille As String, Adr As String
    
    Dossier = "E:\_Docs_Prog_Excel\_Excel_a_traiter\Excel_ferme_ado_xl4\michel_m_recup_x_fichier\"
    Fichier = "sv1.xls"
    Feuille = "Feuil1"
    
    For n = 1 To 18     'nombre de cellule a recuperer
        Adr = "B" & n    'colonne et ligne
        VC = LireClosedCell(Dossier, Fichier, Feuille, Adr)
        ComboBox1.AddItem VC
    Next n
End Sub

Module

Function LireClosedCell(Dossier As String, Fichier As String, Feuille As String, Adr As String)
    Dim R As Long, C As Long, F As String
    R = Range(Adr).Row
    C = Range(Adr).Column
    F = ("'" & Dossier & "[" & Fichier & "]" & Feuille & "'!R" & R & "C" & C)
    LireClosedCell = ExecuteExcel4Macro(F)
End Function

Par contre 3999 items dans une combobox, ca pique les yeux

Bonjour,
je vais regarder cela et vous remets un commentaire par la suite
merci encore
belle journée excelldiene

Bonjour,

Pouvez mettre votre fichier a dispo?
Vous faites une connection ADO fichier ferme et semble-t-il vous voulez faire comme si ce fichier est ouvert excel, pas marche

un exemple de code pour classeur xls si vous souhaitez plancher un peu avant de mettre a dispo votre fichier

'Voici une macro qui permet de se connecter à un classeur afin d'extraire le contenu de la feuille nommée "Feuil1".
'VBA

Sub RequeteClasseurFerme()
    Dim cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\monClasseurBase.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
    
    Set cn = New ADODB.Connection
    
    '--- Connection ---
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
    
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
    
    Set Rst = New ADODB.Recordset
    Set Rst = cn.Execute(texte_SQL)
    
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
    
    '--- Fermeture connexion ---
    cn.Close
    Set cn = Nothing

End Sub

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
www.grosfichiers.com

ou
www.transfernow.net 'fichier jusqu'a 4G

Bonjour,

Je recupere les fichier et regarde la chose

Le fichier personnal.xlsb ne fait l'affaire, impossible a ouvrir!!
Vous devez avoir un .xlsm

"Base de données Frelance.xls" nom fichier dans votre code d'origine
Base-de-données-Freelance.xlsx nom fichier mis a dispo
Lequel est le bon car la chaine de connection n'est pas la meme