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 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
gilbert
BONJOUR
Aller dans Mise en Page
Onglet Feuille
Choisir la Zone d'impression voulue
Voilà
Salutations
Gilbert "jeanbelier1" a écrit dans le message de news:
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
BONJOUR
Aller dans Mise en Page
Onglet Feuille
Choisir la Zone d'impression voulue
Voilà
Salutations
Gilbert
"jeanbelier1" <jeanbelier1@discussions.microsoft.com> a écrit dans le
message de news:F4E9A7BC-0390-4568-9B39-C1F2620AF5AE@microsoft.com...
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
Gilbert "jeanbelier1" a écrit dans le message de news:
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
