Créer une copie de dossier en adaptant les références

[BMelinon]

Bonjour à tous,

J'aurais besoin d'un peu d'aide s'il vous plait,

Voici mon problème : Je dispose d'un dossier qui comporte de nombreux fichiers Excel reliés entre eux par des formules et je souhaite en créer une copie conforme : dossier_copie.

Toutefois, quand je le fais, les références entre les fichiers de la copie ne sont pas adaptées.

Je m'explique : je voudrais que quand je crée la copie, les liens entre les fichiers de dossier_copie renvoient aux fichiers de dossier_copie, mais ce n'est pas le cas : les liens de dossier_copie renvoient aux fichiers Excel du dossier d'origine.

Finalement, ma sauvegarde n'est d'aucune utilité puisque les tableurs s'adaptent au fichier d'origine.

Existe-t-il un moyen de résoudre mon problème ?

Merci d'avance :

 

[ayaflo]

Re : Créer une copie de dossier en adaptant les références

Bonjour le fil,

Je pense qu'il y a une méthode beaucoup plus rapide, mais tu peux aller dans tes classeurs et ensuite dans le Menu "Edition", tu as un encart "Liaisons", et tu vas voir afficher les liaisons du classeur, tu n'as plus qu'à les mettre à jour avec les classeurs de copie.

Désolé, je connais pas plus rapide.


Ayaflo

 

[francedemo]

Re : Créer une copie de dossier en adaptant les références

bonjour BMelinon, Ayaflo,

par macro, l'idée serait d'ouvrir les fichiers du dossier puis les enregistrer sous dossier_copie, je pense que ça mettra les liens à jours vers le dossier_copie
à+

edit: à tester

Sub CopieFichier()

Dim Fichier As String
Dim Chemin As String
Dim CheminCopie As String

debut = Timer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'===Saisir le chemin complet du dossier où se trouvent les fichiers
Chemin = "xxx"
CheminCopie = "yyy"

'===Premier fichier
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Workbooks.Open FileName:=Chemin & Fichier
    Application.EnableEvents = True
    
    '===Fermeture du fichier Devis ouvert
    Windows(Fichier).Activate
    ActiveWorkbook.SaveAs (CheminCopie & Fichier)
    '===Fichier suivant
    Fichier = Dir
Loop
'===Fin de la boucle

MsgBox ("Terminé en " & Timer - debut & " seconde(s)")

End Sub