OVH Cloud OVH Cloud

macro imcomplète

1 réponse
Avatar
david.taieb
Bonjour

voici une macro qui répondait à un de mes problème précédent :

Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Workbooks.Add
ActiveWorkbook.SaveAs c.Value & "_" & c.Offset(0, 1).Value
ActiveWorkbook.Close
Next c
End Sub

cett emacro créé un nouveau fichier .. il faudrait que soit recopier dans
chaque nouveau fichier la ligne lui correspondant dans l'ancien fichier
ainsi que le nom des colonnes.. (la ligne 1 dans le fichier 1 etc...)

qqun pourrait il m'aider ??
c assez urgent...
désolé .. et merci à touos les bénévoles qui contribuent à ce newsgroup!!!
--
Cordialement
David TAÏEB

1 réponse

Avatar
Daniel
Pas besoin d'un second post. Regarde les réponses au premier.
Daniel
"david.taieb" <doudchy@(a_enlever)gmail.com> a écrit dans le message de
news:
Bonjour

voici une macro qui répondait à un de mes problème précédent :

Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Workbooks.Add
ActiveWorkbook.SaveAs c.Value & "_" & c.Offset(0, 1).Value
ActiveWorkbook.Close
Next c
End Sub

cett emacro créé un nouveau fichier .. il faudrait que soit recopier dans
chaque nouveau fichier la ligne lui correspondant dans l'ancien fichier
ainsi que le nom des colonnes.. (la ligne 1 dans le fichier 1 etc...)

qqun pourrait il m'aider ??
c assez urgent...
désolé .. et merci à touos les bénévoles qui contribuent à ce newsgroup!!!
--
Cordialement
David TAÏEB