[E-03] Remplacement Validation Listes

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:

---

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 :

Citation:

---

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.

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:

---

ActiveSheet.paste

---

Code:

---

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

---

Merci Fvandermeulen

J'avais pas pensé au sendkeys,

Le probème est résolu.

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é :(

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:

---

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

---

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

Re bonjour et encore merci Fvandermeulen

En résumé, pour résoudre le problème, il faut utiliser des boucles () = () plutot des Rang copy paste
Pour les cellules fusionnées, faire la boucle sur la premiere colonne.

Code:

---

1 2 3 4

For i = 5 To 30 objWorkbookHeader.Worksheets.Item(1).Cells(i + 60, 24) = objworkbooksLDOD.Worksheets.Item(1).Cells(i, 24) Next i

---

Bonjour

Essaie avec

Code:

---

1 2 3 4 5 6 7 8

on error goto fin application.displayalerts = false   objworkbooksLDOD.Worksheets(1).Range("J5:N30").Copy _ destination:=objWorkbookHeader.Worksheets(1).Range("J65") Fin: application.displayalerts = true

---

Re,
Etant donné que ta source contient autre chose que des données 'brutes' je pense qu'il vaut mieux que tu essaies la solution de Pierre Fauconnier...
Je ne pense pas que mon exemple puisse gérer tes celulles fusionnées et autres.