Discussion :

[epsilonenadia]

Bonjour,
Je me retourne encore une fois vers vous vu que vous m'aidez bcp

Donc mon nouveau problème est que je dois faire un Bon de Commande

j'insert des données depuis ma bdd ou je les saisie , ensuite je voudrais donc:

Une fois fais mon bon de commande , j'aurais un bouton "enregistrer"

-Qui m'enregistre ma feuille dans un répertoire donné (sous excel ou pdf ou les 2 )

-Et Qui réinitialise certain champs colorés en orange dans le fichier joint

- Mais devrais garder le numéro de Bon De Commande qui s'incrémente a chaque nouvelle ouverture


Merci pour votre travaille.

[Daniel.C]

Bonjour,

Mets un bouton (non imprimable) sur la feuille avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    Dim Dossier As String
    Dossier = "c:\temp"
    ThisWorkbook.SaveCopyAs Dossier & "\" & "bon de commande " & [Feuil1!F3] & "xls"
    With Sheets("Feuil1")
        .[C1:C6].ClearContents
        .[B11:F30].ClearContents
        .[F31:F35].ClearContents
        .[E37].ClearContents
    End With
End Sub

Change le nom du dossier selon tes besoins.

[epsilonenadia]

Merci
Voila mon Code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnregistrerCopie()
Dim texte As String
texte = Range("E2") & " - " & Range("E3") & " " & Range("F3") & ".xls" 
chemin = "D:\travaille\"  'Le chemin ou je veux enregistrer
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=chemin & texte
    With Sheets("Feuil1")
        .[C3:C6].ClearContents
        .[B11:F30].ClearContents
        .[F31:F35].ClearContents
        .[E37].ClearContents
    End With
End Sub

Juste un petit soucis , je ne veux pas que le numéro de Commande (auquel j'ai affecté une macro qui l'incrémente automatiquement ), une fois enregistré je ne veux pas qu'il s'incrémente

Je voudrais aussi que le bouton disparaisse dans la copie

J'essaie ce code, mais ça ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.DrawingObjects.Delete

[parmi]

Bonjour,

Selon le type de bouton, ça pourrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes.Delete

[epsilonenadia]

Bon ça marche mais ça me supprime le bouton de la Feuille De Bon De Commande que je veux garder comme original

Je veux supprimer se bouton dans la copie que j'enregistre .

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim Dossier As String
    Dossier = "c:\temp"
    Workbooks.Add 1
    ThisWorkbook.Sheets("Feuil1").[A:F].Copy ActiveWorkbook.Sheets(1).[A1]
    ActiveWorkbook.SaveAs Dossier & "\" & "bon de commande " & [Feuil1!F3] & ".xls"
    ActiveWorkbook.Close False
    With ThisWorkbook.Sheets("Feuil1")
        .[C1:C6].ClearContents
        .[B11:F30].ClearContents
        .[F31:F35].ClearContents
        .[E37].ClearContents
    End With
End Sub

[parmi]

Bon ça marche mais ça me supprime le bouton de la Feuille De Bon De Commande que je veux garder comme original

Je veux supprimer se bouton dans la copie que j'enregistre .

Tu dois le mettre avant le SaveAs pendant que tu es dans la copie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets(1).Shapes.Delete

[epsilonenadia]

Parmi =>>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets(1).Shapes.Delete

ne marche pas , ça bloque et me le met en jaune

Daniel.C =>> Merci beaucoup Le code Marche à merveille.

Je n'ai Juste pas compris ce que veut dire la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks.Add 1
    ThisWorkbook.Sheets("Feuil1").[A:F].Copy ActiveWorkbook.Sheets(1).[A1]

Que Représente [A:F]


Encore Merci

[Daniel.C]

Je n'ai Juste pas compris ce que veut dire la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks.Add 1
    ThisWorkbook.Sheets("Feuil1").[A:F].Copy ActiveWorkbook.Sheets(1).[A1]

Bonjour,

Je crée un classeur vierge. Je copie les colonnes A:F du bon de commande et je les colle dans ce classeur vierge.

[parmi]

ActiveWorkbook.Sheets(1).Shapes.Delete

ne marche pas , ça bloque et me le met en jaune

Donc, si tu procèdes comme le suggère Daniel.C, il ne devrait plus y avoir de bouton à détruire. Tu peux donc laisser tomber la ligne en question...

[epsilonenadia]

Bonjour,

Quand j'ai une seule feuille , ça marche
Mais je voudrais adapter sa , à la feuil2 (nommée "Commande") de mon classeur , je mets donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Dim Dossier As String
    Dossier = "C:\Documents and Settings\MesCommandes\"
    Workbooks.Add 1
    ThisWorkbook.Sheets("Commande").[A:F].Copy ActiveWorkbook.Sheets("Commande").[A1]
    ActiveWorkbook.SaveAs Dossier & "\" & "bon de commande " & [Commande!C2] & ".xls"
    ActiveWorkbook.Close False
    With ThisWorkbook.Sheets("Commande")
        .[B6:B9].ClearContents
        .[B11:F33].ClearContents
        .[F8].ClearContents
        .[F34:F38].ClearContents
 
    End With

ça me bloque au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Commande").[A:F].Copy ActiveWorkbook.Sheets("Commande").[A1]

J'ai essayé "Feuil2" à la place de "Commande" , ça ne marche toujours pas

[parmi]

ThisWorkbook.Sheets("Commande").[A:F].Copy ActiveWorkbook.Sheets("Commande").[A1]

C'est normal puisque la feuille Commande n'existe pas encore...

Essaie ainsi pour voir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ThisWorkbook.Sheets("Commande").[A:F].Copy ActiveWorkbook.ActiveSheet.[A1]
ActiveWorkbook.ActiveSheet.Name = "Commande"

[epsilonenadia]

Merci , ça marche.