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

A

abrmed

Guest

• 6 Octobre 2009

• #2

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Octobre 2009

• #3

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+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 6 Octobre 2009

• #4

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 :

Code:

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

 

Dernière édition: 6 Octobre 2009

Vote positif 0 Vote négatif

A

abrmed

Guest

• 6 Octobre 2009

• #5

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Octobre 2009

• #6

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) :

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+

 

Pièces jointes

• Enregistrer Modèle (1).xls

  41 KB · Affichages: 56
• Enregistrer Modèle (1).xls

  41 KB · Affichages: 63
• Enregistrer Modèle (1).xls

  41 KB · Affichages: 61

Dernière édition: 6 Octobre 2009

Vote positif 0 Vote négatif

A

abrmed

Guest

• 6 Octobre 2009

• #7

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 6 Octobre 2009

• #8

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.

 

Dernière édition: 6 Octobre 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Octobre 2009

• #9

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+

 

Vote positif 0 Vote négatif

A

abrmed

Guest

• 6 Octobre 2009

• #10

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Octobre 2009

• #11

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 :

Code:

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+

 

Pièces jointes

• Enregistrer Modèle (2).xls

  41 KB · Affichages: 84

Vote positif 0 Vote négatif

A

abrmed

Guest

• 6 Octobre 2009

• #12

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

C'est bon, Mercii

 

Vote positif 0 Vote négatif