Discussion :

[oscar.cesar]

bonsoir à tous
une question qui a été posée , certainement à plusieurs reprise, mais jusqu'a present j'ai rien trouver de simple comme code.

je souhaite trasnferer des donnees du base access vers excel à partir d'excel de maniere simple!
1) dans excel apres action sur bouton (commandbutton par exemple)
2) j'ouvre ma base access ex: MABASE.MDB
3)j'ouvre ma table ex: table1
4) je selectionne le champs1,2,5 6, ex: nom, prenom, age, adresse
5)je recopie tout cela dans le fichier excel de 1)
6) je ferme le fichier MABASE.MDB

le plus simple ?????

[SilkyRoad]

bonjour


Une possibilité:
Comment effectuer une requête QueryTable ?



Tu peux aussi faire une recherche sur le forum au sujet de la bibilothèque DAO ainsi que sur le modèle ADO



bonne journée
michel

[oscar.cesar]

bonjour
merci
je regarde cela mais dans ce domaine , je suis totalement novice

[oscar.cesar]

bonjour
ok , cool cela marche

je souhaite ameliorer la requete dans le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With Sheets("Feuil1").QueryTables.Add(Connection:=Array("OLEDB;Provider=Microsoft.jet.OLEDB.4.0;" & _
        "Data source=" & NomBase), Destination:=Sheets("Feuil1").Range("A2")) 
 
'endroit dans la feuil excel ou on commence à ecrire
   '========"la ligne ci dessous"==================================     
    .CommandText = Array("select * FROM arrivee WHERE annee>2006  ") 
'=======================================================
 
'selection de la table et des champs
    .Name = "TestRequete"
    .CommandType = xlCmdTable
    .FieldNames = True 
    .RowNumbers = False
    .PreserveFormatting = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .AdjustColumnWidth = True
    .PreserveColumnInfo = False 'format
    .Refresh BackgroundQuery:=False
End With

En particulier rajoute des contraintes sur plusieurs champs .
comme annee>2006 and type=bon or couleur=rouge ou couleur=blanc!!!!!!


merci