bonjour à tous,
j'essaie de realiser une macro pour recopier des donnees de Word vers Excel
mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas:
si vous aviez une suggestion pour m'aider ,merci à l'avance
Hugo
voici le code
Sub test()
Dim b, , i, AB, j
Dim a
a = ActiveDocument.FormFields.Count
MsgBox (a)
ReDim AB(a)
For j = 1 To a
AB(j) = FormFields(j).Result
Next j
Dim d
Dim MyXL As Object
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject("D:\Mes documents\C1.xls")
Dim derligne
derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a
MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d)
Next d
MyXL.Application.Visible = True
MyXL.Save
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
Bonjour Hugo Tu hèles GEO sur le forum Word. Il est spécialiste des transfusions Word--> Excel. Bonne chance
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"hugo" a écrit dans le message de news:
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save
Set MyXL = Nothing End Sub
Bonjour Hugo
Tu hèles GEO sur le forum Word. Il est spécialiste des transfusions Word-->
Excel.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
292D696C-5C31-478C-9153-A803C86C0E11@microsoft.com...
bonjour à tous,
j'essaie de realiser une macro pour recopier des donnees de Word vers
Excel
mais l'instruction concernant la derniere ligne (derligne) ne fonctionne
pas:
si vous aviez une suggestion pour m'aider ,merci à l'avance
Hugo
voici le code
Sub test()
Dim b, , i, AB, j
Dim a
a = ActiveDocument.FormFields.Count
MsgBox (a)
ReDim AB(a)
For j = 1 To a
AB(j) = FormFields(j).Result
Next j
Dim d
Dim MyXL As Object
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne
derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a
MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d)
Next d
MyXL.Application.Visible = True
MyXL.Save
Bonjour Hugo Tu hèles GEO sur le forum Word. Il est spécialiste des transfusions Word--> Excel. Bonne chance
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"hugo" a écrit dans le message de news:
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save
Set MyXL = Nothing End Sub
LSteph
Bonjour, Sans approfondir le reste
Dim derligne derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement. 'lSteph
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save
Set MyXL = Nothing End Sub
Bonjour,
Sans approfondir le reste
Dim derligne
derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement.
'lSteph
bonjour à tous,
j'essaie de realiser une macro pour recopier des donnees de Word vers Excel
mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas:
si vous aviez une suggestion pour m'aider ,merci à l'avance
Hugo
voici le code
Sub test()
Dim b, , i, AB, j
Dim a
a = ActiveDocument.FormFields.Count
MsgBox (a)
ReDim AB(a)
For j = 1 To a
AB(j) = FormFields(j).Result
Next j
Dim d
Dim MyXL As Object
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne
derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a
MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d)
Next d
MyXL.Application.Visible = True
MyXL.Save
Dim derligne derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement. 'lSteph
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save
Set MyXL = Nothing End Sub
LSteph
...d'ailleurs ceci serait mieux
Dim derligne as long
derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement. 'lSteph
Bonjour, Sans approfondir le reste
Dim derligne derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement. 'lSteph
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save
Set MyXL = Nothing End Sub
...d'ailleurs ceci serait mieux
Dim derligne as long
derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement.
'lSteph
Bonjour,
Sans approfondir le reste
Dim derligne
derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement.
'lSteph
bonjour à tous,
j'essaie de realiser une macro pour recopier des donnees de Word vers
Excel
mais l'instruction concernant la derniere ligne (derligne) ne
fonctionne pas:
si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo
voici le code Sub test()
Dim b, , i, AB, j
Dim a
a = ActiveDocument.FormFields.Count
MsgBox (a)
ReDim AB(a)
For j = 1 To a
AB(j) = FormFields(j).Result
Next j
Dim d
Dim MyXL As Object
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne
derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a
MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d)
Next d
MyXL.Application.Visible = True
MyXL.Save
Dim derligne derligne = MyXL.sheets(1).[a65536].end(xlup).row
'Cordialement. 'lSteph
bonjour à tous, j'essaie de realiser une macro pour recopier des donnees de Word vers Excel mais l'instruction concernant la derniere ligne (derligne) ne fonctionne pas: si vous aviez une suggestion pour m'aider ,merci à l'avance Hugo voici le code Sub test() Dim b, , i, AB, j Dim a a = ActiveDocument.FormFields.Count MsgBox (a) ReDim AB(a) For j = 1 To a AB(j) = FormFields(j).Result Next j
Dim d Dim MyXL As Object Set MyXL = GetObject(, "Excel.Application") Set MyXL = GetObject("D:Mes documentsC1.xls")
Dim derligne derligne = MyXL.sheets(1).Range("a1").CurrentRegion.Row
MsgBox (derligne)
For d = 1 To a MyXL.sheets(1).Cells(derligne + 1, d).Value = AB(d) Next d MyXL.Application.Visible = True MyXL.Save