Private Sub CmdPrint_Click()
Dim NomFichier As String
Dim NomChemin As String'
Impression_Certificat
NomFichier = Range("E17").Value
NomChemin = Range("A40").Value
'Sheets("IMPRESSION_CERTIFICAT").Copy
'Sheets.Copy
'test.Copy // faut déclarer le test
selection.Copy
' Sheets("IMPRESSION_CERTIFICAT").Cells("A1:G40").Copy -------> pose problème
' ==> URGENT DE TROUVER LA SOLUTION CAR C'EST CE QU'IL FAUT
' REGLER POUR QUE TOUT SOIT SELECTIONNE
ActiveSheet.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.Columns("A:A").ColumnWidth = 29.14
ActiveSheet.Columns("B:B").ColumnWidth = 7.86
ActiveSheet.Columns("C:C").ColumnWidth = 4.29
ActiveSheet.Columns("D:D").ColumnWidth = 13.57
ActiveSheet.Columns("E:E").ColumnWidth = 11.43
ActiveSheet.Columns("F:F").ColumnWidth = 11.71
ActiveSheet.Columns("G:G").ColumnWidth = 10.71
Application.CutCopyMode = False
'et du coup, ceci pose a son tour problème aussi alors que ca marchait très bien !!!
ActiveWorkbook.SaveAs Filename:=NomChemin & NomFichier & ".xls" _
, FileFormat:=xlNormal, PassWord:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
End Sub