J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50
colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que
quand on actualise un de ces fichiers, le grand fichier sera actualisé
automatiquement.
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
Daniel
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
Est-ce que c'est possible de le faire facilement?
Merci
Eduardo
Bonjour.
J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton
nombre exact de linges :
Sub test()
Dim NomFichier As String
NomFichier = ActiveWorkbook.Name
For i = 1 To 12
Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "toto" & i & ".xls"
Selection.Copy
Workbooks(NomFichier).Activate
ActiveSheet.Paste Link:=True
Workbooks("toto" & i & ".xls").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next i
End Sub
Cordialement.
Daniel
"tenisverde" <tenisverde@discussions.microsoft.com> a écrit dans le message
de news: 3B09B558-A4C1-4ED4-AFAA-CFF1070396CB@microsoft.com...
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50
colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon
que
quand on actualise un de ces fichiers, le grand fichier sera actualisé
automatiquement.
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
Est-ce que c'est possible de le faire facilement?
Merci
Eduardo
tenisverde
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal sera maintenue?
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
Est-ce que c'est possible de le faire facilement?
Merci
Eduardo
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal sera
maintenue?
Bonjour.
J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton
nombre exact de linges :
Sub test()
Dim NomFichier As String
NomFichier = ActiveWorkbook.Name
For i = 1 To 12
Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "toto" & i & ".xls"
Selection.Copy
Workbooks(NomFichier).Activate
ActiveSheet.Paste Link:=True
Workbooks("toto" & i & ".xls").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next i
End Sub
Cordialement.
Daniel
"tenisverde" <tenisverde@discussions.microsoft.com> a écrit dans le message
de news: 3B09B558-A4C1-4ED4-AFAA-CFF1070396CB@microsoft.com...
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50
colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon
que
quand on actualise un de ces fichiers, le grand fichier sera actualisé
automatiquement.
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal sera maintenue?
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
Est-ce que c'est possible de le faire facilement?
Merci
Eduardo
Daniel
Quand tu fais une modification dans l'un des douze fichiers, elle est reportée dans le fichier initial. Daniel "tenisverde" a écrit dans le message de news:
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal sera maintenue?
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
Est-ce que c'est possible de le faire facilement?
Merci
Eduardo
Quand tu fais une modification dans l'un des douze fichiers, elle est
reportée dans le fichier initial.
Daniel
"tenisverde" <tenisverde@discussions.microsoft.com> a écrit dans le message
de news: 115DE3A7-AC21-43FA-AF0D-34DE3EDF999F@microsoft.com...
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal
sera
maintenue?
Bonjour.
J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton
nombre exact de linges :
Sub test()
Dim NomFichier As String
NomFichier = ActiveWorkbook.Name
For i = 1 To 12
Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "toto" & i & ".xls"
Selection.Copy
Workbooks(NomFichier).Activate
ActiveSheet.Paste Link:=True
Workbooks("toto" & i & ".xls").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next i
End Sub
Cordialement.
Daniel
"tenisverde" <tenisverde@discussions.microsoft.com> a écrit dans le
message
de news: 3B09B558-A4C1-4ED4-AFAA-CFF1070396CB@microsoft.com...
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50
colonnes et je voudrais le découper en 12 fichiers séparées, d'une
façon
que
quand on actualise un de ces fichiers, le grand fichier sera actualisé
automatiquement.
Quand tu fais une modification dans l'un des douze fichiers, elle est reportée dans le fichier initial. Daniel "tenisverde" a écrit dans le message de news:
Merci j'essayerais ça, en tout cas, la liaison avec le fichier principal sera maintenue?
Bonjour. J'ai découpé le fichier par tranches de 34 lignes. A changer selon ton nombre exact de linges :
Sub test() Dim NomFichier As String NomFichier = ActiveWorkbook.Name For i = 1 To 12 Range(Cells((i - 1) * 34 + 1, 1), Cells(i * 34, 50)).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "toto" & i & ".xls" Selection.Copy Workbooks(NomFichier).Activate ActiveSheet.Paste Link:=True Workbooks("toto" & i & ".xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Next i End Sub
Cordialement. Daniel "tenisverde" a écrit dans le message de news:
Bonjour,
J'ai besoin d'aide, j'ai un fichier Excel de plus de 400 lignes et 50 colonnes et je voudrais le découper en 12 fichiers séparées, d'une façon que quand on actualise un de ces fichiers, le grand fichier sera actualisé automatiquement.
