bonsoir à tous
je suis un petit nouveau
j'ai créé une feuille excel qui s'enregistre automatiquement via une VBA dans un dossier appelé sauvegarde en format PDF.
je voudrais que cette feuille s'enregistre aussi en xls
voici la vba que j'ai créé elle fonctionne mais la page enregistrer en xls est vide
Dim fichier As String
Sheets("Imp").Select
ActiveWorkbook.SaveAs Filename:= "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value & ".xls"
fichier = "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False
Sheets("Imp").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Document").Select
Range("N7:Q12,N14:Q15").Select
Range("N14").Activate
ActiveWindow.SmallScroll Down:=6
Range("N7:Q12,N14:Q15,E21:M44").Select
Range("E21").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("N7:Q7").Select
Range("p13").Select
num = Range("p13").Value
num = num + 1
Range("p13").Value = num
Range("N7:Q7").Select
ActiveCell.FormulaR1C1 = ""
ActiveWorkbook.Save
End Sub
je suis un petit nouveau
j'ai créé une feuille excel qui s'enregistre automatiquement via une VBA dans un dossier appelé sauvegarde en format PDF.
je voudrais que cette feuille s'enregistre aussi en xls
voici la vba que j'ai créé elle fonctionne mais la page enregistrer en xls est vide
Dim fichier As String
Sheets("Imp").Select
ActiveWorkbook.SaveAs Filename:= "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value & ".xls"
fichier = "h:\ Sauvegarde\" & [l7].Value & "_" & [o13].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False
Sheets("Imp").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Document").Select
Range("N7:Q12,N14:Q15").Select
Range("N14").Activate
ActiveWindow.SmallScroll Down:=6
Range("N7:Q12,N14:Q15,E21:M44").Select
Range("E21").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("N7:Q7").Select
Range("p13").Select
num = Range("p13").Value
num = num + 1
Range("p13").Value = num
Range("N7:Q7").Select
ActiveCell.FormulaR1C1 = ""
ActiveWorkbook.Save
End Sub