sauvegarder certaines feuilles sur un autre fichier

[nomzamo]

Bonjour le forum,
J'ai besoin d'aide, voici mon problème:
Mon classeur comporte des macros et se compose de 3 feuilles nommées « Travail » « Noms » « Valeurs » au départ.
Je fabrique ensuite d’autres feuilles comportant des tableaux et nommées d’un nom et d’une date.
Je voudrais pouvoir automatiser à l’aide d’une macro la sauvegarde uniquement des feuilles « nom date » sur un autre classeur sans les 3 feuilles « Travail » « Noms » « Valeurs » et sans les macros.
Merci de m'avoir lu,
Roger

 

[nomzamo]

Re : sauvegarder certaines feuilles sur un autre fichier

Bonjour Staple1600,
Je prends quelques secondes (je n’ai pas compté combien…) pour te répondre car malgré ton ironie, je pense que tu as eu la gentillesse de vouloir m’aider.
-Perso je sais faire cette manip à la main et je sais aussi me servir de l’enregistreur de macros quand il le faut.
-Ce classeur est utilisé par d’autres personnes que moi dont la plupart (totalité) ne sont pas familière d’Excel.
-Ce ne sont pas les feuilles "Travail", "Noms" et "Valeurs" qu’il faut sauvegarder mais toutes les autres.
-Le nombre de feuilles à sauvegarder peut aller de 0 à plusieurs dizaines selon l’utilisateur.
-Le nom des feuilles ainsi que le chemin de sauvegarde est différent en fonction des utilisateurs car chaque utilisateur aura le fichier sur son ordi perso.
Merci de t’être penché sur mon problème et bonne journée,
Cordialement,
Roger

 

[Staple1600]

Re : sauvegarder certaines feuilles sur un autre fichier

Bonjour nomzamo

C'est ma grippe qui m'a mis la comprenette dans le sac.
Désolé pour ma mésinterprétation de ta question.
Quand à mon ironie (grippé ou pas), j'essaie toujours qu'elle ne soit qu'amicale. 😉
(Voir dans mon profil pour comprendre- > rubrique: Biography)

Ceci dit pour les points suivants:
-Le nom des feuilles ainsi que le chemin de sauvegarde est différent en fonction des utilisateurs car chaque utilisateur aura le fichier sur son ordi perso.

On peut se servir de la variable Environ pour imposer un répertoire de sauvegarde
(ainsi que le nom du fichier)
cela évite le problème du clic sur Annuler, non ?

 

[Staple1600]

Re : sauvegarder certaines feuilles sur un autre fichier

Re

En guise de pénitence, voici ma macro sur le même principe que précédemment mais à l'opposé 😉
Je te laisse tester une classeur avec un grand nombre de feuilles pour voir s'il y a gain de temps ou pas dans l’exécution du code.
(J'attends tes commentaires pour entamer la partie "boite de dialogue" )

Sub SauvegardeTEST()
Dim arNF, i As Byte
ReDim arNF(1 To Sheets.Count)
    For i = 1 To Sheets.Count
    arNF(i) = ThisWorkbook.Sheets(i).Name
    Next
Application.ScreenUpdating = False
    Sheets(arNF).Copy
    Application.DisplayAlerts = False
    Sheets(Array("Travail", "Noms", "Valeurs")).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub