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 sauvegarde individuelle des feuilles d'un classeur

sauvegarde individuelle des feuilles d'un classeur

2 réponses
Avatar
Uwaga
bonsoir,

j'ai un classeur de 3 feuilles (disons a, b et c) concernant un projet "X"
une fois les mises a jour terminees, je souhaiterai automatiser les
choses suivantes :

- creation d'un repertoire portant le nom "X" (contenu dans la cellule
A1) sur le bureau (mais le programme sera installe sur differents pc)
- y sauvegarder individuellement chacune des 3 feuilles en leur donnant
les noms "X A.xls", "X B.xls" et "X C.xls"

J'essaie en vain, et me heurte a un tas de problemes insolubles pour moi
(les activeworksheet.saveas et autres..)

Peut etre auriez vous une macro faisant deja cela en stock. J'ai cherche
sur excellabo. Il y a des choses approchantes, mais que je n'arrive pas
a adapter a mon cas :(

Je vous remercie par avance pour votre aide,
Signaler un problème avec ce contenu

2 réponses

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
Daniel
Bonjour.
Essaie :

Sub test()
Dim fso, Chemin As String, NomRep As String
Set fso = CreateObject("WScript.Shell")
Chemin = fso.SpecialFolders("Desktop")
ChDir Chemin
Sheets("A").Select
NomRep = [A1]
MkDir NomRep
ChDir Chemin & "" & NomRep
For Each Sheet In Sheets
Sheet.Copy
ActiveWorkbook.SaveAs NomRep & " " & Sheet.Name
ActiveWorkbook.Close
Next Sheet
End Sub

Cordialement.
Daniel
"Uwaga" a écrit dans le message de news:
e8$
bonsoir,

j'ai un classeur de 3 feuilles (disons a, b et c) concernant un projet "X"
une fois les mises a jour terminees, je souhaiterai automatiser les choses
suivantes :

- creation d'un repertoire portant le nom "X" (contenu dans la cellule A1)
sur le bureau (mais le programme sera installe sur differents pc)
- y sauvegarder individuellement chacune des 3 feuilles en leur donnant
les noms "X A.xls", "X B.xls" et "X C.xls"

J'essaie en vain, et me heurte a un tas de problemes insolubles pour moi
(les activeworksheet.saveas et autres..)

Peut etre auriez vous une macro faisant deja cela en stock. J'ai cherche
sur excellabo. Il y a des choses approchantes, mais que je n'arrive pas a
adapter a mon cas :(

Je vous remercie par avance pour votre aide,


Avatar
Uwaga
Merci Daniel ! ca fonctionne tres bien !
juste un bemol, ca fonctionne tres bien sur mon pc perso, mais au bureau
le chemin n'est pas le bureau, mais le repertoire parametre dans les
options de windows (mes documents)
Surement un probleme de droits et d'administration...

Merci encore, bonne soiree,

Bonjour.
Essaie :

Sub test()
Dim fso, Chemin As String, NomRep As String
Set fso = CreateObject("WScript.Shell")
Chemin = fso.SpecialFolders("Desktop")
ChDir Chemin
Sheets("A").Select
NomRep = [A1]
MkDir NomRep
ChDir Chemin & "" & NomRep
For Each Sheet In Sheets
Sheet.Copy
ActiveWorkbook.SaveAs NomRep & " " & Sheet.Name
ActiveWorkbook.Close
Next Sheet
End Sub

Cordialement.
Daniel
"Uwaga" a écrit dans le message de news:
e8$
bonsoir,

j'ai un classeur de 3 feuilles (disons a, b et c) concernant un projet "X"
une fois les mises a jour terminees, je souhaiterai automatiser les choses
suivantes :

- creation d'un repertoire portant le nom "X" (contenu dans la cellule A1)
sur le bureau (mais le programme sera installe sur differents pc)
- y sauvegarder individuellement chacune des 3 feuilles en leur donnant
les noms "X A.xls", "X B.xls" et "X C.xls"

J'essaie en vain, et me heurte a un tas de problemes insolubles pour moi
(les activeworksheet.saveas et autres..)

Peut etre auriez vous une macro faisant deja cela en stock. J'ai cherche
sur excellabo. Il y a des choses approchantes, mais que je n'arrive pas a
adapter a mon cas :(

Je vous remercie par avance pour votre aide,



M