Langage VBA

Question

Bonjour,
j'aimerai transformer ces étapes en procédure sous visual basic excel: pourriez vous m'aider svp?
Alors j'ai dans un fichier excel plusieurs sortes de devis, j'ai mis un boutton valider dans chaque feuille. Avec ce boutton j'aimerai enregistrer chaque devis qui se trouve dans un dossier "DEVIS 2009" dans le bureau.
les étapes sont: 
1- Selectionner la feuille
2- Copier cette selection
3- Ouvir dossier "devis 2009" dans le bureau
4- Coller la feuille
5- (j'aimerai mettre comme titre une cellule de la feuille qui contient le numéros de devis comme ca les devis seront enregistrer par leur numéros)
6- Fermer le dossier
7- Remettre le devis vide
C'est possible de faire cela? 
Je vous remercie par avance
Micka31 
Je vous montre le fichier qui contient les devis   http://www.cijoint.fr/cjlink.php?file=cj200906/cijt9lPsOu.xls

lami20j · Answer

Salut,

Tu pourras nous montrer ce que tu as fait, pour voir où ça coince, sinon on pourra croire que tu veuilles qu'on fasse le travail à ta place. Je ne pense pas que c'est ça que tu veux.
Merci.

micka31 · Answer

Bonjour, non svp ne croyez pas que je vous demande de faire le boulot à ma place pas du tout au contraire: Regarder ce que j'ai fais alors je suis sur visual basic 
j'ai mis ca comme procédure pour l'instant il me dise erreur destination.
Sub enregistredevis()
Sheets("devis Cegelec").Select
Sheets("devis Cegelec").Copy
ChDir "c:\Documents and settings\DEVIS 2009\bureau\"
Je voudrai ouvrir le dossier DEVIS 2009 dans mon bureau et enregistrer la feuille que j'ai copié c'est possible
Je vous remercie par avance

pijaku · Answer

Salut,
Elle est de toi cette procédure? bon début effectivement. Pour la suite :
Sub enregistredevis()
Dim valeur As String
valeur = [B1] 'B1 = cellule ou figure le n° du devis 
Sheets("devis Cegelec").Select
Sheets("devis Cegelec").Copy
ChDir "C:\Documents and settings\xxxxxxxx\bureau\DEVIS 2009"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and settings\xxxxxxxx\bureau\DEVIS 2009\" & valeur & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
end sub
voir ici ou la .........
Si ça ne fonctionne pas comme tu veux ne créés pas une nouvelle discussion.
En fait, ça ne sert à rien d'ouvrir un dossier. Tu le sélectionnes comme ceci :
ChDir "C:\Documents and settings\xxxxxxxx\bureau\DEVIS 2009"
et tu y enregistres ton nouveau fichier...

micka31 · Answer

Bonjour Monsieur, 
Je pense que je suis sur la bonne voie alors en affectant la maccro au boutton VALIDER avec cette procédure 
Sub enregistredevis()
Sheets("devis Cegelec").Select
Sheets("devis Cegelec").Copy
ChDir "c:\Documents and settings\DEVIS 2009\bureau\"
Sheets("devis Cegelec").Copy
Sheets("devis Cegelec").Select
Sheets("Devis Cegelec").Name = [A17]
End Sub
Ca m'ouvre la feuille à coté donc c'est deja ca il faut qu'il m'ouvre le dossier devis 2009 et colle la feuille avec le titre modifié...
Au pire comme ca ouvre à coté on peut le faire manuellement aprés quoi.
Mais ca me fait quand même erreur chemin d'accés introuvable même si cela fonctionne c'est bizar
Je vous remercie par avance.
Micka

pijaku · Answer

avec ça : Sheets("Devis Cegelec").Name = [A17] tu renomme la feuille donc l'onglet. Pour l'enregistrer sous c'est :
Sub enregistredevis()
Dim valeur as string
Sheets("devis Cegelec").Select '.......
......
........
Sheets("Devis Cegelec").Name = [A17]
valeur = [A17]
ActiveWorkbook.SaveAs Filename:= _ 
"C:\Documents and settings\xxxxxxxx\bureau\DEVIS 2009\" & valeur & ".xls"

micka31 · Answer

Vous aviez recu le pos concernant l'erreur qu'il me met avec la procédure que je met?
Je vous remercie...

micka31 · Answer

Bonsoir Monsieur, 
Je vous remercie infiniment pour l'aide que vous m'aviez apporté pour mon projet, sans vous je n'aurai pu rien faire j'ai fais juste une partie de la macro j'ai pas reussis pour l'enregistrement il le feront manuellement en tout cas merci beaucoup
Micka

Langage VBA

7 réponses

Discussions similaires

Newsletters