FORMULAIRE WORD : AUTOMATISATION DE COPIE DES DONNÉES DANS UN FICHIER EXCEL.

Signaler
Messages postés
2
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
16 février 2005
-
chablat
Messages postés
1
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
5 décembre 2007
-
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

chablat
Messages postés
1
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
5 décembre 2007

Bonjour,

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
Fouedou77
Messages postés
1
Date d'inscription
mardi 23 août 2005
Statut
Membre
Dernière intervention
19 août 2008

Bonjour,

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
jvienne
Messages postés
6
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
22 juillet 2009

bonjour,

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.
maydaybigfoot
Messages postés
4
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
28 août 2006

Il reste toutefois un gros problème sur cette macro : si jamais la personne a saisi un retour chariot dans le formulaire, le fichier texte retourne automatiquement à la ligne.

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.