Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher un UserForm

basma

XLDnaute Junior
Bonjour.
J’ai encore une question pour les super héros XLD !

J’ai créé un beau Userform en Excel 2003. Et j’exporte les différents champs ( textbox, combobox, optionbutton, etc. ) vers une table Access.

J’aimerais retrouver un Userform que j’ai encodé auparavant.
Chaque Userform a un compteur.
Le dernier n° est le 123 et je voudrais retrouver le UserForm n° 56, par ex, avec toutes ses zones remplies.
Voire pouvoir le retraiter à nouveau ( ajout ou suppression de texte ) et ré-exporter la nouvelle version.
Oui, je sais, je suis casse-pieds !!!!!!!

--------------
'Workbook Excel = PROJET.xls'
'Worksheet Excel = FICHE1'
'Nom UserForm = FICHE'
'Base Access = PROJET.mdb'
'Table Access = FICHE'
' il y a 55 colonnes ou données à transférer du formulaire Excel vers la table Access'


'Compteur N° requête'
Cells(2, 6).Value = Cells(2, 6).Value + 1
TextBox6 = Cells(2, 6).Value
Sheets('FICHE1').Range('F2').Value = TextBox6.Value


'transfert des données vers la table Access'
With rsT
.AddNew
.Fields('Date d'entrée').Value = TextBox1
.Fields('Nom requête').Value = TextBox2
.Fields('Département demandeur').Value = TextBox3
.Fields('N° requête').Value = TextBox6

.Update
End With

rsT.Close
Conn.Close
------------------

MERCI BEAUCOUP !!!!!!!!!!!!!!!!!!!!!!
Basma
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…