Fusion de cellule

Bonjour,

Dans mon code VB, j'essaie de fusionner deux cellules Excel:

Code:

---

1 2	Application.Workbooks.Open CheminApp & "fichier.xls", , 1 Application.ActiveWorkbook.ActiveSheet.Range("B2", "C4").Merge

---

Le fusion ca marche, mais il m'affiche un message a chaque fusion de cellules.

http://www.monsterup.com/upload/1269445246369.jpg
Merci

Bonjour,
Il me semble que le message est clair, ça n'a rien à voir avec VB mais si tu fusionnes 2 cellules qui contiennent des données, la nouvelle cellule résultante ne peut contenir qu'une seule valeur.

merci,

oui c vrai. Mais je ne peux pas cacher ce message?
car il gène l'utilisateur.

Displayalerts=false

Ou je le mets ??
après .merge ??

salut
il me semble :

Code:

---

1 2 3 4

Application.Workbooks.Open CheminApp & "fichier.xls", , 1 Displayalerts=false Application.ActiveWorkbook.ActiveSheet.Range("B2", "C4").Merge Displayalerts=true

---

(je prefere le remettre a la fin pour éviter toute manip par erreur...)