Discussion :

[pasclaire]

Bonjour,

Dans mon script en VBA XLS 2003, J'utilise des copiés collés entre 2 documents ci-dessous les commandes utilisés.

Code :

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

1
2
3
4
objworkbooksLDOD.Worksheets.Item(1).Range("J5:N30").Copy
objWorkbookHeader.Worksheets.Item(1).Activate
Range("J65:N90").Select
ActiveSheet.Paste

lors du collé, J'ai un message Windows :

Une formule ou une feuille que vous voulez déplacer contient le nom <document> qui existe déjà sur la feuillle de destination.
Voulez vous utiliser cette version du nom ?
Oui Nom

Avez vous une solution / paramètrage des cellules utilisants une Validation/liste évitant le message windows ?
Dans mon cas on doit toujours répondre Oui

Merci d'avance pour votre aide.

[Fvandermeulen]

Bonjour,
Une des solutions, assez simple, consiste à répondre 'oui' automatiquement par un "send key", voici la partie du code à ajouter au moment où il faut valider. j'imagine que ce sera justa après

Code :

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

ActiveSheet.paste

Code :

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

Sendkeys string:="{enter}", wait:=false

[pasclaire]

Merci Fvandermeulen

J'avais pas pensé au sendkeys,

Le probème est résolu.

[pasclaire]

Re bonjour,

J'ai répondu trop vite,

Dans le cas ou la macro est lancé sur le document recepteur, le fonctionnement est correcte.

Quand la macro est lancé à partir d'un autre document (tableau de commande),
Le message Windows est toujours demandé

[Fvandermeulen]

C'est quoi que tu copies ?
Des données, une plage nommée,
Pourquoi objworkbooksLDOD & objWorkbookHeader ?
Si ce ne sont que des données, voici un exemple de code qui peut t'inspirer, il faudra adapter le nom des feuilles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
For c = 10 To 14           'c pour colonne; 10 = col J et 14 col N
 
    For l = 5 To 30          'l pour ligne; boucle pour passer sur toutes les lignes
    maSource = Sheets("sheet1").Cells(l, c)
    Sheets("sheet2").Cells(l + 60, c) = maSource
    Next l
 
Next c
 
End Sub

[pasclaire]

re bonjour,

Mon environnement est le suivant :

a) 1 document xls contenant toutes les macros et un tableau de commande pour gérer une 15aines de documents differents.

b) 1 document créé .xls (nouveau)
objWorkbookHeader pointe vers ce document.


c) 1 document de reference .xls contenant une liste de destinataire a renseigner
objworkbooksLDOD pointe vers ce document de reference.
Si ce document existe, je copie des informations vers le document (b)


Quand j'execute la macro à partir du document (b)
Le sendkeys joue bien son role.

Quand j'execute la macro a partir du document de commande(a)
Le sendkeys n'empeche pas le message windows.

Je travail avec des Ranges de selection à cause de case fusionnées
(Ligne par ligne, les 4 cases sont fusionnées)
Ca fonctionne bien sauf pour les cases avec des listes de choix


Je regarde ce que ca donne avec des boucles