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
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