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

Onglets Feuilles et Enregistrements

  • Initiateur de la discussion Initiateur de la discussion fileofish
  • 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 !

fileofish

XLDnaute Occasionnel
Re-Bonjour le Forum!!

Je ne sais pas si ceci est envisageable mais:

J'ai un fichier avec 12 onglets (le nombre peut changer)
(Dans chaque onglet est inscrit en Cellule A1 le chemin où il doit s'enregistrer) => voir étape 3
Ce que je voudrais c'est qu'une macro:
- 1/Me créée 12 fichiers correspondant aux onglets
- 2/Que chaque nouveau fichier crée porte le nom de l'onglet
- 3/Que les 12 fichiers crées s'enregistrent automatiquement (par rapport au chemin qui a été préalablement définit)

Est ce que cela vous semble réalisable 😕

Une nouvelle fois merci d'avance
Philippe
 
Re : Onglets Feuilles et Enregistrements

Bonjour FileoFish

Tu peux essayer ce code
Code:
Sub SauvFeuille()
  Dim Sht As Worksheet, VPath As String
  For Each Sht In ThisWorkbook.Sheets
    VPath = Sht.Range("A1")
    Sht.Copy
    ActiveWorkbook.SaveAs VPath & "\" & ActiveSheet.Name [COLOR=blue][B]& ".xls"[/B][/COLOR]
    ActiveWorkbook.Close
  Next Sht
End Sub

A+
 
Dernière modification par un modérateur:
Re : Onglets Feuilles et Enregistrements

Salut Bruno!!
Je tenais tout d'abord à te remercier 🙂

Mais je suis un novice!

Alors j'ai inscrit en cellule A1:
C:\Documents and Settings\Bureau\Feuilles

J'ai l'impression qu'il y a un truc qui cloche ... il manquerait pas un .xls quelque part

MERCI ENCORE
Philippe
 
Re : Onglets Feuilles et Enregistrements

Re,

Il manque effectivement un ".xls" à la fin du save
Code corrigé 😉

Désolé je l'ai tapé directement comme ça

A+
 
- 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
Réponses
9
Affichages
1 K
C
  • Question Question
Réponses
40
Affichages
7 K
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…