Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problemede reconnaissance de la derniere ligne

Problemede reconnaissance de la derniere ligne

3 réponses
Avatar
hugo
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

Set MyXL = Nothing
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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



Avatar
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



Avatar
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