Problème de débogage fonction windows().activate

[Jeanvaljean]

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

 

[Dan]

Re : Problème de débogage fonction windows().activate

Bonjour,

Essaie ceci -> Windows(Range("A" & i).Value & ".xlsx").Activate

A bientôt

Dan

 

[Jeanvaljean]

Re : Problème de débogage fonction windows().activate

Salut Dan,

parfait, ta réponse m'a permis de solutionner le problème.

Merci beaucoup et bonne semaine à toi

Ciao

Jeanvaljean.