Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro - Enregistrer chaque feuille dans un fichier.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jlm94
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jlm94

XLDnaute Junior
Bonjour,
J'ai un classeur contenant une 100e de feuilles et actuellement il y a déjà une Macro qui me permets d'enregistrer automatiquement chaque feuille dans un fichier indépendant au format PDF.
J'aurais souhaité pouvoir avoir la même macro mais pour un enregistrement en XLSX.
J'ai bien tenté de modifier la macro existante mais cela ne fonctionne pas.
Je ne maitrise pas les macro et c'est pourquoi je fais appel à votre aide.
En vous remerciant par avance.

Macro PDF:
Sub PDF()
On Error Resume Next
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, w As Worksheet
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
For Each w In Worksheets
If w.Name <> "Accueil" Then
Chemin = oFolderItem.Path & "\" & w.Name & "- Planning Individuel - " & Format(w.[c3], "mmmm yyyy") & ".pdf"
w.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next w
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : Macro - Enregistrer chaque feuille dans un fichier.

Bonjour jlm, le forum,

A tester:

VB: 
sub onglet
for i= 1 to sheets.count
sheets(i).copy
nom_fichier=sheets(i).name

activeworkbook.saveas thisworkbook.path &"\"& nom_fichier
activeworkbook.close
next
end sub
 
Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

Je viens de créer un objet et je lui est affecté cette macro mais cela ne fonctionne pas.
Ne serait'il pas possible de modifier simplement la PDF et remplacer PDF par XLSX ?

Cdlmt.

jlm94
 
Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

Bonjour à tous

Je viens de créer un objet et je lui est affecté cette macro mais cela ne fonctionne pas.
Ne serait'il pas possible de modifier simplement la PDF et remplacer PDF par XLSX ?
Cliquez pour agrandir...

Sinon, tu prends l'enregistreur de macro pour avoir la bonne syntaxe.

par contre, travailler sur des objets. Pourquoi ne pas le faire directement d'Excel?
 
Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

Bonjour MJ13
Merci pour ton post mais comme je l'ai indiqué je ne maitrise pas les Macro,
et en particulier l'enregistreur dont tu parles.
Tout ce que je souhaite c'est pouvoir avoir la même macro pour XLSX que celle que j'ai actuellement pour le PDF.
Je joins le fichier actuel pour infos.
En vous remerciant par avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

Quand tu dis que ça ne marche pas, c'est un peu vaste pour trouver d'où vient l'erreur...

Toutefois, j'ai oublié le .xls à la fin du code...
essaie comme ça:
VB: 
sub onglet
for i= 1 to sheets.count
sheets(i).copy
nom_fichier=sheets(i).name

activeworkbook.saveas thisworkbook.path &"\"& nom_fichier & ".xls"
activeworkbook.close
next
end sub
 
Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

titiborregan5
Je viens d'affecter ton code a un nouvel objet comme je l'avais fait pour le PDF
mais cela bug 'erreur 9' "L'indice n'appartient pas a la selection"
le debugueur me souligne en jaune la ligne: "nom_fichier = Sheets(i).Name"

je joins le fichier pour infos.
Désolé de ne pouvoir aider plus mais je ne maîtrise pas les macros.

Mais pour infos ne serait-il pas possible de modifier simplement le code que j'ai insérer dans mon 1er post
pour qu'il enregistre en XLSX au lieu de PDF. ?

merci par avance.
jlm94
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

jlm94 à dit:
Mais pour infos ne serait-il pas possible de modifier simplement le code que j'ai insérer dans mon 1er post
pour qu'il enregistre en XLSX au lieu de PDF. ?
Cliquez pour agrandir...

Je ne pense pas ou en tout cas ce n'est pas comme cela que je sais faire...

Essaie comme ça (j'avais mis la variable "trop tard" pour le nom du fichier du coup ça buggait...)
Code: 
Sub onglet()
For i = 1 To Sheets.Count
MsgBox i
nom_fichier = Sheets(i).Name
Sheets(i).Copy
MsgBox nom_fichier

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nom_fichier & ".xls"
ActiveWorkbook.Close
Next
End Sub
ça doit marcher!

et j'imagine que tu ne veux pas copier la 1ère feuille? du coup commence ton i à 2 ( for i = 2 to sheets.count)
 
Vote positif 0 Vote négatif
Re : Macro - Enregistrer chaque feuille dans un fichier.

Super ca marche,
Juste un point, je dois valider à chaque onglet,
n'est'il pas possible de lui demander d'enregistrer tous les onglets d'un coup sans être obliger de valider a chaque fois.
Merci par avance.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
200
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
429
Nounours4173
N
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
cathodique
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
176
pascal21
N
  • Question Question
XL 2016 Macro chargement liste arborescence, copier coller fichiers
Réponses
9
Affichages
706
Nermal64
N
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
252
Phil69970
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
314
Phil69970
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
470
MarineU
M
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
606
Phil69970
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
243
PHIL37
P
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
407
Webperegrino
W
B
  • Question Question
XL 2016 Propriétés fichiers vidéos.
Réponses
3
Affichages
511
patricktoulon
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
490
telemarrk
T
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
143
job75
C
  • Résolu(e)
XL 2016 VBA : Supprimer le caractère "?" qui encadre la propriété "Dimensions" d'un fichier image
Réponses
7
Affichages
402
TooFatBoy
Capturer et imprimer ou exporter en pdf un userform
Réponses
3
Affichages
232
patricktoulon
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
410
wDog66
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
673
job75
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
830
Panda79360
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…