Format monétaire
Bonjour Forum !
Après plusieurs recherches et tentatives, j'ai essayé d'appliquer une macro qui me permettrait en cliquant sur le bouton "SuiviDevis" feuil "DEVIS" de reporter la valeur de la cellule H57 dans la feuil "SuiviDevis" en format monétaire correct. et pareillement sur la feuil "FACTURE" avec le bouton "SuiviFactures".
Merci pour le coup de pouce !
Mon fichier joint.
Slt juste pour info , en utilise Currency pour declarer Money
Dim Montant As Currencymerci d'avoir répondu
et je fais quoi avec ça ?
ça m'avance pas trop .
ok cool merci !
Bonne nuit
Bonjour forum
Bonjour m3ellem1
je reviens vers toi au sujet de mon fichier dont tu as résolu le format monétaire.
j’essaie de résoudre un autre souci sur la macro du bouton DEVIS EXCEL
J'ai ce code : (qui fonctionne bien mais qui me copie uniquement la feuil DEVIS et je voudrai également qu'il copie la feuil FACTURE pour que je puisse reprendre le nouveau classeur copié ou je retrouverai ces deux feuil afin d’éditer la facture par la suite)
Sub DEVIS_MacroEXCEL()
Dim extension As String
Dim Chemin As String, nomfichier As String
Dim style As Integer
ThisWorkbook.ActiveSheet.Copy je ne sais pas comment modifier cette ligne je ne voudrai pas bousiller le reste du code c'est trop compliquer pour moi
extension = ".xlsm"
Chemin = "D:\WILLY\Devis-Factures-2019\DEVIS-EXCEL\"
'MsgBox ThisWorkbook.Path
nomfichier = " - Devis N°" & Range("F2") & " - " & Range("F9") & " - " & "Client N° " & Range("H2") & " - " & Format(Now, " dd-mm-yy") & extension
' & extension
With ActiveWorkbook
'ActiveSheet.Copy
'ActiveWorkbook.SaveAs Filename:=nomfichier
'ActiveWorkbook.Close
'.DrawingObjects(1).Delete
.SaveAs Filename:=Chemin & nomfichier, FileFormat:=52
.Close
End With
End Sub
Slt Loisphil,
oui ferme ce sujet et ouvre un nouveau c'est mieux