Enregistrement

[Ricsavoy]

Bonjour à toutes et tous !

Voilà ce que j'aimerais faire, je sais que le problème a été plusieurs fois soulevé mais avec tous les fils que j'ai lu j'avoue que je me mélange un peu les crayons.

A. J'ai crée un dossier ''devis'' sur le bureau.

Via un USF avec les bouton ''OUI'' et '' NON''. Si l'utilisateur clique sur ''Oui'' excel lui propose par le biais d'un autre usf d'enregistrer le fichier excel avec comme nom. la date du jour et la cellule ''D3'' de la feuille ''Devis'' et le chemin vers mon dossier ''devis'' et que lorsque qu'il valide ça execute l'enregistrement.

Si il clique sur ''NON''; sortie sans rien faire.

NB. Je suis obligé de passer par un usf de transition car j'aurais parfois l'obligation de faire 2 devis pour un même client et si c'est un enregistrement automatique, excel ecrasera mon premier fichier. pour contrer ça l'utilisateur pourra par exemple ajouter un ''2'' dans le nom du fichier

Puté si vous arrivez à me comprendre c'est que vous êtes vraiment fortiche.

 

[ConsultantJP]

Re : Enregistrement

Bonjour,

Ou se trouve le fichier en question, dans un autre répertoire que celui du devis ou est ce le meme ?

 

[Ricsavoy]

Re : Enregistrement

le fichier ''Devis'' c'est :
C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis

et le fichier excel "DEVIS CARNET.xls" c'est :
C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis\DEVIS CARNET.xls
donc oui tout est dans le même dossier.

 

[Ricsavoy]

Re : Enregistrement

Pardon Bonjour JP.

 

[Ricsavoy]

Re : Enregistrement

Personne n'a de solution à mon problème ?

 

[GCFRG]

Re : Enregistrement

Bonjour, essayes ceci
Sub test()
Dim CheminFerme As String, Fichier As String
CheminFerme = "C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis"
If Dir(CheminFerme, 16) = "" Then MkDir CheminFerme
Fichier = "DEVIS CARNET.xls"
Workbooks.SaveAs Filename:=CheminFerme & Fichier
End Sub

 

[Ricsavoy]

Re : Enregistrement

Bonjour GCFRG,

Ce code je le mets sur le bouton ''oui'' de mon usf ?

 

[GCFRG]

Re : Enregistrement

Voila tous le code pour les 2 boutons
Private Sub Non_Click()
Unload Me
Exit Sub
End Sub

Private Sub oui_Click()
Dim CheminFerme As String, Fichier As String
CheminFerme = "C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis"
If Dir(CheminFerme, 16) = "" Then MkDir CheminFerme
Fichier = "DEVIS CARNET.xls"
ThisWorkbook.SaveAs Filename:=CheminFerme & Fichier
End Sub
Si problème revient

Cordialement
Gilbert

 

[GCFRG]

Re : Enregistrement

si le If Dir(CheminFerme, 16) = "" Then MkDir CheminFerme pose problème,ou si le chemin existe déjà, met 1 ' devant la ligne, elle ne sara pas executer.

@+
Gilbert

 

[Ricsavoy]

Re : Enregistrement

J'ai très legerement modifié ton code, à savoir :

Private Sub Non_Click()
Unload Me
Exit Sub
End Sub

Private Sub oui_Click()
Dim CheminFerme As String, Nom As String
CheminFerme = "C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis"
If Dir(CheminFerme, 16) = "" Then MkDir CheminFerme
Nom = Range("D3") & "_" & Format(Date, "ddmmyyyy") & ".xls"
ThisWorkbook.SaveAs Filename:=CheminFerme & Nom
Unload Me
End Sub


Et là plusieurs problèmes se pose :

1. Mon fichier est enregistré sur mon bureau et pas dans le répertoire "devis"
2. Le nom du fichier créer commence toujours par devis c'est à dire Devislolla_19032009.xls au lieu de Lolla_19032009.xls tout simplement.
3. Enfin si je refuse l'enregistrement en cliquant sur le bouton "NON" ça bug ici.

ThisWorkbook.SaveAs Filename:=CheminFerme & Nom

Bizarree, vous avez dit bizarre ?

 

[GCFRG]

Re : Enregistrement

Désolé P'tite erreur
CheminFerme = "C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis\"
Il manquait le "\" J'avais pas tester
Gilbert

 

[GCFRG]

Re : Enregistrement

ton fichier corrigé

Gilbert

 

[Ricsavoy]

Re : Enregistrement

Yesss Merci Gilbert, ça fonctionne impec....

L'étape 1 est complète et grace et toi et si je passe à l'étape 2 c'est à dire que :

que je veuille enregistrer une seconde, voire une troisième version de mon fichier par necessité (et je m'en passerais bien) je voulais creer un second usf au cas ou le fichier existe dejè dans le répertoire qui propose avec le meme chemin de saisir un autre nom mais c'est peut être se prendre la tête pour rien. Est ce qu'il ne serait pas possible de mettre en macro un ''2'', puis un ''3" etc.

Un exemple :

le fichier lolla_21032009.xls est créer via la methode de Gilbert
si je dois en enregistrer un nouveau

il y aurait un lolla_21032009V2.xls puis un lolla_21032009V3.xls

Vous voyez l'idée ?

 

[GCFRG]

Re : Enregistrement

Bonjour,
Je vois çà dans la soirée si tu n'est pas trop pressé

Cordialement
Gilbert

 

[Ricsavoy]

Re : Enregistrement



Tu me maches tout le boulot et en plus je devrais l'exiger dans le quart d'heure.. Il faudrait être sacrement culotté comme mec. Nan nan prends ton temps Gilbert.

D'avance merci.