Copier une feuille dans un workbook variable

Résolu

Juvba42 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Juvba42 Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 29 sept. 2015 à 19:20

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

A voir également:

Copier une feuille dans un workbook variable
Comment copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Bruler une feuille de laurier - Guide
Comment supprimer une feuille sur word - Guide
Feuille de pointage excel - Télécharger - Tableur

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Réponse 2 / 2

Juvba42 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

dessin avec symbole clavier

Feuille de score belote

Les feuilles Diddl

Votre réponse

Discussions similaires