Merci pour votre réponse Jean-Jacques

En fait c'est une opération qui sera répétée regulièrement sur un grd nombre de données.

L'idéal serait une macro VBA qui me fasse le rechercheV en allant chercher l'info complémentaire dans la feuille excel
ou si c'est plus facile, une macro qui importe et une deuxième qui fait un rechercheV en allant chercher les infos dans la table importée.

PS: ci dessous un petit exemple de ce que je veux faire.

sous access j'ai une colonne A qui doit me servir d'argument pour le rechercheV() et d'autres colonnes d'information :
col A col B et d'autres colonnes
001 (vide)
002 (vide)
003 ....
004
...

sous Excel j'ai:
col A col B
001 x
003 y
004 y
008 z
0015 x
...


et comme résultat je cherche à faire qq chose sous Access du type:
col A col B ....et d'autres colonnes
001 x
002 (vide)
003 y
004 y
005 (vide)
006 (vide)
007 (vide)
008 z
...

Merci pour votre réponse Jean-Jacques

En fait c'est une opération qui sera répétée regulièrement sur un grd nombre de données.

L'idéal serait une macro VBA qui me fasse le rechercheV en allant chercher l'info complémentaire dans la feuille excel
ou si c'est plus facile, une macro qui importe et une deuxième qui fait un rechercheV en allant chercher les infos dans la table importée.

PS: ci dessous un petit exemple de ce que je veux faire.

sous access j'ai une colonne A qui doit me servir d'argument pour le rechercheV() et d'autres colonnes d'information :
col A col B et d'autres colonnes
001 (vide)
002 (vide)
003 ....
004
...

sous Excel j'ai:
col A col B
001 x
003 y
004 y
008 z
0015 x
...


et comme résultat je cherche à faire qq chose sous Access du type:
col A col B ....et d'autres colonnes
001 x
002 (vide)
003 y
004 y
005 (vide)
006 (vide)
007 (vide)
008 z
...

Pietrius,

Si la base de données ACCESS et le fichier Excel sont sur le même serveur/ordinateur, il serait bien plus simple d'utiliser le fichier EXCEL comme table attachée. Est-ce le cas ?
L'avantage : La base ACCESS est alors mise à jour dynamiquement. C.à.d. : toute modification dans Excel est aussitôt connue dans la base ACCESS liée.

A+
La science ne fait que trouver ce qui existe depuis toujours­.
REEVES Hubert.

OUi les deux fichiers sont sur le meme ordinateur.
Le fichier excel est mis a jour regulièrement et à chaque fois il faut completer la table Access avec les informations du fichier Excel

Que voulez vous dire par "table attaché" ?
Cela reveindrai a automatiquement mettre a jour une table sous ACCESS correpondant au fichier Excel ?
Mais ensuite comment faire un rechercheV entre les deux tables pour completer la premiere ?

Merci encore

Pietrius,

C'est de bon augure, mais il y a une contrainte incontournable.
Il faut que la table ACCESS et le fichier EXCEL aient un champ commun.
C.à.d. : "N° de commande" par exemple.

Si cest bon faire : Fichier/Données externes/lier les tables ..... ensuite c'est en pas à pas assez bien fait ..


A+ La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Pietrus,

Je ne suis pas suffisamment expérimenté pour pouvoir vous aider
sur un point aussi spécifique .....

Un spécialiste ne devrait pas tarder à se manifester ....sur CCM on attend rarement en vain.

Toutefois, il est étrange que nom de la table soit <nom de la table> et nom du champ <Nom du champ de la table> ?????


Votre code ---> [Nom de ta table] ( [NOM du champ de ta table]


Cordialement La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Bonjour Jean_jacques
Encore uen fois merci pour tes réponses rapides
Le bout de code copié ci dessous est un code type et il faut remplacer les champs Nom de Table par le nom de la table destination...etc
j'ai finalement reussi a faire fonctionner ma macro
Sais tu comment l'accrocher a un bouton sur un formulaire Access ?
etrangement je ne dois pas avoir la bonne demarche alors que je le fais regulierement sur Excel

Merci d'avance

Bonjour Pietrus,

NB : En accès on dit une procédure quand on utilise le code.

Pour créer la procédure événementielle sur clic, suivre la démarche suivante :
Ouvrir le formulaire qui contient le bouton
Se mettre en mode création
Sélectionner le bouton
Activer l'onglet Évènements
Se positionner sur la ligne sur clic
Grâce au petit bouton avec 3 petits points en bout de ligne, choisir procédure évènementielle
L'affichage suivant apparaît :

Private ... machin chose (début de procédure)

Saisir le code Ici ..... entre private et en end sub

En sub (Fin de procédure)

Fermer enregistrer et essayer

Bonne journée

La science ne fait que trouver ce qui existe depuis toujours­.
REEVES Hubert.

Merci Jean Jacques

tout marche maintenant.
Petite question complementaire:
je ne trouve pas sur le forum le code pour supprimer un enregistrement d'une table access

je voudrai rajouter dans mon code une petite fonction avec des conditions IF qui supprimerait certains des enregistrements.

Merci d'avance

Bonjour Pietrus,

Attention danger
1 - En premier lieu, ne pas négliger de prendre des précautions. Faire des sauvegardes régulières, etc.

2 - A titre d'exemple, voici une syntaxe SQL qui permet de supprimer les enregistrements "âgés de plus d'un an"
- [La valeur contenue dans le [champ_date] est comparée à la valeur de la date en cours (now).
- Si l'écart (exprimé en nombre de jours) est supérieur à 365, les enregistrements concernés sont supprimés.


DoCmd.RunSQL "DELETE all FROM [<Table>] WHERE (((DateDiff('d',[<Champ_date>],Now()))>365));"

Cordialement La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Bonsoir Pietrus,
Il est inutile de balayer chaque enregistrement de la table pour supprimer des enregistrement.
Chaque condition IF s'applique à l'ensembe de la table

Dans ton cas il faut faire quelque chose comme :
If <Nom=Champ_1> = 1 And <Nom=Champ_2> = "< >" Then


Voilà un exemple de squelette de condition IF
A toi de jouer pour l'adapter


If <Nom=Champ> = 1 And ((PrixUnitaire * Quantité) / 100 * 0.7) < 9.9 Then

Action SQL
End If

ElseIf <Nom=Champ> = 2 And ((PrixUnitaire * Quantité) / 100 * 0.7) < 9.9 Then
Action SQL

End If

ElseIf <Nom=Champ> = 1 And ((PrixUnitaire * Quantité) / 100 * 0.7) >= 9.9 Then
Action SQL
End If

ElseIf <Nom=Champ> = 2 And ((PrixUnitaire * Quantité) / 100 * 0.7) > 9.9 Then
Action SQL
End If
End If


Bonne soirée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Bonjour Jean Jacques

Et merci pour ton aide

Cependant je ne suis pas sur de comprendre comment utiliser ton code type

Comment interpreter cette ligne ?:

If <Nom=Champ_1> = 1 And <Nom=Champ_2> = "< >" Then 

Bonjour Pietrus,

L'exemple donné n'a rien à voir avec ton cas.

If <Nom_Champ_1> = 1 And <Nom_Champ_2> = "< >" Then

....
endif

Mon but :
Montrer que la condition peut être activée sur une valeur numérique aussi bien que sur la valeur d'une chaîne de caractère.

NB : Voir aussi SKIP pour comparer des lignes


Bonne journée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Pietrus,

Mea culpa, j'ai été négligent dans la lecture de ta description. Il faut bien un balayage de la base associé avec une boucle comprenant des if . Il est vrai que ta démarche est insolite ..

Et il faut bien dire que j'ai franchi mon seuil de compétence. Je n'arrive plus à suivre.

Je te suggère de compulser le site de référence : http://vb.developpez.com/vbsources/

- Tout de même, je verrais bien quelque chose de ce genre :

While IsnotNull(Me![<Nom_champ>])
IF ... then

then
skip
end if

Wend
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Pietrus,

Désolé, je ne sais pas faire. Surtout à distance et sans voir l'écran.

L'idéal serait d'avoir un analyste sous la main. Quelqu'un capable de faire
le cahier des charges de tes besoins, de les décrire et de déceler les incohérences et
contradiction éventuelles.
Avec une bonne analyse de la structure le travail de codage est énormément facilité.

Concrètement, je te suggère de découper ton travail en étapes successives.
De cette manière tu progresserais tout en faisant avancer ton projet, tout
en faisant valoir des améliorations.

A+
La science ne fait que trouver ce qui existe depuis toujours­.
REEVES Hubert.