Importer données sans ouvrir fichier source

  • Initiateur de la discussion Initiateur de la discussion carlos
  • 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 !

carlos

XLDnaute Impliqué
Bonsoir le forum

Comment faire pour ne pas avoir à ouvrir le fichier source ?

Sub importerdbf()

Dim nomdest As String
Dim CheminFichier As String
nomdest = ActiveWorkbook.Name
CheminFichier = Left(ThisWorkbook.path, 1) & ":\eps1\f_ele.dbf"
'Workbooks.Open filename:=CheminFichier
'Workbooks("f_ele.dbf").Activate
Workbooks(nomdest).Worksheets("feuil1").Range("b6") = Workbooks("f_ele.dbf").Worksheets("f_ele").Range("b6")
End Sub


merci
 
Re : Importer données sans ouvrir fichier source

Bonjour CBbea ,michel_m, le forum

Serait il possible de passer la requete au travers d'un combobox?.
Par exemple j'insere dans un combo les champs d'une table et quand je selectionne avec mon combo ce champ la requetese declenche avec ce nouveau champ?

J'ai testé sans succes /

ComboBox3.AddItem "ELESEXE"
ComboBox3.AddItem "DIVCOD"


Cible = "SELECT DISTINCT ELENOM, ELEPRE, combobox3.value FROM " & laBase & " WHERE DIVCOD = '" & valrecherche & "';"


merci
 
Re : Importer données sans ouvrir fichier source

Bonjour Carlos, Michel_m et le forum,

Requête à tester :

Cible = "SELECT DISTINCT ELENOM, ELEPRE, " & combobox3.value & " FROM " & laBase & " WHERE DIVCOD = '" & valrecherche & "';"
 
Re : Importer données sans ouvrir fichier source

Bonsoir michel_m

j'ai une demande de MichelXLD pour connaitre le fichier que j'ai modifié?.

J'ai retesté les liens qu'il m'avait donné en page 1 de ce fil et à priori je n'ai pas de bug sur son wiki.
peux tu me dire quel fichier wiki j'ai modifié , car j'en ai peux fait d'autres, pour le transmettre à michelXLD?.

Merci
 
- 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
5
Affichages
912
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
Réponses
1
Affichages
324
Retour