Transfert données Excel vers logiciel erreur

Bonsoir,

Je tente de transférer à l'aide d'une macro vba trouvée ici et remodelé légèrement de transférer des données d'excel vers un autre logiciel en passant pas un bouton d'ellipse mais je tombe sur une erreur que je ne comprend pas.

Je souhaiterais cliquer sur un nom dans la colonne A, puis sur le bouton d'ellipse (qui deviendra par la suite un bouton dans un ruban quand j'aurai régler ce problème) ensuite les données que je souhaite se copierait vers mon logiciel tiers.

Salut Suetake77,

essaie comme ca (code non testé!)

Sub Ellipse1_Clic()

If ActiveCell.Value <> "" Then

        ' sauf ligne de titre et ligne vide
        If ActiveCell.Row = 1 Then Exit Sub
        If ActiveCell.Value = "" Then Exit Sub

                'Le & permet de tab
        For i = 1 To 3
            copie = copie & Cells(ActiveCell.Row, i).Value & ";"
        Next i

        'remplace le & par ; et puis par tab
        copie = Replace(copie, ";", "{TAB}")

        AppActivate "Bloc-notes"
        Application.SendKeys (copie)

        Cells(ActiveCell.Row, 2).Select

    End If
    Exit Sub

fin:
    MsgBox "L'application """ & ActiveCell.Value & """ n'est pas lancée !"
    Cells(ActiveCell.Row, 2).Select

End Sub

@++

Hmm non ca ne fonctionne toujours pas , j'ai une erreur d'éxécution 424

quelle ligne?

Non je n'ai rien dis j'avais mal copié

pfffff