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
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
- Comment supprimer une feuille sur word - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
2 réponses
Bonjour,
Essaies :
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
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
