Bonjour à tous,

Je cherche à copier deux cellules d'une page d'un classeur dans un fichier d'un autre classeur. Je dois donc concaténer les deux cellules pour pouvoir le faire, mais lorsque je le fais ma chaîne n'est pas concaténer et elle affiche BASEBASEBASEBASE BASEBASEBASEBASE la ou je l'ai coller.

Voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Dim Com As Worksheet
    Dim ws As Worksheetws.Range("A12:B15").UnMerge
    Com.Cells("2,24") = Com.Cells("2,24") & " " & Com.Cells("2,25")
    Com.Cells("2,24").Cells.Copy ws.Cells(13, 1)
    ws.Range("A13:B13").Merge
    ws.Range("A13:B13").HorizontalAlignment = xlCenter
Pourriez-vous m'aider dans la résolution de mon problème ?

Merci d'avance