Martialou
XLDnaute Nouveau
Bonsoir,
je me permet de vous demander s'il existe un moyen de "coller" une copie de 2 cellules dans 1 cellule ?
Je vous explique avec un morceau du code :
Donc, je sélectionne sur mon Tableau B3, une cellule "C25" par exemple, sur mon autre logiciel, je colle la donnée copier en "C25" et des infos s'affiche, je copie des données en ligne 4, colonne 64 à 70 (MyArea)
Je copie cette sélection, un petit temps de pose, et ensuite, je la colle dans mon tableau Excel sur la même ligne mais décalé d'une cellule à droite. Sauf que là, quand ça colle, le "ActiveSheet.Paste" prend 2 cellules au lieu d'une !
Exemple :
Je copie dans mon logiciel : Test 10 (Test <espace> 10)
Et je colle dans Excel : Test (saut de colonne) 10
Ce que je recherche, c'est de pouvoir coller dans la même cellule.
Merci de votre aide
je me permet de vous demander s'il existe un moyen de "coller" une copie de 2 cellules dans 1 cellule ?
Je vous explique avec un morceau du code :
Code:
Sub Etat_OI()
'********************************************
'Ici il y a toute la macro de connection à l'autre logiciel
'********************************************
Worksheets("Tableau B3").Rows(1).Copy
'Effectue une copie de la sélection
Selection.Copy
Sess0.Screen.SendKeys ("<Home>")
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
Sess0.Screen.SendKeys ("=2.1.5_")
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
Sess0.Screen.SendKeys ("<Enter>")
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
Sess0.Screen.Paste
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
Sess0.Screen.SendKeys ("<Enter>")
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(4, 64, 4, 70)
MyArea.Select
Sess0.Screen.Copy
System.TimeoutValue = OldSystemTimeout
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Donc, je sélectionne sur mon Tableau B3, une cellule "C25" par exemple, sur mon autre logiciel, je colle la donnée copier en "C25" et des infos s'affiche, je copie des données en ligne 4, colonne 64 à 70 (MyArea)
Je copie cette sélection, un petit temps de pose, et ensuite, je la colle dans mon tableau Excel sur la même ligne mais décalé d'une cellule à droite. Sauf que là, quand ça colle, le "ActiveSheet.Paste" prend 2 cellules au lieu d'une !
Exemple :
Je copie dans mon logiciel : Test 10 (Test <espace> 10)
Et je colle dans Excel : Test (saut de colonne) 10
Ce que je recherche, c'est de pouvoir coller dans la même cellule.
Merci de votre aide