Onglets Feuilles et Enregistrements

[fileofish]

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

 

[Compte Supprimé 979]

Re : Onglets Feuilles et Enregistrements

Bonjour FileoFish

Tu peux essayer ce 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+

 

[fileofish]

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

 

[Compte Supprimé 979]

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+

 

[fileofish]

Re : Onglets Feuilles et Enregistrements

Tout simplement enorme !!!
Merci bruno pour cette aide precieuse 🙂