Discussion :

[Kelaydos]

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.

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
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

Code :

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

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

[COCONUT2]

Peut etre en décoposant :

Code :

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

1
2
3
With Workbook("M:\donnees\macro\input.xls").Sheets("Control")
   Add = .Cells.find(What:="RSEED").Address
end with

Si le fichier est déjà ouvert, peut etre que

Code :

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

With Workbook("input.xls").Sheets("Control")

peut suffire

et peut etre intégrer une gestion d'erreur s'il ne trouve aucune case correspondante.