macro et enregistrement

O

olivierdelabas1

XLDnaute Occasionnel

• 26 Avril 2006

• #2

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]

 

Pièces jointes

• essai_20060426174048.zip

  5.9 KB · Affichages: 17

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Avril 2006

• #3

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.

Code:

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,

@+

 

Vote positif 0 Vote négatif

O

olivierdelabas1

XLDnaute Occasionnel

• 26 Avril 2006

• #4

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:

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Avril 2006

• #5

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,

@+

 

Vote positif 0 Vote négatif

O

olivierdelabas1

XLDnaute Occasionnel

• 26 Avril 2006

• #6

merci B)

 

Vote positif 0 Vote négatif

O

olivierdelabas1

XLDnaute Occasionnel

• 27 Avril 2006

• #7

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Avril 2006

• #8

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) :

Code:

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

Sinon essaye un autre chemin genre

Code:

C:\\

pour voir si ca vient du chemin.

Tiens nous au courant.

@+

 

Vote positif 0 Vote négatif

O

olivierdelabas1

XLDnaute Occasionnel

• 27 Avril 2006

• #9

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

 

Vote positif 0 Vote négatif