Enregistrement d'une copie de sauvegarde sans les liaisons

P

Patanes

XLDnaute Nouveau
Bonjour,

Je cherche un code vba me permettenat d'enregistrer une copie d'un classeur qui comporte des liaisons avec un autre classeur. Cette copie, elle ne doit pas prendre en compte les liaisons mais seulement les valeurs. J'utilise Excel 2003

Merci d votre aide
 
Trier par date Trier par votes
F

fredl

XLDnaute Impliqué
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

traiter toutes les cellules avec des liaisons en faisant un copier - collage spécial-valeur : ex sur une cellule ci dessous.
Range("A5").Select 'ta cellule avec une liaison
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

pour traiter plusieurs cellules, les preselectionner et faire un
for each vcell in selection
Application.CutCopyMode = False
vcell.Copy
vcell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
next

nb : attention! apres action, les liaisons sont définitivements perdues
Frédéric
 
Vote positif 0 Vote négatif
P

Patanes

XLDnaute Nouveau
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

Ce que je cherche c'est enregistrer une copie( actuellement cette copie se fait automatiquement en vb(action sur clic)) de mon classeur sans les liaison mais en gardant intact le classeur d'origine et également les liaisons
 
Vote positif 0 Vote négatif
F

fredl

XLDnaute Impliqué
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

apres copie auto de ton fichier, il ne te reste plus qu'à lancer ma macro apres avoir paramétré la plage à traiter :

Set Sel = Range("A1:A56") 'ta plage
for each vcell in Sel
Application.CutCopyMode = False
vcell.Copy
vcell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
next

A tester!
dis moi
Cdt
frédéric
 
Vote positif 0 Vote négatif
tototiti2008

tototiti2008

XLDnaute Barbatruc
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

Re,

Je ne voudrai pas lancer de macro après la sauvegarde car cette sauvegarde est pour des utilisateur ne connaissant peu ou très peu EXcel
Cliquez pour agrandir...
Non, mais ta macro qui enregistre une copie de ton classeur, à la place d'un simple SaveAs (ou SaveCopyAs), pourrait, enregistrer la copie du classeur, supprimer toutes les liaisons dans cette copie puis le réenregistrer ?

Pour supprimer toutes les liaisons (attention à ne pas l'appliquer sur ton classeur original), un truc comme ça devrait le faire

Code: 
Sub SupprLiaisons()
Dim ListLiens, i as long
    ListLiens = ActiveWorkbook.LinkSources
    For i = LBound(ListLiens) To UBound(ListLiens)
        ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks
    Next i
End Sub
 
Vote positif 0 Vote négatif
P

Patanes

XLDnaute Nouveau
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

tototiti2008 à dit:
Re,

Non, mais ta macro qui enregistre une copie de ton classeur, à la place d'un simple SaveAs (ou SaveCopyAs), pourrait, enregistrer la copie du classeur, supprimer toutes les liaisons dans cette copie puis le réenregistrer ?

Pour supprimer toutes les liaisons (attention à ne pas l'appliquer sur ton classeur original), un truc comme ça devrait le faire

Code: 
Sub SupprLiaisons()
Dim ListLiens, i as long
    ListLiens = ActiveWorkbook.LinkSources
    For i = LBound(ListLiens) To UBound(ListLiens)
        ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks
    Next i
End Sub
Cliquez pour agrandir...
Je vois pas trop bien ou le mettre sous le code
je te joins mon code actuel

Private Sub CommandButton1_Click()


' Determination du nom
Dim nom As String
nom = Year(Date) - 1 & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
' Message confirmant la sauvegarde du classeur
rep = MsgBox("Votre classeur est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
' Boite de message
If MsgBox("Voulez vous envoyer le classeur..??", vbYesNo, "Demande de confirmation") = vbYes Then
' Action si réponse OUI de la boite de message
' Ouverture de la fenêtre de messagerie
Application.Dialogs(xlDialogSendMail).Show
' Boite de message
rep = MsgBox("Le classeur a été envoyé..!", , "Action de la messagerie")
' Action si réponse NON de la boite de message
Else
' Boite de message
rep = MsgBox("Le classeur n'a pas été envoyé..!", , "Action de la messagerie")
End If
End Sub
 
Vote positif 0 Vote négatif
F

fredl

XLDnaute Impliqué
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

voir ci dessous!

Sub SupprLiaisons()
Dim ListLiens, i as long
ListLiens = ActiveWorkbook.LinkSources
For i = LBound(ListLiens) To UBound(ListLiens)
ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks
Next i
End Sub

Private Sub CommandButton1_Click()


' Determination du nom
Dim nom As String
nom = Year(Date) - 1 & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
' Message confirmant la sauvegarde du classeur
rep = MsgBox("Votre classeur est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")


call SupprLiaisons
activeworkbook.save

' Boite de message
If MsgBox("Voulez vous envoyer le classeur..??", vbYesNo, "Demande de confirmation") = vbYes Then
' Action si réponse OUI de la boite de message
' Ouverture de la fenêtre de messagerie
Application.Dialogs(xlDialogSendMail).Show
' Boite de message
rep = MsgBox("Le classeur a été envoyé..!", , "Action de la messagerie")
' Action si réponse NON de la boite de message
Else
' Boite de message
rep = MsgBox("Le classeur n'a pas été envoyé..!", , "Action de la messagerie")
End If
End Sub
 
Vote positif 0 Vote négatif
P

Patanes

XLDnaute Nouveau
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

fredl à dit:
voir ci dessous!

Sub SupprLiaisons()
Dim ListLiens, i as long
ListLiens = ActiveWorkbook.LinkSources
For i = LBound(ListLiens) To UBound(ListLiens)
ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks
Next i
End Sub

Private Sub CommandButton1_Click()


' Determination du nom
Dim nom As String
nom = Year(Date) - 1 & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
' Message confirmant la sauvegarde du classeur
rep = MsgBox("Votre classeur est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")


call SupprLiaisons
activeworkbook.save

' Boite de message
If MsgBox("Voulez vous envoyer le classeur..??", vbYesNo, "Demande de confirmation") = vbYes Then
' Action si réponse OUI de la boite de message
' Ouverture de la fenêtre de messagerie
Application.Dialogs(xlDialogSendMail).Show
' Boite de message
rep = MsgBox("Le classeur a été envoyé..!", , "Action de la messagerie")
' Action si réponse NON de la boite de message
Else
' Boite de message
rep = MsgBox("Le classeur n'a pas été envoyé..!", , "Action de la messagerie")
End If
End Sub
Cliquez pour agrandir...

ça bug sur "ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks" lors de l execution du code (à l'appel de la macro)
Mais en ce moment je teste avec une version Excel97 ..(une partie de mes utilisateurs à cette version..eh oui ça date!!!.) là est peut être le problème
 
Vote positif 0 Vote négatif
F

fredl

XLDnaute Impliqué
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

tototiti 2008, qu'en penses tu?
je viens de tester sous 2003 et ça le fait.
Ca bugge par contre si il n'y a pas de liaisons dans le fichier.
Si tu ne t'en sorts pas il faudra faire avec la méthode du copier coller valeur que je t'avais proposée...
 
Dernière édition:
Vote positif 0 Vote négatif
P

Patanes

XLDnaute Nouveau
Re : Enregistrement d'une copie de sauvegarde sans les liaisons

J'ai testé la macro directement en la lançant , et j'ai le même bug sur la ligne
"ActiveWorkbook.BreakLink ListLiens(i), xlLinkTypeExcelLinks"
Je vais voir sur Excel 2003 ou 2007 ce que cela donne mais je pense qu'en 97 ça ne peut pas fonctionnner
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 Somme.Si en enlevant les doublons
Réponses
3
Affichages
174
DJunqueira
D
Usine à gaz
  • Question
XL 2021 Accélérer la copie du classeur actif faite par vba
2 3 4
Réponses
45
Affichages
2 K
Usine à gaz
Usine à gaz
R
  • Question
Autres Copie dans le presse-papier d'une sélection multiple
2
Réponses
16
Affichages
885
Renaud22
R
L
  • Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
3 K
LMOAL
L
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
999
meyscal
M
Heodrene
  • Question
Microsoft 365 [RESOLU] Liaisons externes : rafraichissement de données et URL fantomes
2
Réponses
15
Affichages
2 K
TooFatBoy
TooFatBoy
ArnaudSi
  • Question
XL pour MAC Besoin d'aide pour calculer automatiquement un jour de livraison dans Excel
Réponses
10
Affichages
518
ArnaudSi
ArnaudSi
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
344
JPaul78
J
CGU2022.
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
721
CGU2022.
CGU2022.
M
  • Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
752
kiki29
kiki29

Membres actuellement en ligne

5 membres et 55 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 493
Messages
2 088 956
Membres
103 990
dernier inscrit
lamiadebz