Importer données sans ouvrir fichier source

[carlos]

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

 

[carlos]

Re : Importer données sans ouvrir fichier source

Bonjour Michel m ,,le forum

J'ai tésté ta proposition dans le fichier joint mais ....


Merci

 

[carlos]

Re : Importer données sans ouvrir fichier source

Bonjour Michel m ,,le forum

J'ai tésté ta proposition dans le fichier joint mais ....


Merci

 

[carlos]

Re : Importer données sans ouvrir fichier source

Bonjour Michel m ,,le forum

J'ai tésté ta proposition dans le fichier joint mais ....


Merci

 

[michel_m]

Re : Importer données sans ouvrir fichier source

Re,

tu as écrit:

Cible = "SELECT DISTINCT RAIS FROM " & laBase & ";" & " WHERE CODEP = '1390';"

le ";" signifie la fin de la requete SQL

donc essaies

Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = '1390';"

si toutefois 1390 n'est pas du texte (je n'ai pas dbase sur le pc) enlève les apostrophes

 

[carlos]

Re : Importer données sans ouvrir fichier source

Milles mercis Michel m et MichelXld

Ça fonctionne à merveille.C'est trop génial d'avancer aussi vite grâce à vous.

Merci

Carlos

 

[carlos]

Re : Importer données sans ouvrir fichier source

Re

J'ai encore un petit soucis avec le'1390'

Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = '1390';"

Ta proposition est impeccable,elle fonctionne.

Mais la variable recherchée n'est pas toujours 1390 , elle est modifiable selon un combobox..

Ainsi , j'ai éssayé de déclarer :

dim ValRecherché as string
ValRecherché = combobox1.value (combo alimenté par les valeurs de CODEP)
Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = ValRecherché ;" (Marche pas)

ou

Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = &"'" & ValRecherché &"'" & ;" (Marche pas)


Carlos

 

[michel_m]

Re : Importer données sans ouvrir fichier source

Re,

En rentrant du ciné (vu la météo. mais Juno est un film très sympa, je regrette pas le temps pourri!)

ton code:

dim ValRecherché  as string
ValRecherché = combobox1.value (combo alimenté par les valeurs de CODEP)
Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = ValRecherché ;" (Marche pas)

1/ évite les accents dans SQL donc:
ValRecherché devient ValRecherche

2: essaies:

... WHERE CODEP='" & valrecherche & "';"

(apostrophe,guillemet &...... & gullemet, apostrophe)

3/ tu as sauvegardé tes modifs sur le wiki de MichelXLD et donc, sa démo ne marche plus. mets lui un MP....

 

[carlos]

Re : Importer données sans ouvrir fichier source

Re

1 - J'ai écris un MP a MichelXLD , je ne sait pas quoi faire pour réparer mon erreur.Je suis désolé.

2 - J'ai testé :
Cible = "SELECT DISTINCT RAIS FROM " & laBase & " WHERE CODEP = '" & valrecherche & "';" mais Msg "Trop peu de paramètres . 2 attendus."

Ca passe pas .

 

[cbea]

Re : Importer données sans ouvrir fichier source

Bonsoir Carlos et le forum,

Pourrais-tu joindre ton fichier actualisé ?

Merci

 

[carlos]

Re : Importer données sans ouvrir fichier source

Re Michel_m, Cbea , le forum

J'ai enfin réussi à créer ma requête en utilisant un combobox . Bravo Michel_m

Maintenant, il ne me reste que 2 toutes petites étapes à faire :

1 - J'aimerais avoir un espace entre le champs Nom et le prénom
2 - Ne garder que le premier prénom (différencier des autres prénoms par un espace)

Après cela tout sera fini

Merci.

Carlos

 

[cbea]

Re : Importer données sans ouvrir fichier source

re,

J'ai apporté les modifications.
Dans le code, voir les commentaires notés : "Modif : ici".

 

[michel_m]

Re : Importer données sans ouvrir fichier source

Content pour toi et pour moi que ca marche!

Petit détail pour améliorer en rapidité ta prog en modifiant

 On Error Resume Next
  Do While Not Rs.EOF
  n = n + 1
  Cells(3 + n, 2) = Rs.Fields(0).Value
  Rs.MoveNext
  Loop

par 1/le test d'un résultat vide (source: @+thierry)
2/ en évitant une boucle
3/ en annulant en mémoire les pointeurs créés par l'instruction "set"
4/ avec le traditionnel screenupdating... tu n'as pas besoin de le réinitialiser à "true" à la fin car tu rends la main à l'utilisateur (source: Laurent Longre)

  If Rs.EOF Then
          MsgBox "Plage vide..."
          Exit Sub
              Rs.Close
  Rs=nothing
  Cn.Close
  Cn=nothing
      End If
   
    Application.ScreenUpdating = False
    Range("B4").CopyFromRecordset Rs
   
  Rs.Close
  Rs=nothing
  Cn.Close
  Cn=nothing

Bonne semaine

 

[carlos]

Re : Importer données sans ouvrir fichier source

Merci Michel _m, merci cbea

Merci pour votre participation à mon projet mais aussi pour vos explications détaillées
Je dois maintenant réunir vos 2 propositions .

@ +

carlos

 

[carlos]

Re : Importer données sans ouvrir fichier source

Re

impeccable...
J'ai quand même 2 questions.

1 - le 2 ieme code de Michel_m : ou dois je le mettre ? en userform1.initialyse ou combobox1.click ? Es ce qu'il gere le cas ou le fichier f_ele n'existe pas? c'est trop fort pour moi.

2_ Merci Cbea car grâce à ton code j'ai compris les fields() et c'est tres pratique.

Je vais m'atteler à supprimer les deuxièmes et troisièmes prénom en trop.

Carlos

 

[michel_m]

Re : Importer données sans ouvrir fichier source

bonjour Carlos, Cbea

dans combobox... mais ce n'est pas obligatoire!