Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel figer des liaisons sur un fichier de sauvegarde

figer des liaisons sur un fichier de sauvegarde

9 réponses
Avatar
Cyr13
bonsoir,

comment puis-je faire pour figer les liaisons d' un fichier de sauvegarde
dans ce code.

Sub Sauvegarde_Gastro()

'Sauvegarde du Classeur
ScreenUpdating = False
nomClasseurSauv = "Feuille Gastro " & Format(Date, "dddd-dd-mmmm-yyyy") &
".xls"
dossier = "Sauvegarde " & " " & Format(Date, "mmmm-yyyy")
répertoire = ("c:\documents and settings\All users\menu
démarrer\programmes\Production\Sauvegarde\" & dossier)
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "\" & nomClasseurSauv
End Sub

d'avance merci.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
Essaie :

Sub Sauvegarde_Gastro()

'Sauvegarde du Classeur
ScreenUpdating = False
nomClasseurSauv = "Feuille Gastro " & Format(Date, "dddd-dd-mmmm-yyyy") &
".xls"
dossier = "Sauvegarde " & " " & Format(Date, "mmmm-yyyy")
répertoire = ("c:documents and settingsAll usersmenu
démarrerprogrammesProductionSauvegarde" & dossier)
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Workbooks.Open répertoire & "" & nomClasseurSauv
On Error Resume Next
For Each lien In ActiveWorkbook.LinkSources(1)
ActiveWorkbook.BreakLink lien, 1
Next
ActiveWorkbook.Close
End Sub

Cordialement.
Daniel
"Cyr13" a écrit dans le message de news:
47ebe7a7$0$883$
bonsoir,

comment puis-je faire pour figer les liaisons d' un fichier de sauvegarde
dans ce code.

Sub Sauvegarde_Gastro()

'Sauvegarde du Classeur
ScreenUpdating = False
nomClasseurSauv = "Feuille Gastro " & Format(Date, "dddd-dd-mmmm-yyyy") &
".xls"
dossier = "Sauvegarde " & " " & Format(Date, "mmmm-yyyy")
répertoire = ("c:documents and settingsAll usersmenu
démarrerprogrammesProductionSauvegarde" & dossier)
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
End Sub

d'avance merci.



Avatar
Cyr13
bonsoir, Daniel.C

je viens d'essayer mais cela ne fige pas les liaisons
si j' ouvre le classeur de sauvegarde il me dit fichier non
trouvé et me demande de selectionner un classeur pour les liaisons.

je te remercie encore une nouvelle fois pour ton aide précieuse.
Avatar
Daniel.C
Bonjour.
Quels sont les types de liaison ? des cellules, des graphiques ?
Daniel
"Cyr13" a écrit dans le message de news:
47ec1800$0$893$
bonsoir, Daniel.C

je viens d'essayer mais cela ne fige pas les liaisons
si j' ouvre le classeur de sauvegarde il me dit fichier non
trouvé et me demande de selectionner un classeur pour les liaisons.

je te remercie encore une nouvelle fois pour ton aide précieuse.



Avatar
Cyr13
bonjour,

sur de cellules, liaisons recuperées dans un autre classeur
" inventaire2007-2008" renseigne cellule d' une feuille base de données.
Avatar
Daniel.C
Alors, je ne comprends pas. J'ai testé la macro avant de la poster. Peux-tu
mettre ton classeur sur www.cjoint.com en effaçant les données
confidentielles ?
Daniel
"Cyr13" a écrit dans le message de news:
47ed2d02$0$874$
bonjour,

sur de cellules, liaisons recuperées dans un autre classeur
" inventaire2007-2008" renseigne cellule d' une feuille base de données.



Avatar
Cyr13
http://cjoint.com/data/dpkwUJJDKA_Classeur2.xls
petit soucis avec cjoint je pense que ci dessus c est mon
fichier ladresse etait sous excel????
merci
Avatar
Daniel.C
Ca ne doit pas ête le bon classeur. Il n'y a aucune liaison...
Daniel
"Cyr13" a écrit dans le message de news:
47ed4ef3$0$876$
http://cjoint.com/data/dpkwUJJDKA_Classeur2.xls
petit soucis avec cjoint je pense que ci dessus c est mon
fichier ladresse etait sous excel????
merci



Avatar
Cyr13
j ai compris CJoint ne prend les fichier qu en dessous de 500 ko
enfin...

le fichier source "production cuisine" sert a mettre a jour les liaisons de
"martice prod" mais ses deux fichiers apres la sauvegarde change de nom
(peut etre une piste ??)

merci de ton aide
Avatar
Daniel.C
Bonjour.
Tu peux utiliser WinZip ou WinRar pour compresser ton fichier.
Daniel
"Cyr13" a écrit dans le message de news:
47ee2de6$0$867$
j ai compris CJoint ne prend les fichier qu en dessous de 500 ko
enfin...

le fichier source "production cuisine" sert a mettre a jour les liaisons
de "martice prod" mais ses deux fichiers apres la sauvegarde change de nom
(peut etre une piste ??)

merci de ton aide