FORMULAIRE WORD : AUTOMATISATION DE COPIE DES DONNÉES DANS UN FICHIER EXCEL.
jpen
Messages postés
2
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
16 février 2005
-
16 févr. 2005 à 22:47
chablat Messages postés 1 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 5 décembre 2007 - 5 déc. 2007 à 18:41
chablat Messages postés 1 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 5 décembre 2007 - 5 déc. 2007 à 18:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23335-formulaire-word-automatisation-de-copie-des-donnees-dans-un-fichier-excel
https://codes-sources.commentcamarche.net/source/23335-formulaire-word-automatisation-de-copie-des-donnees-dans-un-fichier-excel
5 déc. 2007 à 18:41
Pour éviter le retour chariot dans Excel, j'ai copié dans un fichier intermédiaire. Après j'utiliser Fichiers.txt (attention, chez moi, le fichier existe déjà)
Dim fso1, fso2
Dim fs1, fs2 As Object
Dim Lecture As String
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set fso2 = CreateObject("Scripting.FileSystemObject")
Set fs1 = fso1.OpenTextFile("Fichier.txt")
Set fs2 = fso2.OpenTextFile("Fichiers.txt", 2)
Lecture = fs1.Readline
fs2.Write Replace(Lecture, Chr(13), " ")
fs1.Close
fs2.Close
Set fs1 = Nothing
Set fs2 = Nothing
21 oct. 2007 à 17:26
J'ai ce message d'erreur lors de l'execution de la macro : Erreur de compilation. Type défini par l'utilisateur non défini
, wkb As Excel.Workbook
Je ne comprends rien du tout... :(
Merci d'avance pour votre aide précieuse
26 sept. 2006 à 23:42
ce code m'interesse vraiment, mais impossible de le faire fonctionner chez moi malgres les remplacements expliqués ci-dessus.
Pouvez-vous SVP réecrire le programme avec les corrections car excel ne reconnait pas plusieur type comme la Dim de wkb...
Merci.
14 oct. 2005 à 12:12
Exemple :
"titi";"toto";"tata"; -> fichier OK
"titi";"toto";"tata
tutu
truc"; -> fichier !OK
Auriez vous une solution pour remplacer sous Word le retour chariot (et le retour à la ligne) par un caractère identifié comme retour à la ligne sous Excel.
merci d'avance.
14 oct. 2005 à 12:10
Set xls = CreateObject("EXCEL.APPLICATION")
[...]
xls.Workbooks.Worksheets(
xls.Workbooks.Rows
et voilà le tour est joué !
16 févr. 2005 à 22:47
merci