Exporter une ligne de données vers une autre feuille Excel

Bonjour à tous,

Voilà j'ai un petit problème.

Je voudrais exporter une ligne de données vers un autre feuille excel d'un autre classeur dès lors que j'appuie sur mon bouton enregistrer de mon formulaire1. Je voudrais le faire sans avoir besoin d'ouvrir l'autre classeur, est-ce possible ou pas ?

Sur mon fichier TAG ANOMALIES, j'ai une feuille de données qui vient s'alimenter une fois que j'ai rempli mon formulaire et que je l'ai enregistré. et je voudrais que cette ligne que j'ai enregistré s'exporte automatiquement dans mon fichier TABLEAU DE BORD, dans la feuille "feuille de données".

Je ne sais pas si j'ai bien expliqué ?

Si quelqu'un peut m'aider ?

Merci d'avance.

Bonjour,

Essaie de passer par l'enregistreur de macro pour copier la derniere ligne de ton tableau, ensuite pour le copier dans ton autre tableau sans l'ouvrir (manuellement) tu peut mettre le chemin de ton fichier pour qu'il s'ouvre puis coller le contenu dans une feuille précise.

Bonjour Pagesalex,

Je n'arrive toujours pas à le faire

Le problème, c'est que je veux qu'il cherche la dernière ligne vide quand il va s'enregistrer (j'utilise le même code que dans ma feuille "TAG ANOMALIES")

Bonjour,

J'ai refais un essai le hic est que quand j'enregistre il m'enregistre que le numéro et la date à la dernière ligne de la feuille.

Voici le code que j'ai mis:

Windows("Tableau de bord.xlsm").Activate

Sheets("Feuille de données").Activate

Range("A6").Select

Selection.End(xlDown).Select ' On se positionne sur la dernière ligne non vide

Selection.Offset(0, 0).Select ' On se decale d'une ligne vers le bas

ActiveCell = TextBoxNumero

ActiveCell.Offset(0, 1) = Cmb_Zone

ActiveCell.Offset(0, 2) = Cmb_Equipe

ActiveCell.Offset(0, 3) = Cmb_Redacteur

ActiveCell.Offset(0, 4) = Cmb_Secteur

ActiveCell.Offset(0, 5) = Txt_Date

ActiveCell.Offset(0, 6) = Cmb_Detecte

ActiveCell.Offset(0, 7) = Cmb_Outil

ActiveCell.Offset(0, 8) = Cmb_Designation

ActiveCell.Offset(0, 9) = Cmb_Reference

ActiveCell.Offset(0, 10) = Cmb_Defaut

ActiveCell.Offset(0, 11) = TxtBoxCommentaire

ActiveCell.Offset(0, 12) = Cmb_Defaut_Connu

ActiveCell.Offset(0, 13) = Txt_Defaut_Connu_Quand

ActiveCell.Offset(0, 14) = Cmb_Qualite_Informe

ActiveCell.Offset(0, 15) = Cbm_Production_Stoppe

ActiveCell.Offset(0, 16) = Cmb_etiquette_envoye

ActiveCell.Offset(0, 17) = Txt_Box_Rebut

ActiveCell.Offset(0, 18) = TextBox1

ActiveCell.Offset(0, 19) = TextBox2

ActiveCell.Offset(0, 20) = TextBox3

ActiveCell.Offset(0, 21) = TextBox4

ActiveCell.Offset(0, 22) = TextBox5

ActiveCell.Offset(0, 23) = TextBox6