Contenu textbox vers plusieurs fichiers excel [Résolu]

marsbidon 14 Messages postés jeudi 16 juin 2005Date d'inscription 16 septembre 2008 Dernière intervention - 28 sept. 2006 à 15:08 - Dernière réponse : marsbidon 14 Messages postés jeudi 16 juin 2005Date d'inscription 16 septembre 2008 Dernière intervention
- 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 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 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é 83 internautes ce mois-ci

Commenter la réponse de jrivet
marsbidon 14 Messages postés jeudi 16 juin 2005Date d'inscription 16 septembre 2008 Dernière intervention - 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.