chablat
Messages postés1Date d'inscriptionmercredi 5 décembre 2007StatutMembreDernière intervention 5 décembre 2007 5 déc. 2007 à 18:41
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és1Date d'inscriptionmardi 23 août 2005StatutMembreDernière intervention19 août 2008 21 oct. 2007 à 17:26
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és6Date d'inscriptionmercredi 26 novembre 2003StatutMembreDernière intervention22 juillet 2009 26 sept. 2006 à 23:42
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és4Date d'inscriptionlundi 8 décembre 2003StatutMembreDernière intervention28 août 2006 14 oct. 2005 à 12:12
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.
maydaybigfoot
Messages postés4Date d'inscriptionlundi 8 décembre 2003StatutMembreDernière intervention28 août 2006 14 oct. 2005 à 12:10
il faut remplacer par :
Set xls = CreateObject("EXCEL.APPLICATION")
[...]
xls.Workbooks.Worksheets(
xls.Workbooks.Rows
et voilà le tour est joué !
jpen
Messages postés2Date d'inscriptionmardi 30 novembre 2004StatutMembreDernière intervention16 février 2005 16 févr. 2005 à 22:47
j'ai un petit souci par rapport au codeétant donné que VBA ne reconnait pas le type Excel.Workbook. y a t il une astuce ou une opération préalable par rapport à la macro sur word?
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