Langage VBA soucis

Question

Bonjour j'ai un petit soucis dans le langage visual basic editor en fait jai un projet d'automatisation de devis j'ai plusieurs devis dans un classeur j'ai mis en place un boutton valider dans chaque feuille devis j'aimerai avec ce boutton mettre une procédure qui enregistre ce devis dans un fichier special que j'ai créer "DEVIS 2009"
alors jai mis 

Sub enregistredevis()
worsheets("Devis Cegelec").Select


    Application.WindowState = xlMinimized
End Sub
la quand jessaye la maccro il me mette erreur? donc je ne comprend pas? Pourriez vous m'aider svp?
Coridialement 
Micka

chossette9 · Answer

Bonjour, 

commence par écrire Worksheets au lieu de worsheets, et dis-nous si ça fonctionne.

Cordialement.

micka31 · Answer

Rebonjour c'est bon c'etait une erreur de saisie worksheets.select c'est pour selectionner, pour copier et coller dans le fichier devis 2009? vous savez quoi mettre?
Merci par avance 
Micka

chossette9 · Answer

Donc si je comprends bien, tu as plusieurs devis dans un fichier (que l'on va nommer par exemple "toto") et tu voudrais mettre les devis dans un fichier que tu as nommé "Devis 2009". Chaque devis est dans une feuille c'est ça ?

Donc si c'est ça, tu peux mettre comme code pour copier ton "Devis Cegelec" : 

Sub enregistredevis()
worsheets("Devis Cegelec").Select
Cells.Select 'sélectionne toute la feuille
Selection.Copy 'copie de la feuille'
Application.Workbook("DEVIS 2009").Open 'il te faut ouvrir le fichier DEVIS 2009, sinon la macro ne           'fonctionnera pas
Application.Workbook("DEVIS 2009").Sheets("Feuil1").Select 'sélection de la destination du devis
ActiveSheet.Paste 'la copie est collée dans la feuille active, ici Feuil1 qui a été sélectionnée précédemment

Application.WindowState = xlMinimized
End Sub 

Voilà, le code est encore à améliorer, mais voici une bonne base je pense.

Cordialement.

micka31 · Answer

je vous remercie beaucoup Monsieur, mais en fait le but n'est pas de copier la feuille dans un classeur devis mais carrément dans un fichier et de prendre comme titre la cellule numéros de devis? vous voyez ou je veux en venir? 
Je vous remercie par avance
Micka

pijaku · Answer

Bonjour,
Dim valeur As String
valeur = [B1] 'B1 = cellule ou figure le n° du devis
    Sheets("Devis Cegelec").Select
    Sheets("Devis Cegelec").Copy
    ChDir "C:\inscrire ici le chemin de la sauvegarde"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\inscrire ici le chemin de la sauvegarde" & valeur & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close

Ceci n'est qu'une base à améliorer (test si le fichier existe déjà etc...)
  --
Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

Polux31 · Answer

Bonjour,

Sub enregistredevis()
Dim sh

Application.DisplayAlerts = False

For Each sh In Worksheets
   If sh.Name <> "Devis Cegelec" Then
      sh.delete
   End If
Next sh

ThisWorkbook.SaveAs("Devis 2009.xls")

Application.DisplayAlerts = True

End Sub

;o)

micka31 · Answer

Rebonjour,
Application.workbook("devis2009).open c'est pas ouvir un nouveau classeur?? non?
Je vous remercie par avance

micka31 · Answer

bonjour monsieur, 
"C:\inscrire ici le chemin de la sauvegarde" & valeur & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close 

Chemin de la sauvegarde " valeur.xls" c'est pas un nouveau classeur que vous demandez d'ouvir? en fait c'est un fichier que j'aimerai ouvrir? je peux le faire?
Je vous remercie

micka31 · Answer

rebonjour, 
Oui c ca sauf que classeur existant est à remplacer par fichier existant... c possible?
Je vous remercie

micka31 · Answer

Rebonjour
Oui je sais exactement car j'ai noté sur une feuille il me manque comment le transoformer en VBA: 
1- selectionner la feuille devis
2- Copier cette feuille
3- Coller dans un fichier mais non pas un classeur " FICHIER DEVIS 2009"
4- donner un titre à la feuille qui sera une cellule de la feuille (N°devis)
5- remettre les cellule à 0 
Je vous envois le fichier dans lequel il y a les devis: http://www.cijoint.fr/cjlink.php?file=cj200906/cijWiXyrZ2.xls
Je vous remercie par avance
Micka

pijaku · Answer

Pourriez vous me donner le chemin d'accès à votre fichier de sauvegarde ainsi que son nom?

Polux31 · Answer

3- Coller dans un fichier mais non pas un classeur " FICHIER DEVIS 2009" 

Quel type de fichier ?

micka31 · Answer

un dossier en fait...
je vous remercie desolé si je ne suis pas assez claire

micka31 · Answer

Non en fait le but principal est d'enregistrer mes devis dans un dossier "DEVIS 2009" parceque si on le fé manuellement avec enregistrer sous ca m'enregistre tous le classeur vous comprenez? la je veux qu'enregistrer la feuille dans ce dossier en prenant comme titre le numero de devis(la cellule)
Je vous montre mon fichier avec les devis... 
http://www.cijoint.fr/cjlink.php?file=cj200906/cijWiXyrZ2.xls
Je vous remercie 
Micka 31

Polux31 · Answer

Pour créer un répertoire en VB et VBA :

MkDir("chemin et nom du répertoire à créer")

Exemple : 

Pour créer un répertoire dans le répertoire C:	emp

MkDir("C:	emp\dossier")

micka31 · Answer

Bonjour escusez moi de vous deranger comment on fait pour ouvrir un dossier qui se trouve dans le bureau avec le langage visual basic? 
Je vous remercie par avance
Micka31

micka31 · Answer

bonjour monsieur, 
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 
Je comprend pas ce que vous voulez faire par cette procédure?
Je vous remercie par avance

micka31 · Answer

Monsieur, vous aviez recu mes derniers messages?
Je vous remercie par avance
Micka

Langage VBA soucis

18 réponses

Discussions similaires

Newsletters