bonjour a tous
malgre plusieurs recherches dans les archives je ne trouve pas la solution a mon probleme.
j'ai 2 fichiers dans lesquels la colonne b a le meme type de donnée (caracteres)
je veux ouvrir le 1er (qui n'a pas toujours le meme nom), rechercher la colonne le 1 contenu, aller dans le 2 eme, rechercher si ce contenu existe et si oui prendre une donnee adjacente et l'inscrire dans le 1 er fichier dans une autre colonne.
ouf!!! j'espere etre clair
j'ai essayé de pondre quelque chos mais je suis assailli par les erreurs.
voici mon code (aie ne me tapez pas dessus).
Sub Macro1()
'
' Macro1 Macro
Dim i As Long
Dim trouve As Variant
Dim vin As String
Dim w As Workbook
Dim doe As String
For Each w In Workbooks
If w.Name Like "webimmat623*.xls" Then w.Activate: Exit For
Next w
Range("I1").Select
ActiveCell.FormulaR1C1 = "DOE"
With ActiveWorkbook
For i = Range("i65536").End(xlUp).Row To 2 Step -1
Range("b" & i).Select
vin = ActiveCell.Value
Windows("Dossiers Facturés.xls").Activate
With ActiveWorkbook
Set trouve = Cells.Find(What:=vin, LookIn:=xlValues).Activate
End With
If ActiveCell.Value = "VIN" Then GoTo suite
ActiveCell.Offset(0, 1).Select
doe = ActiveCell.Value
On Error Resume Next
Windows("nom du fichier de depart").Activate
ActiveCell.Offset(0, 7).Select
ActiveCell.Value = doe
suite:
Windows("nom du fichier de depart").Activate
Next
End With
merci
malgre plusieurs recherches dans les archives je ne trouve pas la solution a mon probleme.
j'ai 2 fichiers dans lesquels la colonne b a le meme type de donnée (caracteres)
je veux ouvrir le 1er (qui n'a pas toujours le meme nom), rechercher la colonne le 1 contenu, aller dans le 2 eme, rechercher si ce contenu existe et si oui prendre une donnee adjacente et l'inscrire dans le 1 er fichier dans une autre colonne.
ouf!!! j'espere etre clair
j'ai essayé de pondre quelque chos mais je suis assailli par les erreurs.
voici mon code (aie ne me tapez pas dessus).
Sub Macro1()
'
' Macro1 Macro
Dim i As Long
Dim trouve As Variant
Dim vin As String
Dim w As Workbook
Dim doe As String
For Each w In Workbooks
If w.Name Like "webimmat623*.xls" Then w.Activate: Exit For
Next w
Range("I1").Select
ActiveCell.FormulaR1C1 = "DOE"
With ActiveWorkbook
For i = Range("i65536").End(xlUp).Row To 2 Step -1
Range("b" & i).Select
vin = ActiveCell.Value
Windows("Dossiers Facturés.xls").Activate
With ActiveWorkbook
Set trouve = Cells.Find(What:=vin, LookIn:=xlValues).Activate
End With
If ActiveCell.Value = "VIN" Then GoTo suite
ActiveCell.Offset(0, 1).Select
doe = ActiveCell.Value
On Error Resume Next
Windows("nom du fichier de depart").Activate
ActiveCell.Offset(0, 7).Select
ActiveCell.Value = doe
suite:
Windows("nom du fichier de depart").Activate
Next
End With
merci