Microsoft 365 Modifier formule copier coler

[Bob 31]

Bonjour
J'ai une formule d'un copié coller d'une feuille d'un classeur "salariés" vers une autre classeur "Recap annuel" sur une autre feuille.

Formule ci après :
='\\SrvAldo\drh\ABADIE ALBERT\[ABADIE ALBERT 2021.xlsx]MOIS'!C2

Je colle sur le classeur annuel un millier de lignes venant des classeurs salariés.
je souhaiterai modifier cette formule si c'est possible créant une référence année (cellule année : 2021) sur la feuille du classeur Recap annuel afin que l'année prochaine
en changeant cette référence année (2022) cela me change les liens et que cela aille chercher le classeur [ABADIE ALBERT 2022.xlsx].
Si je peux aussi indexer de la même façon le nom et le prénom du salarié je suis preneur.

Merci d'avance.

 

[fanfan38]

Bonjour
Essaie
='\\SrvAldo\drh\ABADIE ALBERT\[ABADIE ALBERT" & A1 & ".xlsx"]MOIS'!D3
A+ François

 

[fanfan38]

Ton fichier étant plein de #REF! c'est pas évident...
='\\SrvAldo\drh\" & B3 & "\[" & B3 & A1 & ".xlsx]MOIS"'!C3
As tu compris le principe on concatène des chaines de caractère et des variables

A+ François

 

[Bob 31]

Je me suis mal exprimé tout à l'heure

Je souhaiterai modifier mon chemin pour effectuer une copie cela avec une programmation avec des données depuis le feuille ou j'effectue le coller, en sachant que j'ai des fichiers nommés (='\\SrvAldo\drh\ABADIE ALBERT\[ABADIE ALBERT 2021.xlsx], ='\\SrvAldo\drh\AVIER MARIE\[AVIER MARIE 2021.xlsx], ='\\SrvAldo\drh\DESE AUDREY\[DESE AUDREY 2021.xlsx], ='\\SrvAldo\drh\TENEUR PATRICK\[TENEUR PATRICK 2021.xlsx]

C2 ='\\SrvAldo\drh\ABADIE ALBERT\[ABADIE ALBERT 2021.xlsx]ANNUEL'!C2

Programmer le chemin avec le tableau joint :
le NOM PRENOM identifié par la cellule B2 ligne 2 PUI B3 Ligne 3 etc
et l'année identifiée par la cellule AI1 à figer de la feuille ANNEE ou je veux coller les chemins du collage

='\\SrvAldo\drh\B2\[B2 AI1.xlsx]ANNUEL'!C2

Merci d'avance

 

[Bob 31]

Re bonsoir
J'essaye sur le nouveau tableau avec la solution de fanfan 38 mais j'ai toujours un message d'erreur #REF!
='\\SrvAldo\drh\" & B2 & "\[" & B2 & AI1 & ".xlsx]ANNUEL'!C2
Je ne comprend pas
Merci

 

[Dranreb]

Bonsoir.
La seule possibilité relativement simple et rapide que je vois c'est de passer par la modification des liaisons.
La base c'est cette procédure :

Sub ModifierLiaisons()
   For Each X In ThisWorkbook.LinkSources
      ThisWorkbook.ChangeLink X, Replace(X, "2020", "2021"), xlLinkTypeExcelLinks
      Next X
   End Sub

À tester dans un premier temps.
Voir après comment rendre variable l'année à changer.
Sinon il reste possible de changer les FormulaR1C1 des paquets de 12 lignes et 30 colonnes à partir de la cellule C2 en utilisant chaque fois le NOM PRENOM en B2 :

Sub MettreFormules()
   Const Année = "2021"
   Dim L&, NomPré
   L = 2
   Do: NomPré = Cells(L, "B").Value: If VarType(NomPré) <> vbString Then Exit Do
      Cells(L, "C").Resize(12, 30).FormulaR1C1 = "='\\SrvAldo\drh\" & NomPré _
         & "\[" & NomPré & " " & Année & ".xlsx]ANNUEL'!R[" & 2 - L & "]C"
      L = L + 12
      Loop
   End Sub

 

[Bob 31]

Bonsoir.
La seule possibilité relativement simple et rapide que je vois c'est de passer par la modification des liaisons.
La base c'est cette procédure :

Sub ModifierLiaisons()
   For Each X In ThisWorkbook.LinkSources
      ThisWorkbook.ChangeLink X, Replace(X, "2020", "2021"), xlLinkTypeExcelLinks
      Next X
   End Sub

À tester dans un premier temps.
Voir après comment rendre variable l'année à changer.
Sinon il reste possible de changer les FormulaR1C1 des paquets de 12 lignes et 30 colonnes à partir de la cellule C2 en utilisant chaque fois le NOM PRENOM en B2 :

Sub MettreFormules()
   Const Année = "2021"
   Dim L&, NomPré
   L = 2
   Do: NomPré = Cells(L, "B").Value: If VarType(NomPré) <> vbString Then Exit Do
      Cells(L, "C").Resize(12, 30).FormulaR1C1 = "='\\SrvAldo\drh\" & NomPré _
         & "\[" & NomPré & " " & Année & ".xlsx]ANNUEL'!R[" & 2 - L & "]C"
      L = L + 12
      Loop
   End Sub

 

[Bob 31]

Bonjour Dranreb
Super ça fonctionne, merci beaucoup pour les solutions que tu m'as proposées.
Bonne journée