Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel help

help

1 réponse
Avatar
Kic
bonjour

cette procédure ne fonctionne pas.
elle bloque sur la 3eme ligne
quelqu'un a peut etre une idée?

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy
set wk = Workbooks.Open Filename:="C:\Documents and Settings\Eric\Mes
documents\85\d85\" & Range("B" & i) & ".xls"
Wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
Wk.Application.CutCopyMode = False
Wk.Save
Wk.Close
Next i


merci
a+
kic
Signaler un problème avec ce contenu

1 réponse

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
Bob Phillips
For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy
Set wk = Workbooks.Open( _
Filename:="C:Documents and SettingsEricMes documents85d85" &
Range("B" & i) & ".xls")
wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
wk.Application.CutCopyMode = False
wk.Save
wk.Close
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Kic" wrote in message
news:448c2be9$0$22868$
bonjour

cette procédure ne fonctionne pas.
elle bloque sur la 3eme ligne
quelqu'un a peut etre une idée?

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy
set wk = Workbooks.Open Filename:="C:Documents and SettingsEricMes
documents85d85" & Range("B" & i) & ".xls"
Wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
Wk.Application.CutCopyMode = False
Wk.Save
Wk.Close
Next i


merci
a+
kic