Vba enregistrement feuille active nom cellule

[noviceAG]

Bonsoir le Forum,
Me revoici pour une nouvelle question.
Comment enregistrer la feuille active avec le nom figurant en O2 dans un classeur nommé Facture 2008 à la suite
en vous remerciant de votre patience

 

[fanfan38]

Re : Vba enregistrement feuille active nom cellule

Bonjour
Appelons un chat un chat!
Veux tu renommer une feuille ou enregistrer un classeur dans le dossier facture 2008?

A+ François
Ps: Un fichier exemple est toujours le bienvenu...

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Bonsoir fanfan, le Forum,

Bonjour
Appelons un chat un chat!
Veux tu renommer une feuille ou enregistrer un classeur dans le dossier facture 2008?QUOTE]

Merci de me répondre, ce que je voudrai faire, c'est copier la feuille active en lui donnant le nom inscrit dans la cellule O2 dans le classeur Factures 2008 et que cette feuille se mette à la suite les unes les autres.
La dite feuille active conservant son nom d'origine.

Je te remercie dem'avoir répondu.

 

[fanfan38]

Re : Vba enregistrement feuille active nom cellule

Bonjour
Avec cette macro là tu devrais t'en sortir...
Sub Macro1()
Dim nom As String
nom = ActiveSheet.Name
Sheets(nom).Select
Sheets(nom).Copy After:=Sheets(Sheets.Count)
Sheets(nom & "(2)").Select
Sheets(nom & "(2)").Name = Range("o2").Value
Range("a1").Select
End Sub


A+ François

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Merci fanfan de l'aide que tu m'apporte, mais le code que tu as eu la courtoisie de me donner bloque à
Sheets(nom & "(2)").Select

 

[fanfan38]

Re : Vba enregistrement feuille active nom cellule

Re,
Voila ce que c'est de ne pas mettre de fichier exemple...
Remplace les 2 lignes suivantes
'Sheets(nom & "(2)").Select
'Sheets (nom & "(2)")
Par
ActiveSheet.Name = Range("o2").Value

A+ François

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Re,
Le fichier dépasse les 50ko aussi l'ai-je mis ici :

http://cjoint.com/?kEtVEJWmXD

en te remerciant de l'aide que tu m'apporte.

 

[fanfan38]

Re : Vba enregistrement feuille active nom cellule

C'est bien gentil, mais quelle est le problème?
De plus ce genre de fichier joint ne pourront pas servir au suivant qui ont le même problème car effacé dans 15 jours...
Tu aurais mieux fais de faire 2 fichiers zippés...

A+ François

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Re, le Forum,
De nouveau je vous présente mes excuses et répare ma non voyance.
Merci à vous

 

[fanfan38]

Re : Vba enregistrement feuille active nom cellule

Tu n'as pas dit ce que tu souhaite?
A+ François

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Bonjour le Forum, fanfan,
Ce que je voudrai faire, c'est copier la feuille Facture (données et format) du classeur Facture Association dans le classeur Factures 2008 les unes à la suite des autres, que ce classeur soit ouvert ou fermé, avec pour nom de cette copie le nom de la cellule O2

Le plus serait que cette copie soit débarassée des codes et boutons.

Ces 2 classeurs sont dans un dossier nommé Association, placé sur C:
Merci de ta patience.

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Re, le Forum,
Je viens de penser que, vu que les feuilles archivées auront toutes un nom différent, l'on peut, peut-être se contenter de les mettrent dans un dossier
(classeur limité à 1 seule feuille. Elles seraient ainsi dans l'ordre chronologique.
A bientot

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Re, le Forum,
Merci de bien vouloir m'aider
A bientôt

 

[noviceAG]

Re : Vba enregistrement feuille active nom cellule

Re, le Forum,

J'ai bidouillé ce code, mais il plante

Sub Macro1()
'Je copie la feuille
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Facture").Select
Sheets("Facture").Copy After:=Sheets(3)
'la colle dans un nouveau classeur

Sheets("Facture (2)").Select
Sheets("Facture (2)").Move

'Je renomme la feuille
ActiveSheet.Name = Range("O2")

'Je dirige ma feuille,
ChDir "C:\Documents and Settings\Proprietaire\Bureau\Association"
'Détruire les éventuels objets shapes de la feuille

'Je supprime les boutons
For Each ctl In ActiveSheet.Shapes
ctl.Delete
Next
Range("a1").Activate

'Je supprime les modules
ActiveWorkbook.VBProject.VBComponents.Remove.Item ("<module1;Module2;Module3;Module4")

'J'enregistre et ferme le classeur
ActiveWorkbook.Save
ActiveWindow.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Je vous remercie de m'aider
Cordialement