Discussion :

[sivaaa]

Bonjour,

J'ai un macro qui copie une sheet ainsi que des données dans un nouveau workbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Devis").Copy
WorkSheetGenerateDevis.UsedRange.Value = WorkSheetGenerateDevis.UsedRange.Value

Cependant, lorsque j'ouvre le workbook généré j'ai le message suivant:
"Ce classeur contient une ou plusieurs liaisons qui ne peuvent pas être mises à jour"

Comment puis effectuer les 2 opérations de copie mentionnés ci-dessous (Copy sheet and UsedRange) sans copier les liaisons et donc sansa voir le message qui apparaît.

Merci d'avance pour votre aide.

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim i as long
tablo = ActiveWorkbook.LinkSources(xlExcelLinks)
  For i = 0 To UBound(tablo)
    ActiveWorkbook.BreakLink Name:=tablo(i), _
    Type:=xlExcelLinks
 Next i

En supposant que ce soient des liens excel bien sûr... Sinon modifie les.

[sivaaa]

Merci pour ta réponse. Malheureusement, j'ai quelques difficultés à la mettre en place. Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    'Je supprime les liens avec le fichier courant
    Dim i                                   As Long
    Dim WorkBookGenerateFileLinkSources     As Variant
 
    WorkBookGenerateFileLinkSources = WorkBookGenerateFile.LinkSources(xlExcelLinks)
    For i = 0 To UBound(WorkBookGenerateFileLinkSources)
        WorkBookCurrentFile.BreakLink Name:=WorkBookGenerateFileLinkSources(i), _
        Type:=xlExcelLinks
    Next i

Sachatn que :
WorkBookGenerateFile = le workbook que je génère via du code
WorkBookCurrentFile = le fichier dans lequel j'exécute la macro et qui contient les informations copiées vers le WorkBookGenerateFile

Merci d'avance

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim i As Long
Dim WorkBookGenerateFileLinkSources As Variant
 
WorkBookGenerateFileLinkSources = WorkBookGenerateFile.LinkSources(xlExcelLinks)
For i = 0 To UBound(WorkBookGenerateFileLinkSources)
WorkBookGenerateFile.BreakLink Name:=WorkBookGenerateFileLinkSources(i), _
Type:=xlExcelLinks
Next i

Tes variables sont des trucs assez violents...

MamouthAvecUnePatteEnMoinsQuiDanseLeFandangoAvecDeuxOuTroisVerresDeTrop = True

[sivaaa]

Malheureusement, cela ne fonctionne pas.
J'ai toujours le message lorsque j'ouvre le fichie généré.

[EngueEngue]

Bah ça doit être un autre type de lien..