Macro pour cop coller valeur un onglet dans un nouveau classeur
sbrughera
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23885 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23885 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voici une petite énigme ...
J'ai un bon de commande qui reprend l'adresse de mon fournisseur et la date du jour grâce à des formules dans un premier classeur "BDC TYPE".
Afin d'envoyer leurs bons de commandes à mes fournisseurs, il faut que je copie colle valeur dans un nouveau dossier à chaque fois.
Est -il possible de créer une macro qui ouvre un nouveau dossier, et qui copie colle valeur le premier onglet de mon dossier?
Deuxième partie d'énigme...
Peut on renommer ce nouveau classeur selon la cellule O2?
Je vous remercie par avance de votre aide :)
Bonnes fêtes!
Voici une petite énigme ...
J'ai un bon de commande qui reprend l'adresse de mon fournisseur et la date du jour grâce à des formules dans un premier classeur "BDC TYPE".
Afin d'envoyer leurs bons de commandes à mes fournisseurs, il faut que je copie colle valeur dans un nouveau dossier à chaque fois.
Est -il possible de créer une macro qui ouvre un nouveau dossier, et qui copie colle valeur le premier onglet de mon dossier?
Deuxième partie d'énigme...
Peut on renommer ce nouveau classeur selon la cellule O2?
Je vous remercie par avance de votre aide :)
Bonnes fêtes!
A voir également:
- Macro copier coller valeur
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Style d'écriture a copier coller - Guide
6 réponses
Bonjour
Essaie avec cette macro à faire executer en étant sur la feuille à copier
Sub nouveau_classeur()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("O2").Value & ".xls"
End sub
Bonnes fêtes également
Cdlmnt
Essaie avec cette macro à faire executer en étant sur la feuille à copier
Sub nouveau_classeur()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("O2").Value & ".xls"
End sub
Bonnes fêtes également
Cdlmnt
sbrughera
Merci ça marche pour le titre!
Bonjour,
via555 ne traite pas tout le problème !;)
La macro suivante copie colle la première feuille de ton classeur dans un nouveau classeur. Ensuite elle recopie sans les formules. Et enfin elle l'enregistre avec le nom spécifié en O2 :
m@rina
via555 ne traite pas tout le problème !;)
La macro suivante copie colle la première feuille de ton classeur dans un nouveau classeur. Ensuite elle recopie sans les formules. Et enfin elle l'enregistre avec le nom spécifié en O2 :
Sub sbrughera ()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets(1)
nom = feuille.Range("O2") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom & "xlsx"
Application.CutCopyMode = False
End Sub
m@rina
merci,
Dois je la mettre dans la nouvelle feuille ou dans celle que je veux copier?
Ca s'arrête au niveau de : .PasteSpecial Paste:=xlPasteValues
En tout cas merci à vous!
Dois je la mettre dans la nouvelle feuille ou dans celle que je veux copier?
Ca s'arrête au niveau de : .PasteSpecial Paste:=xlPasteValues
En tout cas merci à vous!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour et merci!
J'exécute la macro:
Sub sbrughera()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets(1)
nom = feuille.Range("N11") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
Mais en paste values on m'indique qu'il n'est pas possible car il faut que les cellules soient identiques
Je ne comprends pas très bien pourquoi.
Encore merci!
J'exécute la macro:
Sub sbrughera()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets(1)
nom = feuille.Range("N11") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
Mais en paste values on m'indique qu'il n'est pas possible car il faut que les cellules soient identiques
Je ne comprends pas très bien pourquoi.
Encore merci!
Bonjour,
Je ne vois pas pourquoi : s'il accepte XlPasteAll, il n'y a pas de raison qu'il n'accepte pas xlPasteValues qui ne fait que copier à l'identique sans les formules.
Si je n'ai pas mis directement XlPasteAll, c'est pour que tu puisses conserver le formatage.
Quelle est ta version d'Excel ? Et quand le nouveau classeur est créé, ne serait-il pas en mode Compatibilité ?
m@rina
Je ne vois pas pourquoi : s'il accepte XlPasteAll, il n'y a pas de raison qu'il n'accepte pas xlPasteValues qui ne fait que copier à l'identique sans les formules.
Si je n'ai pas mis directement XlPasteAll, c'est pour que tu puisses conserver le formatage.
Quelle est ta version d'Excel ? Et quand le nouveau classeur est créé, ne serait-il pas en mode Compatibilité ?
m@rina