Copier une feuille dans un workbook variable
Résolu
Juvba42
Messages postés
2
Statut
Membre
-
Juvba42 Messages postés 2 Statut Membre -
Juvba42 Messages postés 2 Statut Membre -
Bonjour,
Je suis débutant dans le VBA, et je réalise un fichier un peu tordu je pense.
Je voudrai par rapport à un userform lorsque je clique sur un bouton pour ouvrir un nouveau classeur et s'enregistrer par rapport à 2 variables du userform. ensuite vient se mettre une feuille "0 bon de commande" que j'aurai créer dans un fichier type. sur cette feuille il se mettra les renseignements préalablement rempli dans le userform. petite précision l'enregistrement n'aura jamais le même nom.
voici le code que j'ai commencé à faire:
four = CB_fournisseur.Value
corr = CB_correspondant.Value
ncom = TB_numcommande.Value
jour = TB_date.Value
rdev = TB_refdevis.Value
nfic = four & ncom
'création fichier
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\tintin\" & nfic
'nouvelle feuille
Workbooks("tinti.xlsm").Activate
Sheets("Bon de commande").Select
sheets("Bon de commande").Copy Before:=& nfic.Sheets(1)
'valeurs sur BC
Workbooks(nfic).Sheets("bon").range("E15").Value = four
Workbooks(nfic).Sheets("bon").range("M15").Value = corr
Workbooks(nfic).Sheets("bon").range("Q4").Value = ncom
Workbooks(nfic).Sheets("bon").range("Q5").Value = ninv
Workbooks(nfic).Sheets("bon").range("F20").Value = rdev
Workbooks(nfic).Sheets("bon").range("M15").Value = corr
Workbooks(nfic).Sheets("bon").range("N55").Value = jour
Userform1.Hide
End Sub
ce qui est en gras ne fonctionne pas. est-ceque quelqu'un à une idée?
Je vous remercie par avance
Je suis débutant dans le VBA, et je réalise un fichier un peu tordu je pense.
Je voudrai par rapport à un userform lorsque je clique sur un bouton pour ouvrir un nouveau classeur et s'enregistrer par rapport à 2 variables du userform. ensuite vient se mettre une feuille "0 bon de commande" que j'aurai créer dans un fichier type. sur cette feuille il se mettra les renseignements préalablement rempli dans le userform. petite précision l'enregistrement n'aura jamais le même nom.
voici le code que j'ai commencé à faire:
four = CB_fournisseur.Value
corr = CB_correspondant.Value
ncom = TB_numcommande.Value
jour = TB_date.Value
rdev = TB_refdevis.Value
nfic = four & ncom
'création fichier
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\tintin\" & nfic
'nouvelle feuille
Workbooks("tinti.xlsm").Activate
Sheets("Bon de commande").Select
sheets("Bon de commande").Copy Before:=& nfic.Sheets(1)
'valeurs sur BC
Workbooks(nfic).Sheets("bon").range("E15").Value = four
Workbooks(nfic).Sheets("bon").range("M15").Value = corr
Workbooks(nfic).Sheets("bon").range("Q4").Value = ncom
Workbooks(nfic).Sheets("bon").range("Q5").Value = ninv
Workbooks(nfic).Sheets("bon").range("F20").Value = rdev
Workbooks(nfic).Sheets("bon").range("M15").Value = corr
Workbooks(nfic).Sheets("bon").range("N55").Value = jour
Userform1.Hide
End Sub
ce qui est en gras ne fonctionne pas. est-ceque quelqu'un à une idée?
Je vous remercie par avance
2 réponses
-
Bonjour,
Essaies :Option Explicit Sub x() Dim wbk As Workbook '[...] 'Copier le bon de commande dans un nouveau fichier ThisWorkbook.Worksheets("Bon de commande").Copy Set wbk = ActiveWorkbook 'Enregistrer le nouveau fichier wbk.SaveAs Filename:="C:\Users\tintin\" & nfic End Sub
-
Bonjour,
Désolé pour le retard, j'ai essayé le code mais ça ne fonctionne pas. J'ai opté pour une solution plus facile.
J'ai créer un nouveau classeur "xxxx" où je mets à jour mes champs et ensuite j'enregistre comme je veux.
Dans les grande ligne c'est ça.
merci de ta réponse quand même, et de t'être intéressé à mon problème tordu
cordialement
