Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac <Elli...@discussions.microsoft.com> wrote:
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac <Elli...@discussions.microsoft.com> wrote:
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
Re bonjour,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:
Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distin ation
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil 5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re bonjour,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 <A...@discussions.microsoft.com> wrote:
Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distin ation
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil 5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re bonjour,
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:
Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distin ation
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil 5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut à toi
Ce code pour archiver tous les Onglets d'un classeur dans un nouveau class eur
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
Next
Si tu ne veux archiver que quelques onglets il nous faut un repère pour les
cibler et inclure une condition appropriée comme par exemple :
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
If Sheets(i).Name = "Nom de l'Onglet" Then '(A adapter)
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
End If
Next
Espérant avoir répondu à ton attente
Dis moi !!!On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
CamilleEllimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Salut à toi
Ce code pour archiver tous les Onglets d'un classeur dans un nouveau class eur
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
Next
Si tu ne veux archiver que quelques onglets il nous faut un repère pour les
cibler et inclure une condition appropriée comme par exemple :
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
If Sheets(i).Name = "Nom de l'Onglet" Then '(A adapter)
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
End If
Next
Espérant avoir répondu à ton attente
Dis moi !!!
On 4 jan, 13:49, Ellimac <Elli...@discussions.microsoft.com> wrote:
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Salut à toi
Ce code pour archiver tous les Onglets d'un classeur dans un nouveau class eur
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
Next
Si tu ne veux archiver que quelques onglets il nous faut un repère pour les
cibler et inclure une condition appropriée comme par exemple :
Archive = Workbooks.Add.Name
Workbooks("Classeur source.xls").Activate
For i = 1 To Sheets.Count
If Sheets(i).Name = "Nom de l'Onglet" Then '(A adapter)
Workbooks(Archive).Activate
Workbooks(Archive).Sheets.Add
After:=Worksheets(Workbooks(Archive).Worksheets.Count)
Workbooks("Classeur source.xls").Activate
Workbooks(Archive).ActiveSheet.Name = Sheets(i).Name
Sheets(i).Cells.Copy Workbooks(Archive).Sheets(Sheets(i).Name).Range("A 1")
End If
Next
Espérant avoir répondu à ton attente
Dis moi !!!On 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
CamilleEllimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re,
Sans plus de précisions il faudrait faire un enregistrer sous puis suppr imer
les onglets inutiles et éventuellement Copier en valeur certaines cellul es.
Le tout en mode enregistrement te donneras un début de réponse.
Ce que je ne vois pas dans ton automatisation c'est quels sont les onglets à
conserver et à supprimer, y a-t'il une logique ? Faut-il une boîte de
dialogue demandant d'indiquer le n° ou le nom de la feuille à conserve r ou à
supprimer ?
CamilleOn 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
CamilleEllimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re,
Sans plus de précisions il faudrait faire un enregistrer sous puis suppr imer
les onglets inutiles et éventuellement Copier en valeur certaines cellul es.
Le tout en mode enregistrement te donneras un début de réponse.
Ce que je ne vois pas dans ton automatisation c'est quels sont les onglets à
conserver et à supprimer, y a-t'il une logique ? Faut-il une boîte de
dialogue demandant d'indiquer le n° ou le nom de la feuille à conserve r ou à
supprimer ?
Camille
On 4 jan, 13:49, Ellimac <Elli...@discussions.microsoft.com> wrote:
Bonjour,
Qu'entends-tu par archiver ?
Camille
Ellimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re,
Sans plus de précisions il faudrait faire un enregistrer sous puis suppr imer
les onglets inutiles et éventuellement Copier en valeur certaines cellul es.
Le tout en mode enregistrement te donneras un début de réponse.
Ce que je ne vois pas dans ton automatisation c'est quels sont les onglets à
conserver et à supprimer, y a-t'il une logique ? Faut-il une boîte de
dialogue demandant d'indiquer le n° ou le nom de la feuille à conserve r ou à
supprimer ?
CamilleOn 4 jan, 13:49, Ellimac wrote:Bonjour,
Qu'entends-tu par archiver ?
CamilleEllimac,
Créer un nouveau classeur et y sauvegarder certains onglets.
C'est que je voulais exprimer par "archiver"
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,....ect
Re bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,....ect
Re bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 <A...@discussions.microsoft.com> wrote:
Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,....ect
Re bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de distination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,.... ect
si non change cette ligne du programme en fonction de tes feuilles
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feui l5")
vérifier aussi cette ligne du programme
Application.SheetsInNewWorkbook = 5
5 c'est le nombre de feuilles de déstination si tu veux copié plus de 5
feuilles il faut que tu change la valeur
Cordialement Abed_HRe bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de di stination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "F euil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,.... ect
si non change cette ligne du programme en fonction de tes feuilles
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feui l5")
vérifier aussi cette ligne du programme
Application.SheetsInNewWorkbook = 5
5 c'est le nombre de feuilles de déstination si tu veux copié plus de 5
feuilles il faut que tu change la valeur
Cordialement Abed_H
Re bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JP
Bonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 <A...@discussions.microsoft.com> wrote:
Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de di stination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "F euil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H
- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Re bonjour
les feuilles de ton classeur sont elle nommées feuil1,feuil2,feuil3,.... ect
si non change cette ligne du programme en fonction de tes feuilles
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feui l5")
vérifier aussi cette ligne du programme
Application.SheetsInNewWorkbook = 5
5 c'est le nombre de feuilles de déstination si tu veux copié plus de 5
feuilles il faut que tu change la valeur
Cordialement Abed_HRe bonjour,
Désolé de ne répondre que maintenant!
Je viens de tester la macro de AH60
La macro plante. J'ai décalé la ligne où le bug est signalé!
Si quelqu'un sait! Moi je suis trop piiiitiiiit pour savoir! LOL!
Merci
JPBonjour,
Est-ce que quelqu'un aurait une routine VBA pour la sauvegarde de
plusieurs onglets d'un même classeur.
Avec une particularité, car un onglet doit conserver les formules pour
une exploitation ultérieure.
Je n'ai rien trouvé dans mes recherches que je sache adapter.
Merci d'avance
JP
On 4 jan, 15:18, AH60 wrote:Bonjour
une variante
Sub ArchiveFeuilles()
Dim sh, wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
xSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 5 'le nombre de feuilles de di stination
(à adapter)
Set wbk = Workbooks.Add ' nouveau classeur
Application.SheetsInNewWorkbook = xSheets
'feuilles consernées
For Each sh In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "F euil5") 'à
adapter
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2èmè classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End Sub
Abed_H- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -