remplacement mot dans cells à la volée

[pascal]

Bonjour,

j'ai une base access dans laquelle j'ai des tables qui ont une structure en 2 colonnes pato et med.

La 1ère ligne comporte le nom de la pato est dans les lignes du dessous il y a des * .

Ne parvenant pas à faire des copier coller automatisés dans access pour mettre cela à jour tant qu'il y a des nom dans la colonne med en regard, j'ai tenté de le faire sous excel.

Mais en pasant pas vba, je bloque sur le fait de lui dire do while (tant que les cellules suivantes comportent le char *)
copier le range.select copier du haut
loop

enregistrer la feuille active et passer à celle qui suit dans le rep où elles sont toutes mises.


Sub conversion()
'
' conversion Macro
' Macro enregistrée le par ***
'

'
Workbooks.Open Filename:="F:\LOGICIEL PASCAL\MYOPATHIE.xls"

' ici je voudrais que le nom à la place de "Myopathie" ne soit pas celui là, mais un nom pris en automatique par rapport à une liste de fichiers dans un rep

Range("A2").Select
Selection.Copy

'selection de la valeur du A2 qui contient le nom de la pathologie

' tant que la valeur des cellules qui se trouvent sous A2 est *

Do While Range.Next.Select
Range.Select = "*"

' on copie la valeur de A2 mis en mémoire

Range().Select
ActiveSheet.Paste

Loop

Si on peut on sélectionne les enregistrements et les copie dans une feuille de collecte avec 1 enregistrement de plus pour éviter écrasement suite aux autres enregistrements suivants

' On registre la feuille

ActiveWorkbook.Save
ActiveWorkbook.Close

' On passe à la suivante dans le rep

End Sub


Pouvez vous m'aider ???? SVP

 

[chris]

Bonjour
Fais plutot une requête de mise à jour dans ACCESS.
Tu peux poster sur <http://www.self-access.com/forums/list.php?f=1>
si tu as un PB.
Chris