Contenu textbox vers plusieurs fichiers excel [Résolu]

marsbidon
Messages postés
14
Date d'inscription
jeudi 16 juin 2005
Dernière intervention
16 septembre 2008
- 28 sept. 2006 à 15:08 - Dernière réponse : marsbidon
Messages postés
14
Date d'inscription
jeudi 16 juin 2005
Dernière intervention
16 septembre 2008
- 2 oct. 2006 à 12:46
Bonjour,
 
Voilà mon problème :
 
J'ai en classeur excel qui ouvre un "userform" au démarrage. Ce userform comporte 3 "textbox" et un bouton validation.
Je voudrai qu'en cliquant le bouton, les données entrées dans les textbox s'enregistrent dans des cellules d'autres fichiers excel mais que ces fichiers ne restent pas ouverts (modification et enregistrement silencieux).
 
Quelqu'un pourrait m'aider pour le code SVP (novice en VB)
 
Merci d'avance
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 2 oct. 2006 à 11:18
3
Merci
Salut,


Place ceci dans le UserForm => NOTE: Je n'ai pas renommer les controls








Private Sub CommandButton1_Click() 
'Variable représentant le classeur "destination"
Dim Wb As Workbook 
'Ouverture du classeur de destination
Set Wb = Application.Workbooks.Open("C:\B.xls") 

Call Wb.Activate 
'Réduit la fenêtre pour rendre "invisible" le classeur
ActiveWindow.WindowState = xlMinimized 

'Place dans la cellule A1 le contenu de TextBox1
Wb.Worksheets("Feuil1").Range("A1").Value = TextBox1.Text 
'Place dans la cellule B1 le contenu de TextBox2
Wb.Worksheets("Feuil1").Range("B1").Value = TextBox2.Text 
'Place dans la cellule C1 le contenu de TextBox3
Wb.Worksheets("Feuil1").Range("C1").Value = TextBox3.Text 

'Fermeture du classeur en sauvant les changements
Call Wb.Close(True) 
'Destruction de l'objet
Set Wb = Nothing 

End Sub 
 







<small> Coloration syntaxique automatique [AFCK]</small>

       









 






@+,   Ju£i?n

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de jrivet
marsbidon
Messages postés
14
Date d'inscription
jeudi 16 juin 2005
Dernière intervention
16 septembre 2008
- 2 oct. 2006 à 12:46
0
Merci
Bonjour,

merci beaucoup pour votre réponse.

J'avais partiellement trouvé la réponse en cherchant tout seul mais il me manquait quelques codes pour que cela marche.

MAintenant c'est bon.

Merci
Commenter la réponse de marsbidon

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.