Langage VBA
micka31
Messages postés
51
Statut
Membre
-
micka31 Messages postés 51 Statut Membre -
micka31 Messages postés 51 Statut Membre -
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
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
A voir également:
- Langage VBA
- Langage ascii - Guide
- Langage binaire - Guide
- Excel compter cellule couleur sans vba - Guide
- Langage visual basic - Télécharger - Langages
- Vba sleep ✓ - Forum VB / VBA
7 réponses
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.
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.
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
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
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...
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...
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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"
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"
Vous aviez recu le pos concernant l'erreur qu'il me met avec la procédure que je met?
Je vous remercie...
Je vous remercie...
