bonsoir exelan
chez moi non plus ca ne fonctionne pas car il y a un conflit dans cette ligne
ActiveWorkbook.SaveAs Filename:=Rep & "Facture n° " & Facture & " Du " & Du & ".xlsm"
car il y a 2 fois "du"
et si je mets
ActiveWorkbook.SaveAs Filename:=Rep & "Facture n° " & Facture & " Du " & Dus & ".xlsm"
cela fonctionne bien en modifiant également la variable
Sub Enregister()
Dim Rep, Facture, Dus As String
Rep = "D:\documents\mes fichiers recus\factures" ' Ecrire le chemin d'accé au répértoire voulu
Facture = Feuil1.Range("B18").Value
Dus = Feuil1.Range("D18").Value
ChDir (Rep)
ActiveWorkbook.SaveAs Filename:=Rep & "Facture n° " & Facture & " Du " & Dus & ".xlsm"
MsgBox "Le dossier est sauvegardé !"
End Sub
et aussi pourquoi mettre 2 fois "facture" car ca j'enregistre comme ca
factureFacture n° 1006 du 30 aout 2014
et le classeur prends le nom de la sauvegarde
essai et dit comment c'est
Pascal