dupliquer un dossier contenant plusieurs classeurs liés

[youss21]

bonjour,

je vous écris car je ne trouve pas de réponse à mon problème malgré une recherche sur internet.
j'ai un dossier rapport qui contient plusieurs dossiers avec des classeurs Excel qui sont liés.
mais lorsque je le duplique ou déplace, je suis obligé de modifier les liaisons classeur par classeur.
pour info je ne maitrise pas le vba.
pourriez vous m'aider si vous avez une idée.
merci

 

[youss21]

J’ai oublié de laisser les feuilles déverrouiller, le mot de passe est transifer.
Merci

 

[Compte Supprimé 979]

Bonjour,
Voici un code qui te fera les mise à jour

Sub MàJMiens()
  Dim sPathNew As String, sPathOld As String, NewLink As String
  Dim Ind As Integer, Link As Variant
  ' Chemin d'accès actuel
  sPathNew = ThisWorkbook.Path & "\"
  ' Pour chaque lien
  For Each Link In ThisWorkbook.LinkSources
    ' Récupérer l'ancien chemin
    sPathOld = Left(Link, InStrRev(Link, "\"))
    ' Définir le nouveau chemin
    If InStr(1, sPathOld, "Annuel") > 0 Then
      NewLink = Replace(Link, sPathOld, sPathNew & "Annuel\")
    ElseIf InStr(1, sPathOld, "Trimestriel") > 0 Then
      NewLink = Replace(Link, sPathOld, sPathNew & "Trimestriel\")
    End If
    ' Modifier le lien
    ActiveWorkbook.ChangeLink Name:=Link, NewName:=NewLink, Type:=xlExcelLinks
  Next Link
End Sub

A lancer manuellement

A+

 

[youss21]

Bonjour

Merci pour ta réponse.
Je copie ton code et je le colle dans la feuille annuel et la feuille trimestriel, je crée un module ? Je suis très très limité en vba.
Tu me dis à lancer manuellement, je ne peux le laisser en automatique?

Merci pour ton aide.

 

[youss21]

après avoir collé le code sur la feuille annuel voici ce que ça me dit.
je vous mets en pj , ce que j'ai collé si vous avez une idée d'où vient l'erreur.
merci encore

 

[youss21]

Bonjour,

Personne n’a d’idees?
Svp
Je suis en galère
Merci

 

[Dranreb]

Bonsoir.
Vous pouvez toujours encadrer l'instruction d'un dispositif vous informant de ce qu'il essaye de faire :

   On Error Resume Next
   ActiveWorkbook.ChangeLink Name:=Link, NewName:=NewLink, Type:=xlExcelLinks
   If Err Then MsgBox "Err. " & Err & " en tentant de changer le lien suivant :" _
      & vbLf & Link & vbLf & "en ceci :" & vbLf & NewLink & vbLf & Err.Description, _
      vbCritical, "MàJLiens"
   On Error GoTo 0

Peut être que ça permettra de voir pourquoi ça ne marche pas.

 

[youss21]

Bonjour,

Merci pour l’aide.
Je teste ce soir en rentrant du travail et je te tuens au courant merci