Enregistrement d'une feuille dans un autre classeur

bonjour,

Je repost car je me suis tromper de forum:

QUESTION:

diablo a écrit :

bonsoir,

dans mon classeur j'ai plusieurs feuilles dont une de facturation, mais je voudrais pouvoir enregistrer cet facture , seul dans un autre classeur avec chaque fois avec le numéro de la facture ce trouvant sur celle-ci.

car chaque fois enregistrer le classeur complet avec toutes les données (article, info client etc..) c'est pas terrible.

Je pense qu'il existe une macro pour ça, j'ai déjà cherché et en testé plusieurs mais sa ne marche pas.

Merci de votre aide.

REPONSE:

Mytå a écrit :

Salut Diablo et le forum

Déjà tu n'es pas sur le bon forum,

pour les questions c'est par la-bas

A adpter pour ton cas.

    Sheets("Feuil2").Copy 
    ActiveWorkbook.SaveAs Filename:= _ 
      "C:\Test" & Date, FileFormat:=xlNormal, _ 
          Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ 
            CreateBackup:=False 
    ActiveWorkbook.Close

Mytå

voila en effet le code est bien (pas encore tester) mais je voudrais donc enregistrer cet feuille (juste la feuille pas tous le classeur) sous le nom du n° de facture (en cellule "G4")

la formule suivante enregistre tout le classeur:

Sub save()
Dim Chr As String 'déclare la variable
Chr = Range("Facture!G4") 'enregistre le classeur sous la cellule G4
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:\" 'chemin de destination
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub

moi, je cherche juste pour enregistrer la feuille "facture" sous le nom de la cellule "G4"??

Bonjour

En XL4 sur l'exemple joint.

Reste plus qu'à traduire en VB.

Cordialement,

https://www.excel-pratique.com/~files/doc/NomCellule.xls

Merci, ok sa marche.

je ne l'ai pas mis en VBA car je ne sais pas comment faire.

si je garde cet solution la comment choisir le répertoire de destination, j'ai regarder dans la macro, mais rien n'indique le répertoire de destination!

Mais un grand merci quand même

Et si quelqu'un d'autre a une solution sous VBA cela m'arrangerais aussi.

Ce n'est pas que cet solution ne m'interesse pas c'est toujours bon de connaitre d'autre technique.

bé voila j'ai essayer de mettre la macro dans mon classeur mais j'ai plein d'erreur je ne c pas se que je peut modifier dans la macro?

Enfin je vous rappelle a tous que le VBA serais le bien venu.

Encore merci a tous.

Bonjour Diablo

Une légére modification pour répondre à ta demande.

Cordialement,

Amadéus

https://www.excel-pratique.com/~files/doc/NomCelluleRepertoire.xls

voila j'ai enfin trouver la solution

voici le codeVBA:

Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
Dim extension As String, chemin As String, nomfichier As String
extension = ".xls"
chemin = "C:\"    [i]'mettez ici le chemin de destination[/i]
nomfichier = Sheets("Facture").Range("G4") & extension   [i]'Sheets= le nom de la feuille a sauvegarder, Range= la cellule a copier comme nom de fichier[/i]
Sheets("Facture").Copy
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier
End Sub

voila, et encore merci.