Problemede reconnaissance de la derniere ligne

Le
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 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #4262601
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"
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
Le #4262581
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



LSteph
Le #4262481
...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





Publicité
Poster une réponse
Anonyme