ajout de code

mutzik

XLDnaute Barbatruc

• 27 Mai 2013

• #2

Re : ajout de code

bonjour,
=Chemin & Feuil5.Range("E15") &Feuil5.Range("E14") & " " & Format(Now...

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 27 Mai 2013

• #3

Re : ajout de code

merci mutzik.

A++

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 28 Mai 2013

• #4

Re : ajout de code

bonjour, j'ai testé la modif du code ci-dessous mais la partie qui parle de E14 me donne lors de l'enregistrement du fichier des chiffres dans se style " lejeune 41425 183638" le "41425" devrais être 31/05/2013
.SaveAs Filename:=Chemin & Feuil5.Range("E15") & Feuil5.Range("E14") & " " & Format(Now, "hhmmss")
Application.DisplayAlerts = True
.Close
End With

quand pensez vous ?

A+

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 28 Mai 2013

• #5

Re : ajout de code

une PJ peu servir ? pour info je travaille depuis une clé USB , pour ma part la lêttre et "H" ( voire code VBA ).

A+

 

Pièces jointes

• bon de commande et reclamation vierge 2013 .xls

  240 KB · Affichages: 35

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mai 2013

• #6

Re : ajout de code

Bonsoir,

pas ouvert ton fichier, mais essaye peut être ainsi :

Code:

.SaveAs Filename:=Chemin & Feuil5.Range("E15") & Format(Feuil5.Range("E14"), "yyyymmdd") & " " & Format(Now, "hhmmss")

bonne soirée
@+

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 28 Mai 2013

• #7

Re : ajout de code

Bonsoir Pierrot93, je viens de tester et c'est OK.
Merci
A+

 

Vote positif 0 Vote négatif