olivierdelabas1
XLDnaute Occasionnel
Bonjour le forum,,
J'ai depuis deux jours une erreur sur une macro - code 1004 -, je vois pas trop se qui cloche, je vous joint lr code, si toute fois vous aviez un avis.........cette macro imprime et enregistre le document dans un dossier en reprenant la date du document.merci de votre aide
Sub IMPRIMER()
'
Dim NomFichier As String
Dim Chemin As String
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Chemin = 'E:\\mes documents du 02012004\\laverie\\RUE DE FRANCE\\' _
& 'RIVIERA RENTAL\\sauvegarde\\'
NomFichier = 'sauvegarde du' & Format(Date, 'dd mm yy') & ' à ' & Format(Time, 'hh mm ss') & '.xls'
ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier
End Sub
OLivier :side:
J'ai depuis deux jours une erreur sur une macro - code 1004 -, je vois pas trop se qui cloche, je vous joint lr code, si toute fois vous aviez un avis.........cette macro imprime et enregistre le document dans un dossier en reprenant la date du document.merci de votre aide
Sub IMPRIMER()
'
Dim NomFichier As String
Dim Chemin As String
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Chemin = 'E:\\mes documents du 02012004\\laverie\\RUE DE FRANCE\\' _
& 'RIVIERA RENTAL\\sauvegarde\\'
NomFichier = 'sauvegarde du' & Format(Date, 'dd mm yy') & ' à ' & Format(Time, 'hh mm ss') & '.xls'
ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier
End Sub
OLivier :side: