Code Sauvegarde a Modifier

[MuscatMimi]

Bonsoir a tous le Forum

Avec le Code du fichier joint j'aimerais pouvoir Créer un "Dossier" avec le "Nom de la cellule B1"

Puis sauvegarder le Classeur Sous le nom de La cellule B1 & B2 & B3 & B4 & B5

en ayant un espace entre chaque mot Exemple "Denis Fact 104/2009 Cde 2009/104.xls,
dans ce Fichier les explication y sont notifiées

Merci de votre aide précieuse

Cordialement

 

[kjin]

Re : Code Sauvegarde a Modifier

Bobsoir,
Tu veux dire à la place de la msgbox actuelle ?
A+
kjin

 

[MuscatMimi]

Re : Code Sauvegarde a Modifier

Re

Non en plus!!! qu'en pense-tu??

@+++++++

 

[kjin]

Re : Code Sauvegarde a Modifier

Bonsoir,
Avec une msgbox perso à la sauce du génial mdF, sinon une msgbox classique
Supprimme l'une des deux
A+
kjin

 

[MuscatMimi]

Re : Code Sauvegarde a Modifier

Salut Kjin

Merci du temps que tu me consacre

mdf, je connais, c'est un excellent, toi aussi d'ailleur

La tout fonctionne a merveille dans le fichier essai

Par contre j'ai inclu ce code dans mon Fichier actuel mais la Oups

Format de date 05/09/2009 ça prends pas

idem pour le N° de Facture 104/2009

Il y a t'il une astuce???pour contourner ce soucis, si possible
en gardant les format ci-dessus

Bon week-end et encore merci

Cordialement

 

[kjin]

Re : Code Sauvegarde a Modifier

Bonjour,
Non, relis le #2 ou je t'indiquais déjà que tu ne peux en aucun cas utiliser aucun de ces 9 caractères:
/ \ : ? * " < > |
dans un nom de fichier
Comme tu utilises des slash, évidemment ça coince
Donc, si le nom de ton fichier est toto 104/2009 05/09/2009, tu peux remplacer les slash par un autre caractère (un tiret dans l'exemple) au début de la macro

Nom = Range("A1") & " " & Range("D5") & " " & Range("I2") & " " & _
        Range("E5") & " " & Range("J4") & " " & Range("C8")
Nom = Replace(Nom, "/", "-")

A+
kjin

 

[MuscatMimi]

Re : Code Sauvegarde a Modifier

Re Kjin

Oups éffectivement oubli

Pardon

J'ai entré ce bout de code et OK ça fonctionne

milles merci

Cdlt