Comment puis-je de manière automatique enregistrer chaque feuille dun fichier
excel en un fichier portant le nom de la feuille (c'est à dire de l'onglet) ?
merci
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
RaMA
Bonsoir
Sub creerClassFolio() Dim MyWay MyWay = ThisWorkbook.Path For Each Sh In ThisWorkbook.Worksheets Application.DisplayAlerts = False Sh.SaveAs MyWay & "/" & Sh.Name Next End Sub
Salutations RaMa
-- . "remi dorne" <remi a écrit dans le message de news:
Comment puis-je de manière automatique enregistrer chaque feuille dun fichier excel en un fichier portant le nom de la feuille (c'est à dire de l'onglet) ? merci
Bonsoir
Sub creerClassFolio()
Dim MyWay
MyWay = ThisWorkbook.Path
For Each Sh In ThisWorkbook.Worksheets
Application.DisplayAlerts = False
Sh.SaveAs MyWay & "/" & Sh.Name
Next
End Sub
Salutations
RaMa
--
.
"remi dorne" <remi dorne@discussions.microsoft.com> a écrit dans le message
de news: D362BE75-CB4E-42CE-BC73-978AC92A5B64@microsoft.com...
Comment puis-je de manière automatique enregistrer chaque feuille dun
fichier
excel en un fichier portant le nom de la feuille (c'est à dire de
l'onglet) ?
merci
Sub creerClassFolio() Dim MyWay MyWay = ThisWorkbook.Path For Each Sh In ThisWorkbook.Worksheets Application.DisplayAlerts = False Sh.SaveAs MyWay & "/" & Sh.Name Next End Sub
Salutations RaMa
-- . "remi dorne" <remi a écrit dans le message de news:
Comment puis-je de manière automatique enregistrer chaque feuille dun fichier excel en un fichier portant le nom de la feuille (c'est à dire de l'onglet) ? merci
