gérer le presse papier (clipboard)

**fast&furious** · 03/11/2007, 19h57

Bonsoir,

Voilà mon problème: J'ai un classeur maitre qui gére plusieurs fichiers (appelons les OExxxx). A partir du fichier maitre on peut ouvrir par exemple le fichier OE0001. Si je fais un copier (Ctrl + C) dans ce fichier OE0001 et que je souhaite coller ma sélection dans un classeur "classique" le collage ne marche pas. Même problème dans l'autre sens (du fichier classique vers le fichier OExxxxx): comme si le presse-papiers se vidait au passage d'un fichier à l'autre...

Il faut préciser que lorsqu'on rentre dans les fichiers OExxxx, j'ai fait en sorte que la barre classique disparaisse avec apparition d'une barre personnalisée et d'un menu bouton droit souris personnalisé également. Je pense que le problème vient de là mais je n'ai vraiment aucune idée pour le résoudre à part empêcher que le presse papier se vide, mais je ne sais pas faire

Merci pour votre aide

Fast

**mapeh** · 03/11/2007, 20h16

Bonsoir, fast&furious

tu n'es pas obligé de passer de l'un à l'autre pour copier des données du 1er vers le 2ème...

tu peux très bien copier avec un code de ce style :

Code :

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

1
2
3
4
5
6
7
Sub ess()
Set f = ThisWorkbook
Workbooks.Open ("essai2.xls")
With f.Sheets("Feuil1")
[A1].Copy .[A2]
End With
End Sub

ici, je copie la cellule A1 du classeur "essai2.xls" dans la feuille 1 du classeur ayant lancé la procédure.
Peut-être

**LeForestier** · 03/11/2007, 20h29

Bonsoir,
ton fichier OExxxxx, c'est quoi ?
Si c'est un *.xls, montre le code de ta macro.
A+

**fast&furious** · 03/11/2007, 20h45

mapeh,

comme ce programme va être utilisé par des utilisateurs 'lambda" je ne souhaite pas passer par des macros pour copier.
merci quand même !

LeForestier,

les fichiers OExxx sont bien des classeurs Excels. Les codes qui se trouve dans mes fichiers sont multiples je vais déjà donner ceux qui démarre quand on active le classeur(workbook_Activate):

Code :

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

1
2
3
4
5
Private Sub Workbook_Activate()
MasqueTouteslesfeuillesdeblank
apparitiondelabarre
apparitiondelabarresouris
End Sub

Avec

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
Sub apparitiondelabarre()
 
  On Error Resume Next
  Application.CommandBars("outdoor exposure toolbar").Delete
  On Error GoTo 0
 
  With Application.CommandBars.Add(Name:="outdoor exposure toolbar")
  'on la positionne en haut à droite
  Application.CommandBars("outdoor exposure toolbar").Position = msoBarTop
Application.CommandBars("outdoor exposure toolbar").RowIndex = msoBarRowFirst
 
 
    With .Controls.Add(Type:=msoControlPopup)
      .Caption = "File"
 
        .Controls.Add Type:= _
        msoControlButton, ID:=23
 
 
 
      With .Controls.Add(msoControlButton)
        .TooltipText = "update delta and graphs" ' info bulle
        .OnAction = "boutonupdate"             ' macro à lancer
        .Caption = "Update"                  ' texte de la ligne
      End With
          With .Controls.Add(msoControlButton)
        .TooltipText = "Print this page"
        .OnAction = "impressionunefeuille"
        .Caption = "Print"
      End With
 
      With .Controls.Add(msoControlButton)
        .TooltipText = "close and save the actual file"
        .OnAction = "closeandsave"
        .Caption = "Close and Save"
      End With
    End With
 
 
    'copier coller
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Copy and Paste"
      .TooltipText = "Copy and Paste"
    .Controls.Add Type:= _
        msoControlButton, ID:=19
       .Controls.Add Type:= _
        msoControlButton, ID:=22
 
    End With
 
   ' pour les feuilles
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Data sheets"
      .TooltipText = "Allow you to reach data sheets"
 
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 2) <> "Z_" _
 And Left(feuille.Name, 3) <> "ZZ_" Then
 
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuille.Name
        .OnAction = "'affichagefeuillle """ & .Caption & """'"
 
      End With
 
  End If
Next feuille
 
    End With
 
      ' pour les graphes
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Graphs"
      .TooltipText = "Allow you to reach graphs sheets"
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 2) = "Z_" Then
 
   feuilletr = Right(feuille.Name, Len(feuille.Name) - 2)
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuilletr
        .OnAction = "'affichagefeuillle """ & "Z_" & .Caption & """'"
        .Caption = feuilletr
      End With
 
  End If
Next feuille
 
    End With
 
 
      ' pour les rapports
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Reports"
      .TooltipText = "Allow you to reach Reports sheets"
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 3) = "ZZ_" Then
 
   feuilletr = Right(feuille.Name, Len(feuille.Name) - 3)
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuilletr
        .OnAction = "'affichagefeuillle """ & "ZZ_" & .Caption & """'"
 
      End With
 
  End If
Next feuille
 
    End With
 
    .Protection = msoBarNoMove
    .Visible = True
  End With
 
 
End Sub
 
 
Sub apparitiondelabarresouris()
 
'Efface tout les boutons de la souris
For z = 1 To Application.CommandBars("Cell").Controls.Count
With Application.CommandBars("Cell")
    .Controls(z).Visible = False
    'sinon avec l'index des boutons sur la souris remplacer par 'z'
    End With
Next
 
 
With Application.CommandBars("Cell")
 
    With .Controls.Add(Type:=msoControlPopup)
      .Caption = "File"
 
      With .Controls.Add(msoControlButton)
        .TooltipText = "update delta and graphs" ' info bulle
        .OnAction = "MonAutreMacro"             ' macro à lancer
        .Caption = "Update"                  ' texte de la ligne
      End With
          With .Controls.Add(msoControlButton)
        .TooltipText = "Print this page"
        .OnAction = "impressionunefeuille"
        .Caption = "Print"
      End With
 
      With .Controls.Add(msoControlButton)
        .TooltipText = "close and save the actual file"
        .OnAction = "MonAutreMacro"
        .Caption = "Close and Save"
      End With
    End With
 
 
    'copier coller
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Copy and Paste"
      .TooltipText = "Copy and Paste"
    .Controls.Add Type:= _
        msoControlButton, ID:=19
       .Controls.Add Type:= _
        msoControlButton, ID:=22
 
    End With
 
 
 
   ' pour les feuilles
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Data sheets"
      .TooltipText = "Allow you to reach data sheets"
 
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 2) <> "Z_" _
  And Left(feuille.Name, 3) <> "ZZ_" Then
 
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuille.Name
        .OnAction = "'affichagefeuillle """ & .Caption & """'"
 
      End With
 
  End If
Next feuille
 
    End With
 
      ' pour les graphes
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Graphs"
      .TooltipText = "Allow you to reach graphs sheets"
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 2) = "Z_" Then
 
   feuilletr = Right(feuille.Name, Len(feuille.Name) - 2)
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuilletr
        .OnAction = "'affichagefeuillle """ & "Z_" & .Caption & """'"
        .Caption = feuilletr
      End With
 
  End If
Next feuille
 
    End With
 
 
      ' pour les rapports
 
     With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Reports"
      .TooltipText = "Allow you to reach Reports sheets"
 
 
For Each feuille In ActiveWorkbook.Sheets
 If Left(feuille.Name, 3) = "ZZ_" Then
 
   feuilletr = Right(feuille.Name, Len(feuille.Name) - 3)
 
  With .Controls.Add(msoControlButton)
        .TooltipText = feuille.Name
        .Caption = feuilletr
        .OnAction = "'affichagefeuillle """ & "ZZ_" & .Caption & """'"
 
      End With
 
  End If
Next feuille
 
    End With
 
   End With
 
  Application.CommandBars("Cell").Enabled = True
 
End Sub
Sub MasqueTouteslesfeuillesdeblank()
Application.ScreenUpdating = False
'masque les onglets
'With ActiveWindow
'.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
'End With
 
On Error Resume Next
' masque les en-tête de ligne et de colonne
ActiveWindow.DisplayHeadings = False
 
'masque la boîte à outils et le menu
Dim I As Integer
 
With Application.CommandBars
For I = 1 To .Count
If .Item(I).Enabled _
Then .Item(I).Enabled = False
Next I
 
Application.CommandBars("Toolbar list").Enabled = False
End With
 
' masque la barre de formule
Application.DisplayFormulaBar = False
 
'Application.ScreenUpdating = True
End Sub

Fast

**LeForestier** · 03/11/2007, 20h52

comme ce programme va être utilisé par des utilisateurs 'lambda" je ne souhaite pas passer par des macros pour copier.
merci quand même !

Et comment tes utilisateur vont-il copier?
Parceque d'un classeur à l'autre ca fonctionne avec Ctrl+V, si tu ne veux pas de macro.

**fast&furious** · 03/11/2007, 21h15

En fait l'idéal serait un Ctrl-C suivi d'un Ctrl-V. Mais cela ne marche pas.
Si je fais Ctrl-C dans un des mes classeurs OExxxx et Ctrl-V dans un classeur "standard" : rien ne se colle. j'ai l'impression que le presse papier se vide automatiquement quand je passe de l'un à l'autre.

J'espère avoir été plus clair et merci d'essayer de démêler mon problème.

fast

**mapeh** · 03/11/2007, 22h21

Re-,
et si tes utilisateurs "Lamba" sélectionnent la zone à copier, puis appuient sur le bouton qui va bien (affecté à une macro qui va bien), avec un erzats du code que je t'ai proposé, ça pourrait le faire, non?
Comme tu connais le nom du fichier-mère qui a provoqué l'ouverture du fichier-fillle, un code ad-hoc devrait pouvoir le faire

**fast&furious** · 03/11/2007, 23h06

désolé mapeh cela ne va pas.

Cela pourrait à la rigueur convenir dans le sens :
fichier OExxx vers fichier "classique standard"

mais dans le sens fichier "classique standard (qui contient des données que l'utilisateur veut copier) vers fichier OExxx:cela ne peut pas convenir car il n'y aura aucun bouton dans le fichier dit "standard".

De plus, les fichiers standards auront des noms qui ne peuvent pas être prévu dans les macros contenues par OExxx et la taille et l'emplacement de ce qu'il y aura à copier varieront selon les besoins.(en effet c'est l'utilisateur qui décidera quoi et dans quel fichier il souhaite récupérer l'info à copier dans OExxxx).

Je pense que la solution se trouve dans le fait que le presse papiers se vide lors du passage d'un fichier à l'autre.
Quand on fait une recherche sur le forum, on trouve des posts sur "comment effacer le contenu du presse papiers", ma question est plutôt "comment conserver ce qu'il y a dans le presse papiers quoi qu'il arrive?"

Fast

**ouskel'n'or** · 04/11/2007, 00h38

Pour faire un copier/coller de feuille de calculs à feuille de calculs, aucune autre opération ne doit être effectuée entre la copie et le collage. Il en va de même d'un classeur à un autre.

**LeForestier** · 04/11/2007, 15h46

Bonjour,
Exact Ouskel'n'or, j'avais fait l'essai.
De quel façon ouvre-tu les autres fichiers, est-ce qu'entretemps tu ne chargerait pas des objets... ou autre ?
Auquel cas, il faudrait sauver le clipBoard dans une variable publique et le restituer après l'ouverture de l'autre fichier.
A+

**fast&furious** · 04/11/2007, 15h52

Donc ouskel'n'or tu me confirmes que mon problème vient du fait que j'ai des actions dans Workbook_activate et Workbook_deactivate qui s'activent quand je passe d'un fichier à l'autre?

Ca sert à rien que je m'acharne à trouver une solution je pense :

visual basic 1 - fast 0

fast