Bonjour,
J'ai un fichier (fichier1) avec des formules et un autre (nomfich) où je dois les coller voici le code:
Windows("fichier1").Activate
Sheets("base").Select
Rows("3:3").Select
Selection.Copy
Windows(nomfich).Activate
Sheets("base").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Le problème est que j'obtiens des formules avec liaisons donc non valables dans nomfich.
J'ai essayé la procédure suivante pour les supprimer mais elle ne me laisse que les valeurs et pas les formules:
Option Explicit
Option Base 1
Sub supprimerliaisons()
Dim liaisons As Variant
Dim lien As Byte
liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsEmpty(liaisons) = True Then Exit Sub
For lien = 1 To UBound(liaisons)
ActiveWorkbook.BreakLink _
Name:=liaisons(lien), _
Type:=xlLinkTypeExcelLinks
Next lien
End Sub
L'autre solution serait un rechercher et remplacer mais il faudrait retoucher le code si on change le fichier formules ce que je ne veux pas.
Avez vous des solutions SVP? Merci du temps accordé.