erreur 1004

[olivierdelabas1]

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:

 

[olivierdelabas1]

bon comme j'ai pas envi de m'arrêté là,

j'ai piquer un bout de code de jmps que j'ai trouvé par hazard et je l'ai collé dans ma macro, mais y'a un truc que j'ai pas dû comprendre............


Option Explicit
Sub Macro1()
Range('a9:e35').Select
Selection.ClearContents
Range('A1').Select
End Sub

Sub IMPRIMER()
'
Dim NomFichier As String
Dim Chemin As StringSub Macro1()
Range('C2:G10').Select
Selection.ClearContents
Range('A1').Select
End Sub

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Chemin = 'E:mes documents du 02012004laverieRUE DE FRANCE' & _
'RIVIERA RENTALsauvegarde'

NomFichier = ' sauvegarde du ' & Format(Date, 'dd mm yy') & ' à ' & Format(Time, 'hh mm ss') & '.xls'


ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier



End Sub

Y'a une ligne en rouge???????????

Je sais je suis pas bon en macro, mais mille pardons, je n'en suis qu'a la page 44 du livre ' VBA POUR EXCEL POUR LES NULS'
Sorry again......

:side:

 

[olivierdelabas1]

bon moi j'veux bien.............j'ai bu un p'tit de rosé d'accord.. :sick: , mais j'suis pasq le seul........ , jmps tu m'as acompagné je crois
Lien supprimé

et alors il est de qui le ccccoooooddddeeeee B)

 

[Brigitte]

Sympa ton avatar Olivier, on se croirait dans le thriller que je vais encore lire avant de faire dodo.... Brrrrrrrrr

 

[olivierdelabas1]

bon d'accord pour l'avatard..........j'sais pas pourqoui c'est noir..........mais pourquoi ma macro marche pas svp.......... :S

 

[olivierdelabas1]

Bonsoir le forum, jmps

J'y comprend rien, j'ai ré écrit le code 3 fois, j'ai changé de dossier c:\\toto.., rien ne marchais vraiment bien, l'enregistrement se faisant toujours un dossier trop top (c:\\toto\\sauvegarde, et bien cela sauvegardais bien mais dand le dossier toto.), bref, j'ai re écrit le code que voilà
Option Explicit

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 RENTALS\\sauvegarde\\'

NomFichier = Format(Date, 'dd mm yy') & ' à ' & Format(Time, 'hh mm ss') & _
' sauvegarde.xls'

ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier

End Sub

qui me semble etre parfaitement identique aux autres .....

:silly: et bien maintenant tout marche bien.... :lol:
Dite moi les as de la macro.... c'est toujours comme cela avec les macros... :unsure: , non c'est parceque moi je débute...alors j'ai bien savoir si les petites bebete macro on des caprices... B)

:side:

 

[olivierdelabas1]

Bonjour jmps, le forum,

Merci pour toutes ces explcations....et à bientot

:side: