Bonjour,
En m'aidant de nombreux posts sur ce forum j'ai pu créer une macro qui recherche une donnée dans ma feuille courante pour ensuite écrire une donnée dans un autre classeur en utilisant l'adresse de la cellule du dessous de celle trouvée.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub find()
Dim oExcel, oWB, oSheet, setVal
Dim colonne
Dim ligne As Long
' trouve l'adresse contenant RSEED
Add = ActiveSheet.Cells.find(What:="RSEED").Address
colonne = ActiveCell.Column 'renvoie l'adresse de la colonne en numérique
ligne = ActiveCell.Row 'renvoie l'adresse de la ligne
ligne = ligne + 1
Set oExcel = CreateObject("Excel.Application")
Set oWB = oExcel.Workbooks.Open("M:\donnees\macro\input.xls")
Set oSheet = oWB.Worksheets("Control")
oExcel.Visible = True
' écrit dans la cellule en dessous de RSEED
oSheet.Cells(colonne, ligne).Value = 6
End Sub |
J'aimerai faire la recherche non pas dans mon classeur courant mais dans M:\donnees\macro\input.xls mais je n'y arrive pas. J'ai essayé avec la commande
Add = Workbooks("M:\donnees\macro\input.xls").Sheets("Control").Cells.find(What:="RSEED").Address
mais elle me renvoie erreur d'execution 9
.
Merci de votre aide
Partager