P
pascal
Guest
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
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