j'ai créé un page A4 en Excel (cellule B2:J2;B59:J59), celui-ci représente
une facture. j'aimerais une fois la facture remplie, que je puisse la sauvée
tel quel (cellules) sur un autre fichier que je nommerai au nom du client et
que une fois celle-ci (facultatif) est sauvée que ma feuille de facture
d'origine revienne vide d'inscription. Mon problème c'est que dans le fichier
de la facture il y à plusieurs fenêtres qui sont sauvées en même temps, or
(je me répète) il me faudrait juste la feuille A4 (la facture).
Voici la macro créée et qui ne tourne pas.
La ligne marqué d'une x est en jaune
Peut'on m'aidé SVP,
Merci d'avance pour ceux qui me renseigne et m'aide
Jean
Private Sub CommandButton2_Click()
sauve
End Sub
Sub sauve()
Dim fe, plg
Dim wk
X Set plg = Sheets("Facture").Range("b2:j58")
Set fe = Sheets("Facture")
Workbooks.Open "C:\Documents and Settings\Propriétaire\Mes documents\Mes
fichiers\Factures Laurent"
Set wk = ActiveWorkbook
'pour avoir la mis en page
fe.Copy after:=wk.Sheets(Sheets.Count)
' nettoyage
Cells.Cells.Clear
' copie de la plage
Range("B2:B58") = plg.Value
' renommer la nlle feuille
ActiveSheet.Name = fe.Name & "_" & fe.Range("B2")
' ôter le bouton
ActiveSheet.Shapes("CommandButton1").Delete
' fermer et sauver
wk.Close True
Set fe = Nothing
Set wk = Nothing
Set plg = Nothing
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jeanbelier1
"jeanbelier1" wrote:
j'ai créée un page A4 en Excel (cellule B2:J2;B59:J59), celui-ci représente une facture. j'aimerais une fois la facture remplie, que je puisse la sauvée cette feuille (cellules) sur un autre fichier que ma feuille de facture d'origine revienne vide d'inscription. Mon problème c'est que dans le fichier de la facture il y à plusieurs feuilles qui sont sauvées en même temps, or (je me répète) il me faudrait juste la feuille A4 (la facture). Voici la macro créée et qui ne tourne pas. La ligne marqué d'une x est en jaune (au début) Peut'on m'aidé SVP, Merci d'avance pour ceux qui me renseigne et m'aide Jean
Private Sub CommandButton2_Click() sauve End Sub
Sub sauve() Dim fe, plg Dim wk
X Set plg = Sheets("Facture").Range("b2:j58") Set fe = Sheets("Facture") Workbooks.Open "C:Documents and SettingsPropriétaireMes documentsMes fichiersFactures Laurent" Set wk = ActiveWorkbook 'pour avoir la mis en page fe.Copy after:=wk.Sheets(Sheets.Count) ' nettoyage Cells.Cells.Clear ' copie de la plage Range("B2:B58") = plg.Value ' renommer la nlle feuille ActiveSheet.Name = fe.Name & "_" & fe.Range("B2") ' ôter le bouton ActiveSheet.Shapes("CommandButton1").Delete ' fermer et sauver wk.Close True Set fe = Nothing Set wk = Nothing Set plg = Nothing End Sub
"jeanbelier1" wrote:
j'ai créée un page A4 en Excel (cellule B2:J2;B59:J59), celui-ci représente
une facture. j'aimerais une fois la facture remplie, que je puisse la sauvée
cette feuille (cellules) sur un autre fichier que ma feuille de facture
d'origine revienne vide d'inscription. Mon problème c'est que dans le fichier
de la facture il y à plusieurs feuilles qui sont sauvées en même temps, or
(je me répète) il me faudrait juste la feuille A4 (la facture).
Voici la macro créée et qui ne tourne pas.
La ligne marqué d'une x est en jaune (au début)
Peut'on m'aidé SVP,
Merci d'avance pour ceux qui me renseigne et m'aide
Jean
Private Sub CommandButton2_Click()
sauve
End Sub
Sub sauve()
Dim fe, plg
Dim wk
X Set plg = Sheets("Facture").Range("b2:j58")
Set fe = Sheets("Facture")
Workbooks.Open "C:Documents and SettingsPropriétaireMes documentsMes
fichiersFactures Laurent"
Set wk = ActiveWorkbook
'pour avoir la mis en page
fe.Copy after:=wk.Sheets(Sheets.Count)
' nettoyage
Cells.Cells.Clear
' copie de la plage
Range("B2:B58") = plg.Value
' renommer la nlle feuille
ActiveSheet.Name = fe.Name & "_" & fe.Range("B2")
' ôter le bouton
ActiveSheet.Shapes("CommandButton1").Delete
' fermer et sauver
wk.Close True
Set fe = Nothing
Set wk = Nothing
Set plg = Nothing
End Sub
j'ai créée un page A4 en Excel (cellule B2:J2;B59:J59), celui-ci représente une facture. j'aimerais une fois la facture remplie, que je puisse la sauvée cette feuille (cellules) sur un autre fichier que ma feuille de facture d'origine revienne vide d'inscription. Mon problème c'est que dans le fichier de la facture il y à plusieurs feuilles qui sont sauvées en même temps, or (je me répète) il me faudrait juste la feuille A4 (la facture). Voici la macro créée et qui ne tourne pas. La ligne marqué d'une x est en jaune (au début) Peut'on m'aidé SVP, Merci d'avance pour ceux qui me renseigne et m'aide Jean
Private Sub CommandButton2_Click() sauve End Sub
Sub sauve() Dim fe, plg Dim wk
X Set plg = Sheets("Facture").Range("b2:j58") Set fe = Sheets("Facture") Workbooks.Open "C:Documents and SettingsPropriétaireMes documentsMes fichiersFactures Laurent" Set wk = ActiveWorkbook 'pour avoir la mis en page fe.Copy after:=wk.Sheets(Sheets.Count) ' nettoyage Cells.Cells.Clear ' copie de la plage Range("B2:B58") = plg.Value ' renommer la nlle feuille ActiveSheet.Name = fe.Name & "_" & fe.Range("B2") ' ôter le bouton ActiveSheet.Shapes("CommandButton1").Delete ' fermer et sauver wk.Close True Set fe = Nothing Set wk = Nothing Set plg = Nothing End Sub
