Bonjour à toute et à tous !!
La pluie est là sur paris, et donc coincé au bureau et donc sur excel au lieu de prospecter dans la rue
Ma question est :
j'ai un bouton ENREGISTRE FACTURE qui m'enregistre la feuille active dans deux dossiers sur mon pc dans deux formats differents.
voici le code.
Sub enregistrefacture()
Dim Chemin As String, Fichier As String
Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
If Len(Trim(Fichier)) = 0 Then
MsgBox "Pas de nom de fichier"
Exit Sub
End If
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "g:\Facturation\Facturation chantier\"
If .Show = -1 Then ' Clic sur Ok
Chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
.Close
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="g:\facture vente\Exercice 2015-2016" & "\" & Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
recopie
End Sub
Actuellement il m'enregistre la facture en pdf, ca c'est nickel. par contre je souhaite qu'elle s'enregistre en xlsx au lieu de xlsm.
Quelqu'un aurais une idée ce que je doit modifier dans mon code.
merci d'avance.