(Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

[abrmed]

Bonjour tout le monde;
Je viens de finaliser un petit formulaire en Excel dont celui-là contient plusieurs feuilles et le résultat de ce travail sort dans une feuille qui s'appelle Modele.
Dans cette feuille il ya un titre qui est positionner en (C1) et un bouton save as.
dont j'ai besoin est quand j'appuie sur ce bouton, il m'affiche un message box pour me laisser choisir un emplacement pour la nouvelle sauvegarde et que le nom du nouveau fichier est celui du titre (C1) et tout cela e enrigstrant juste la feuille "Modèle" sans son code sans les autres feuilles dans nouveau classeur.

Merci de votre aide d'avance

 

[abrmed]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Alooo, je cherche toujour de l'aide, j'ai besoin de vous ... 🙂

 

[job75]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Bonjour abrmed,

Vous avez tout pour plaire : le titre (Urgenttttt)...., des explications pas claires, et pas de fichier joint.

A+

 

[13GIBE59]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Bonjour abrmed, bonjour job.

abrmed, sache que les titres du genre "urgent" sont assez mal perçus sur ce forum.

Cela dit, essaie ça :

Sub EnregistrerFeuille()
Dim NomFichier As String
Dim Chemin As String
NomFichier=ActiveSheet.[C1].Value
Chemin=Trim(InputBox("Chemin d'accès au dossier de destination"))
ActiveSheet.Copy
If Right(Chemin,1) <> "\" Then
 Chemin=Chemin + "\"
End If
ActiveWorkbook.SaveAs Filename:=Chemin + NomFichier
End sub

 

[abrmed]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Bonjour 13GIBE59,
Bonjour Job,
Merci pour vos réponses rapides,
le faite que j'ai pas mis le fichier joint et qu’on a pas besoins de le mettre surtout que mon fichier est assez gros avec plein de graphiques et un centaine de lignes de code.
J'ai essayer juste d'écrire le plus clairement possible pour que ma demande soit comprise par tout le monde, et le faite que se soit urgent c'était pour de vrai , ça ait maintenant 3 jours que je suis bloqué sur cela et j'arrive pas faire cette dernière partie de mon formulaire (je ne suis pas un pro de VBA 😛).

Je vais essayer d'essayer ce que 13GIBE59 m'a écrit et je vous tiendrais au courant.

Encore un grand merci pour vous deux.

 

[job75]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Re, salut Jean-Bernard,

Désolé, j'ai été méchant, cela devrait aussi convenir (clic droit sur l'onglet de la feuille "Modèle" et Visualiser le code) :

Private Sub CommandButton1_Click()
Dim Nom$, Nouveau$
Cells.Copy: Workbooks.Add: ActiveSheet.Paste: ActiveCell.Select
Nom = ThisWorkbook.Sheets("Modèle").Range("C1") & ".xls"
Application.Dialogs(xlDialogSaveAs).Show Nom
Nouveau = ActiveWorkbook.Name
If Nouveau <> Nom And Nouveau Like "*.xls" Then
  ActiveWorkbook.SaveAs Nom
  Kill Nouveau
End If
ActiveWorkbook.Close False
End Sub

A+

 

[abrmed]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Salut 13GIBE59,
Merci bien pour le coup de puce, ça fonctionne bien, juste un petit détail, si c'est possible de choisir le chemin pour sauvegarder avec une fenêtre et un bouton parcourir .
Merci encore une fois

 

[13GIBE59]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Oui, ça doit être possible...Mais c'est pour l'instant au dessus de mes connaissances...

Peut-être quelqu'un d'autre ?

edit :je n'avais pas vu le code de job, qui est encore mieux avec :

Application.Dialogs(xlDialogSaveAs).Show Nom

Bien joué job ! Je le garde.

 

[job75]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Re,

Le problème avec la boîte Application.Dialogs(xlDialogSaveAs) c'est que je ne vois pas comment empêcher l'utilisateur d'écrire un autre nom de fichier.

Si un fichier portant ce nom existe déjà, il sera écrasé (puis supprimé).

A+

 

[abrmed]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Salut JOB,
Je vois bien du bon code très propre, et ça fonctionne à merveille, je te remercie beaucoup et je te félicite pour cela.

Merci et bonne journée à vous deux.

 

[job75]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

Re,

Il pouvait y avoir un bug au niveau du 2ème enregistrement : quand l'utilisateur enregistre sous un autre nom que TOTO, et que TOTO.xls existe déjà.

J'ai ajouté On Error Resume Next :

Private Sub CommandButton1_Click()
Dim Nom$, Nouveau$
Nom = Range("C1") & ".xls"
Cells.Copy: Workbooks.Add: ActiveSheet.Paste: ActiveCell.Select
Application.Dialogs(xlDialogSaveAs).Show Nom
Nouveau = ActiveWorkbook.Name
If Nouveau <> Nom And Nouveau Like "*.xls" Then
  [COLOR="Red"]On Error Resume Next[/COLOR]
  ActiveWorkbook.SaveAs Nom
  Kill Nouveau
End If
ActiveWorkbook.Close False
End Sub

A+

 

[abrmed]

Re : (Urgenttttt)....Enregistrement d'une feuille dans un nouveau classeur

C'est bon, Mercii