Bonjour,
 
Je cherche un code VB pour enregistrer "sous" mes fichiers Excel en fonction des critères suivants (variables) :
 
- Cellule A1 = client
- Cellule A2 = prenom
 
 
Le code VB doit donc enregistrer mes fichiers en fonction des parametres ci-dessus (variables)
 
Cclient/prenom.xls
 
 
Si possible, le code doit permettre de reperer si le ficher existe deja.
Si ce n’est pas possible, le fichier portera le nom suivant
 
Cclient/prenom jj mm aa hh mm ss.xls
 
*****
 
Thanks !

Bonjour juans,
 

Pour enregistrer :

Un nom de fichier ne contient pas de "/" mais des "\" pour séparer le noms des répertoires ! Dans le nom même du fichier ces caractères ne sont par ailleur pas autorisés.
 

Pour tester l'existence d'un fichier, tu peux utiliser ce genre de choses :

Il existe d'autres méthode via fileexists (filesystemobject)...
a toi de voir
@+

J'ai essayé de bidouiller ce code mais je n'arrive pas au resultat voulu.
 
La cellule A1 doit donner le nom du dossier qui doit se creer
 
La cellule A2 donne le nom du fichier (*.xls) et doit etre capable de mettre l'heure de l'enregistrement a la fin du nom du fichier
 
Resultat attendu :  Cclient/prenom_hh:mm
 
Rappel : ce module est executé a partir d'un CommandButton
 

ok !  
Et ça bloque où? sur quoi? Quel code as-tu?
les ":" sont interdits aussi dans les noms de fichier... Utilise des "\" , ça ira peut-être déjà mieux
 
@+

peut être que juans est sur mac donc / serait correcte
 
dir(monfichier) retourne "" si le fichier est inexistant.
 
donc  
 
Monfichier = "c" & [a1] & "/" & [b1]
 
if dir(monfichier & ".xls" <>"" then
monfichier = monfichier & " " & now
end if
monfichier = monfichier & ".xls"
 
thisworkbook.save monfichier
 
 
Bon voilà, ça si c'est t'es sur un mac. Pour windows, il faut remplacer "/" par "\"
 
++ et bonne prog

oups, remplace [b1] par [a2], ce sera mieux
 
pour rappel, la notation [a2] équivaut à eval("a2" ) ou encore range("a2" )

Cool je connaissais pas cette notation [a1] , bien pratique...
merci au passage
 
J'avais effectivement pas pensé à mac pourtant j'en ai 3 à la maison mais j'ai pas de crosoft dessus

Non je suis sur PC... mais je suis vraiment pas une star en programmation!
 
Je bosse dessus et je donne mon code d'ici 15h00

Voici mon code final mais qui ne marche pas !!!
 
*********
 
Private Sub CommandButton1_Click()
 
monfichier = "c:\" & Range("a1" ).Value & "\" & Range("b1" ).Value & Range("c1" ).Value
 
If Dir(monfichier & ".xls" ) <> "" Then
 
monfichier = monfichier & " " & Now
End If
monfichier = monfichier & ".xls"
 
ThisWorkbook.SaveCopyAs monfichier
 
End Sub
 
********
 
 
Problemes rencontres :
  - la creation de dossier ne marche pas
  - le ficher fonctionne quand le dossier est créé au prealable
  - le format "Now" ne fonctionne pas
 

Bonjour,

Bonjour,
Il faut tout d'abord créer le dossier si il n'existe pas:
 

Bonjour,
Il faut tout d'abord créer le dossier si il n'existe pas:
On error resume next  'ne prend pas en compte l'erreur si le dossier existe déjà
mkdir "c:\" & Range("a1" ).Value
on error goto 0
 
Now renvoie un format date soit de type JJ/MM/AA HH:MM:SS, les barres obliques '/' et les ':' ne sont pas acceptées comme nom de fichier. Si on souhaite intégré une date dans un nom de fichier on peut utiliser :
jour = Day(Now) & "." & Month(Now) & "." & Year(Now) & " " & Hour(Now) & " " & Minute(Now) & " " & Second(Now)
ou alors plus facile à trier :
 jour = Year(Now) & "." & Month(Now) & "." & Day(Now) & " " & Hour(Now) & " " & Minute(Now) & " " & Second(Now)
 
c'est quoi C1 dans Range("c1" ).Value  
 
je te propose :
 
Private Sub CommandButton1_Click()  
On error resume next  
mkdir "c:\" & Range("a1" ).Value
on error goto 0
 
monfichier = "c:\" & Range("a1" ).Value & "\" & Range("b1" ).Value & Range("c1" ).Value  
 
If Dir(monfichier & ".xls" ) <> "" Then  
jour = Year(Now) & "." & Month(Now) & "." & Day(Now) & " " & Hour(Now) & " " & Minute(Now) & " " & Second(Now)
monfichier = monfichier & " " & jour  
End If  
monfichier = monfichier & ".xls"  
 
ThisWorkbook.SaveCopyAs monfichier  
End Sub  
 
Cordialement
Epéna

Voici le code final (un grand merci a Epena  )
 
Si la cellule B1 est vide, un UserForm (save_client) proporse de la remplir
 
Le code permet ensuite d'enregistrer (en creant un dossier) une copie du fichier dans le chemin suivant
 
 "c:\Saisie Client\valeur B1\Valeur B1_Client.xls"
 
 
Puis si le fichier existe deja, un nouveau format ajoutant la date permet de ne pas ecraser le precedent :
 
"c:\Saisie Client\valeur B1\Valeur B1_Client aaaa-mm-jj-mm-ss.xls"
 
 
 

salut,
utilise ça pour facilité l'écriture du nom de fichier
jour = format(now, "dd-mm-yy hh mm ss" )

C'est effectivement plus élégant.
Epéna