Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
mais rencontre un problème : il me copie également les formules et les liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
mais rencontre un problème : il me copie également les formules et les liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
mais rencontre un problème : il me copie également les formules et les liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour.
Tu peux faire comme ça :
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In Sheets
F.Copy
Cells.Clear
F.Cells.Copy
[A1].PasteSpecial xlValues
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
Seulement, tu crées un classeur par feuille copiée et tu ne sauvegardes
que la dernière ?
Daniel
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour.
Tu peux faire comme ça :
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In Sheets
F.Copy
Cells.Clear
F.Cells.Copy
[A1].PasteSpecial xlValues
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
Seulement, tu crées un classeur par feuille copiée et tu ne sauvegardes
que la dernière ?
Daniel
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour.
Tu peux faire comme ça :
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In Sheets
F.Copy
Cells.Clear
F.Cells.Copy
[A1].PasteSpecial xlValues
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
Seulement, tu crées un classeur par feuille copiée et tu ne sauvegardes
que la dernière ?
Daniel
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
> Merci pour ta réponse mais je ne comprends pas ce que fait le
"[A1].PasteSpecial xlValues" ?
Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> Merci pour ta réponse mais je ne comprends pas ce que fait le
"[A1].PasteSpecial xlValues" ?
Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> Merci pour ta réponse mais je ne comprends pas ce que fait le
"[A1].PasteSpecial xlValues" ?
Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouv eau
mais rencontre un problème : il me copie également les formules et le s liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichi er
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouv eau
mais rencontre un problème : il me copie également les formules et le s liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichi er
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouv eau
mais rencontre un problème : il me copie également les formules et le s liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichi er
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
> Merci pour ta réponse mais je ne comprends pas ce que fait le
> "[A1].PasteSpecial xlValues" ?
>
Ca recopie les valeurs des cellules de la feuille source sur la feuille
cible. Ainsi, plus de formules.
> Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
Oui.Teste-le pour t'en assurer.
Daniel
> Merci pour ta réponse mais je ne comprends pas ce que fait le
> "[A1].PasteSpecial xlValues" ?
>
Ca recopie les valeurs des cellules de la feuille source sur la feuille
cible. Ainsi, plus de formules.
> Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
Oui.Teste-le pour t'en assurer.
Daniel
> Merci pour ta réponse mais je ne comprends pas ce que fait le
> "[A1].PasteSpecial xlValues" ?
>
Ca recopie les valeurs des cellules de la feuille source sur la feuille
cible. Ainsi, plus de formules.
> Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
Oui.Teste-le pour t'en assurer.
Daniel
bonjour,
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Copy
ActiveSheet.Cells.Copy
ActiveSheet.[A1].PasteSpecial xlValues
With ActiveWorkbook
.SaveAs "c:test" & i & ".xls"
.Close
End With
Next i
End Sub
'lSteph
On 12 nov, 12:25, Gandalf wrote:
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
bonjour,
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Copy
ActiveSheet.Cells.Copy
ActiveSheet.[A1].PasteSpecial xlValues
With ActiveWorkbook
.SaveAs "c:test" & i & ".xls"
.Close
End With
Next i
End Sub
'lSteph
On 12 nov, 12:25, Gandalf <Gand...@discussions.microsoft.com> wrote:
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
bonjour,
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Copy
ActiveSheet.Cells.Copy
ActiveSheet.[A1].PasteSpecial xlValues
With ActiveWorkbook
.SaveAs "c:test" & i & ".xls"
.Close
End With
Next i
End Sub
'lSteph
On 12 nov, 12:25, Gandalf wrote:
> Bonjour,
>
> J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un nouveau
> mais rencontre un problème : il me copie également les formules et les liens.
>
> Je voudrais simplement copier les données sans les formules.
> Actuellement, j'utilise le code ci-dessous :
>
> ------------------------------------------------------
> Dim F As WorkSheet
> Application.ScreenUpdating = False
> For Each F in Sheets
> Sheets(F.Name).Copy
> Next F
> Application.ScreenUpdating = True
> With ActiveWorkbook
> .SaveAs "c:test.xls"
> .Close
> End With
> ------------------------------------------------------------------
>
> Merci d'avance pour toute aide sur ce sujet.
>
> PS : je suis obligé de faire cela pour réduire la taille de mon fichier
> excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
> onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> >
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
>
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> >
>
> Oui.Teste-le pour t'en assurer.
> Daniel
>
>
>
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
Je vais déjà tester ainsi.
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> >
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
>
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> >
>
> Oui.Teste-le pour t'en assurer.
> Daniel
>
>
>
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
Je vais déjà tester ainsi.
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> >
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
>
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> >
>
> Oui.Teste-le pour t'en assurer.
> Daniel
>
>
>
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
Je vais déjà tester ainsi.
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> Oui.Teste-le pour t'en assurer.
> Daniel
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
Je vais déjà tester ainsi.
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> Oui.Teste-le pour t'en assurer.
> Daniel
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
Je vais déjà tester ainsi.
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
"Daniel.C" wrote:
> > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > "[A1].PasteSpecial xlValues" ?
> Ca recopie les valeurs des cellules de la feuille source sur la feuille
> cible. Ainsi, plus de formules.
> > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
> Oui.Teste-le pour t'en assurer.
> Daniel
Bonjour,
Merci pour cette réponse.
Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'ongl ets ?
Je vais déjà tester ainsi.
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un
nouveau
mais rencontre un problème : il me copie également les formules et les
liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un
nouveau
mais rencontre un problème : il me copie également les formules et les
liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
Bonjour,
J'essaie de copier toutes les feuilles de mon classeur EXCEL vers un
nouveau
mais rencontre un problème : il me copie également les formules et les
liens.
Je voudrais simplement copier les données sans les formules.
Actuellement, j'utilise le code ci-dessous :
------------------------------------------------------
Dim F As WorkSheet
Application.ScreenUpdating = False
For Each F in Sheets
Sheets(F.Name).Copy
Next F
Application.ScreenUpdating = True
With ActiveWorkbook
.SaveAs "c:test.xls"
.Close
End With
------------------------------------------------------------------
Merci d'avance pour toute aide sur ce sujet.
PS : je suis obligé de faire cela pour réduire la taille de mon fichier
excel. Actuellement il fait 50 Mo !! Et je regarde qu'en copiant tous les
onglets "à la main" dans un nouveau fichier, il ne fait plus que 2 Mo !
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
N'est-ce pas ce que tu demandais?
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
N'est-ce pas ce que tu demandais?
aussi!
Il y en a un
Enregistrer Sous et tu donnes un autre nom et un autre emplacement à
ton classeur
ensuite tu fais un copier coller des feuilles sur elles mêmes
ou
de la même façon par macro
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs "c:test.xls"
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).[A1].PasteSpecial xlValues
Next i
ActiveWorkbook.Save
End Sub
On 13 nov, 09:40, Gandalf wrote:
> "Daniel.C" wrote:
> > > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > > "[A1].PasteSpecial xlValues" ?
>
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
>
> > > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
> > Oui.Teste-le pour t'en assurer.
> > Daniel
>
> Bonjour,
>
> Merci pour cette réponse.
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
>
> Je vais déjà tester ainsi.
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
N'est-ce pas ce que tu demandais?
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
N'est-ce pas ce que tu demandais?
aussi!
Il y en a un
Enregistrer Sous et tu donnes un autre nom et un autre emplacement à
ton classeur
ensuite tu fais un copier coller des feuilles sur elles mêmes
ou
de la même façon par macro
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs "c:test.xls"
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).[A1].PasteSpecial xlValues
Next i
ActiveWorkbook.Save
End Sub
On 13 nov, 09:40, Gandalf <Gand...@discussions.microsoft.com> wrote:
> "Daniel.C" wrote:
> > > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > > "[A1].PasteSpecial xlValues" ?
>
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
>
> > > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
> > Oui.Teste-le pour t'en assurer.
> > Daniel
>
> Bonjour,
>
> Merci pour cette réponse.
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
>
> Je vais déjà tester ainsi.
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
N'est-ce pas ce que tu demandais?
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
N'est-ce pas ce que tu demandais?
aussi!
Il y en a un
Enregistrer Sous et tu donnes un autre nom et un autre emplacement à
ton classeur
ensuite tu fais un copier coller des feuilles sur elles mêmes
ou
de la même façon par macro
Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs "c:test.xls"
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).[A1].PasteSpecial xlValues
Next i
ActiveWorkbook.Save
End Sub
On 13 nov, 09:40, Gandalf wrote:
> "Daniel.C" wrote:
> > > Merci pour ta réponse mais je ne comprends pas ce que fait le
> > > "[A1].PasteSpecial xlValues" ?
>
> > Ca recopie les valeurs des cellules de la feuille source sur la feuille
> > cible. Ainsi, plus de formules.
>
> > > Donc ce code copie tous mes onglets dans des nouveaux classeurs ?
> > > Donc si j'ai 5 onglets j'aurais 5 fichiers excel en sortie ?
>
> > Oui.Teste-le pour t'en assurer.
> > Daniel
>
> Bonjour,
>
> Merci pour cette réponse.
> Il n'y a donc pas d'autre moyen que de faire autant de fichier que d'onglets ?
>
> Je vais déjà tester ainsi.