macro et enregistrement

[olivierdelabas1]

Bonsoir le forum,

Je souhaite faire une petite macro pour imprimer et enregistrer une feuille excel - j'ai pas de soucis pour l'impression, mais l'enregistrement ne fonctionne pas - j'aimerais que cette feuille soit enregistrée avec le nom en E2 et la reference en E3, et ensuite dans un dossier qui se trouve sur un dique reseau - mais ça pêche.............. :whistle:
si quelqu'un à une idée je suis preneur
merci

 

[olivierdelabas1]

le p'tit fichier .............et hop.......... [file name=essai_20060426174048.zip size=6059]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060426174048.zip[/file]

 

[porcinet82]

Salut olivierdelabas1,

Je viens de jeter un petit coup d'oeil a ton fichier, zr chez moi ce code a l'air de fonctionner. Tu remarqueras que j'ai mis C:\\ pour pouvoir tester sur mon pc et que j'ai simplement remplacé 'E2' qui signifie la chaine de caractère E2 par range('E2').value.

Sub IMPRIMER()
Dim NomFichier As String
Dim Chemin As String

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Chemin = 'C:\\'
'COTATION EXCEL' & 'COTES LDC 2006'
NomFichier = Range('E2').Value & Range('E3').Value & ' à ' & Format(Time, 'hh mm ss') & '.xls'
ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier
End Sub

Voili, voilou,

@+

 

[olivierdelabas1]

merci Porcinet, je teste tout cela demain au bureau, mais le fait de faire l'enregistrement sur un disque 'reseau' n'a pas de contre indication?? ou problémes......

OLivier :side:

 

[porcinet82]

re,

Si tu as les droits pour accéder au disque réseau, je pense pas qu'il y ai de soucis puisque le chemin d'acces est similaire à celui d'un disque local.

Enfin s'il y a un soucis n'hesite pas a refaire signe.

Bonne soirée,

@+

 

[olivierdelabas1]

merci B)

 

[olivierdelabas1]

Bonjour le forum, Porcinet,

J'ai un soucie avec ma macro - j'arrive pas à la faire enregistrer dans mon dossier - voici le code si quelqu'un à une idée :whistle:
Sub IMPRIMER()
Dim NomFichier As String
Dim Chemin As String

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Chemin = 'H:\\COTATION EXCEL\\COTES LDC 2006'

NomFichier = Range('E2 ').Value & Range('E3') & '.xls'
ThisWorkbook.SaveCopyAs Filename:=Chemin & NomFichier
End Sub

 

[porcinet82]

Salut Olivierdelabas1,

Heu... c'est quoi au juste le problème, il te met une erreur sur le code, ou il l'execute et ne fait rien?
Comme il me semble que les slash passent mal sur le forum, je suppose que ton chemin est le suivant (ou quelques chose ressemblant, a noter que le dernier slash est important) :

Chemin = 'H:\\COTATION\\EXCELCOTES\\LDC 2006\\'

Sinon essaye un autre chemin genre

C:\\

pour voir si ca vient du chemin.

Tiens nous au courant.

@+

 

[olivierdelabas1]

bonsoir le forum, Porcinet,

La macro execute mais il ne se passe rien;;demain je fais l'éssai avec les slash, il me semble bien que j'ai omis le dernier slash, je te tiens au courant
merci bonne soirée
olivier