Discussion :

[Pirrou]

Bonjour,
Je travaille avec office 2010. J'ai fait un collage avec liaison d'un tableau excel vers un document word. A chaque fois que j'ouvre le document word qui contient le tableau provenant d'un classeur excel, il m'ouvre automatiquement le classeur excel qui contient le tableau source. Comment désactiver l'ouverture automatique du classeur contenant le tableau source ? Merci de votre aide.

[Kirikou3010]

Bonsoir à tous,

je me permets de relancer le topic en suppliant les experts!

J'ai le même problème et je n'arrive pas à trouver de solution.

La question est : Y en a t-il?

Bonne nuit à tous, et merci d'avance!

[Heureux-oli]

Salut,

Le problème c'est que je ne parviens pas à reproduire votre problème.


Que ce soit avec un collage spécial ou par une insertion de fichier Excel, lorsque j'ouvre le document, j'ai juste un message de mise à jour des liaisons.

[jemilie]

Bonjour,

Ouf, ca me rassure je commencais à croire que j'étais le seul avec ce problème...
A devenir fou, ca fait plus de 6 mois que j'essaie de trouver la solution mais désolé je n'ai pas trouvé et comme dis kirikou : Y'en a t-il ???

[Heureux-oli]

Salut,

Il serait peut-être intéressant d'expliquer comment vous construisez le document;

Comme déjà dit, je ne rencontre pas ce problème d'ouverture.
Ce qui me pose problème, il est difficile de corriger un problème que je n'ai pas.

[jemilie]

Bonjour,

Je pensais que la solution serait plus évidente et ne veux
- ni empieter sur le sujet de Pirrou qui m'intéresse mais la solution à notre problème pourrait être différente
ni

[jemilie]

Pardon mauvaise manip
ni vous polluer

Pour résumer, les différents tableaux que je veux insérer proviennent de différent tableurs mais ces différents excels proviennent tous du même modèle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub CommandButton1_Click()
 Dim fdlg As FileDialog
     Set fdlg = Application.FileDialog(msoFileDialogFilePicker)
    With fdlg
        .Filters.Clear
        .Filters.Add "Tableur essai 1(.xlsm)", "*.xlsm"
        .Filters.Add "Tableur essai 1.xlsx)", "*.xlsx"
        .Filters.Add "Tableur essai 1(.xls)", "*.xls"
        .InitialFileName = ActiveWorkbook.Path
        .AllowMultiSelect = False
    End With
    fdlg.Show
    TextBox1.Text = fdlg.SelectedItems(1)
    intermediaire1 = Mid(Trim(TextBox1), 1, InStrRev("\" & TextBox1, "\") - 1)
    nomclasseur1 = Right(TextBox1, Len(TextBox1) - Len(intermediaire1))
    Set fdlg = Nothing
End Sub

Puis je colle mes tableaux de cette manière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub copie_colle()
 
Set appXl = GetObject(, "Excel.Application")
Err.Number = 0
ouvert = 0
For Each wb In appXl.Workbooks
If wb.Name = nomclasseur1 Then
ouvert = 1
End If
If ouvert = 1 Then
Exit For
End If
Next
Err.Clear
 
If ouvert = 0 Then
Set appXl = CreateObject("Excel.Application")
Set wb = appXl.Workbooks.Open(TextBox1)
appXl.Visible = False
End If
If ouvert = 1 Then
Set appXl = GetObject(, "Excel.Application")
End If
 
appXl.Workbooks(nomclasseur1).Activate
 
If UserForm2.CheckBox1 = True Then
If ActiveDocument.Bookmarks.Exists(signet) = True Then
Selection.GoTo What:=wdGoToBookmark, Name:=signet
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.MoveLeft Unit:=wdCharacter, Count:=1
appXl.Range(tab1).Copy
Selection.PasteSpecial Link:=True, DataType:=wdPasteBitmap, Placement:=wdInLine, DisplayAsIcon:=False
Selection.InsertBreak Type:=wdPageBreak
OpenClipboard 0
EmptyClipboard
CloseClipboardIf ouvert = 0 Then
appXl.ActiveWorkbook.Close False
appXl.Quit
End If
Set wb = Nothing
Set appXl = Nothing
end sub

Avec les déclarations suivantes:

Code :

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

1
2
3
4
5
6
7
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public appXl As Excel.Application
Public wb As Excel.Workbook
Public ouvert As Integer
Public nomclasseur1   As String, Public intermediaire1   As String

et l'ajout de Microsoft excel 14.0 objet library dans la bibliothèque

Enfin je ne sais pas si c'est lié ou pas mais quand je colle les tableaux de cette manière :
copier, collage spéciale, collage avec liaison , Image métafichié (windows), l'image inséré passe de 18 à 20 puis de 20 à 18 de largeur continuellement qui donne l'effet de clignoter alors qu'avec un autre tableur non issu du modèle je n'ai pas de problème.