Jeanvaljean
XLDnaute Nouveau
Bonsoit à tous
Je rencontre un problème sur la fonction windws().activate : ligne surlignée en rouge. Un petit coup de pouce serait le bien venu...
Objectif : retranscrire la ligne précédente par concaténation
Sub mise_a_jour()
'
Dim i As Integer
i = 3
'Do Until Range("A" & i).Value = ""
Workbooks.Open Filename:="R:\Achat\Commande Fournisseur\CF2007\CF0709\" & Range("A" & i).Value & ".xlsx"
Windows("Commandes 2007.xlsm").Activate
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "='[" & Range("A" & i).Value & ".xlsx]Commande'!R12C3"
'Windows("CF0709-001.xlsx").Activate
Windows(" & Range("A" & i).Value & ".xlsx").Activate
ActiveWorkbook.Close False
i = i + 1
'Loop
End Sub
Merci,
@+
Jean
Je rencontre un problème sur la fonction windws().activate : ligne surlignée en rouge. Un petit coup de pouce serait le bien venu...
Objectif : retranscrire la ligne précédente par concaténation
Sub mise_a_jour()
'
Dim i As Integer
i = 3
'Do Until Range("A" & i).Value = ""
Workbooks.Open Filename:="R:\Achat\Commande Fournisseur\CF2007\CF0709\" & Range("A" & i).Value & ".xlsx"
Windows("Commandes 2007.xlsm").Activate
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "='[" & Range("A" & i).Value & ".xlsx]Commande'!R12C3"
'Windows("CF0709-001.xlsx").Activate
Windows(" & Range("A" & i).Value & ".xlsx").Activate
ActiveWorkbook.Close False
i = i + 1
'Loop
End Sub
Merci,
@+
Jean