cs_ZokraM
Messages postés6Date d'inscriptionmardi 28 novembre 2006StatutMembreDernière intervention 9 décembre 2006
-
8 déc. 2006 à 17:08
cs_ZokraM
Messages postés6Date d'inscriptionmardi 28 novembre 2006StatutMembreDernière intervention 9 décembre 2006
-
9 déc. 2006 à 00:32
Bonjour à toutes et tous. Je suis tout nouveau utilisateur de VB et je souhaiterai copier le contenu d'une TextBox d'un fichier Word dans une cellule d'un fichier Excel.
Malgré quelques recherches sur le site et sur le forum je n'ai pas trouvé mon bonheur, merci pour votre aide et vos réponses
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 9 déc. 2006 à 00:01
J'ai procécédé à qques modifications, vu que ton fichier xls est déjà ouvert :
Sub test()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim sNameFile As String
sNameFile = "Nouveau.xls" 'ici juste le titre, pas besoin du chemin
' vu que ton fichier est déjà
ouvert
Set xlApp = GetObject(, "Excel.Application")
Set xlBook = xlApp.Workbooks(sNameFile)
Set xlSheet = xlBook.Sheets("Feuil1") '
change ici le nom de la feuille
xlSheet.Select
xlSheet.Range("A1").Value = ThisDocument.TextBox1.Text
' vérifie la cellule de destination, et le nom du
contrôle
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 8 déc. 2006 à 22:11
As-tu pensé à faire ce qui est mis en commentaire (sur la référence) ?
Il faut absolument cocher Microsoft Excel [N° version] Object Library, sans ça, la bibliothèque d'objects Excel ne sera pas connue depuis Word.
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_ZokraM
Messages postés6Date d'inscriptionmardi 28 novembre 2006StatutMembreDernière intervention 9 décembre 2006 8 déc. 2006 à 23:41
depuis VBA Word, en fait j'ai fait un fichier word dans lequel j'utilise textBox et ComboBox et je voudrai , grâce a un commandButton envoyer le contenu de certaine TextBox et Combobox dans un fichier Excel, mais je sèche complètement.
Tant que je reste dans la même application ça va à peu près, je tatonne mais j'arrive à faire pratiquement ce que je veux mais là je rencontre un vrai pb lorsque je souhaite envoyer des valeurs vers une autre appli.
Merci pour ta patience