Re : Cherche possibilité de liaison entre plusieurs fichiers
Bonsoir,
La solution de Jiheme me semble bien. On peut y travailler encore dessus en intégrant ce code pour automatiser les rechercher/remplacer :
Sub MyCode()
Dim i As Integer ' i permet de compter les lignes d'affaire
Dim Myline As Integer ' Myline est la variable contenant le numéro de la ligne sur laquelle on travaille
'On commence par compter le nombre d'affaire à traiter (en fait on cherche la dernière ligne de travail)
i = 2
While ActiveSheet.Cells(i, 1).Value <> ""
i = i + 1
Wend
i = i - 1
'On suppose que les formules de la première ligne sont ok
'On copie-colle les formules de la première ligne partout avant de modification de chaque ligne
ActiveSheet.Range("B2:G2").Copy
Range("B2:G" & i).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' On va prendre les lignes une par une pour modifier la formule selon le numéro de l'affaire
Range("C2").Select
For Myline = 3 To i
ActiveSheet.Range("B" & Myline & ":G" & Myline).Select
Selection.Replace What:="Affaire1", Replacement:="Affaire" & Myline - 1, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
Range("C2").Select
End Sub
'--------------
Par contre, es-tu certain que les informations des feuilles d'affaires se trouvent toujours dans les mêmes cellules avec les mêmes noms de feuille ?
Bonnes soirées.
Poulpor