copier une feuille dans un workbook variable Résolu/Fermé

Question

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	intin\" & 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

Patrice33740 · Answer

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	intin" & nfic
  
End Sub

Juvba42 · Answer

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

Copier une feuille dans un workbook variable

2 réponses

Discussions similaires

Newsletters