Copier coller en valeur dans un autre classeur
CedricG62
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Alors voilà, je veux copier coller une feuille nommée "IENET" d'un classeur dans un nouveau classeur.
Le problème c'est que les valeurs proviennent de formules, il faut donc faire un copier coller en valeur.
Ci-dessous mon code : (en vert c'est ce que j'ai essayé mais ça ne fonctionnait pas et en noir, j'ai trouvé cette solution sur un forum mais ça ne copie pas en valeur donc j'ai des erreurs dans mes données au moment de coller)
Ensuite, j'ai vu qu'il était possible d'ouvrir automatiquement une fenêtre d'enregistrement du nouveau fichier mais je n'arrive également pas à le mettre en place...
Merci de votre aide,
Cédric
Alors voilà, je veux copier coller une feuille nommée "IENET" d'un classeur dans un nouveau classeur.
Le problème c'est que les valeurs proviennent de formules, il faut donc faire un copier coller en valeur.
Ci-dessous mon code : (en vert c'est ce que j'ai essayé mais ça ne fonctionnait pas et en noir, j'ai trouvé cette solution sur un forum mais ça ne copie pas en valeur donc j'ai des erreurs dans mes données au moment de coller)
Private Sub CommandButton3_Click()
Sheets("IENET").Activate
'ActiveSheet.Cells.Select
'Selection.Copy
'Worksheets.SaveAs Filename:="Fichier importation dans IENET"
'Workbooks("Fichier importation dans IENET.xlsx").Activate
'Range("A1").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
ThisWorkbook.ActiveSheet.Copy _
Before:=Workbooks.Add.Worksheets(1)
End Sub
Ensuite, j'ai vu qu'il était possible d'ouvrir automatiquement une fenêtre d'enregistrement du nouveau fichier mais je n'arrive également pas à le mettre en place...
Merci de votre aide,
Cédric
A voir également:
- Copier coller en valeur dans un autre classeur
- Retrouver un copier-coller android - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Symbole clavier copier coller - Guide
3 réponses
Bonjour,
A adapter:
A adapter:
Sub Creer_Classeur_Valeur()
Application.ScreenUpdating = False 'desactive rafraichissement Excel
chemin = ActiveWorkbook.Path & "\" 'chemin du classeur actif
Worksheets("Bibli.").Range("A1").CurrentRegion.Copy
With Application
.Workbooks.Add
End With
With ActiveWorkbook
Worksheets("Feuil1").Select
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'enregistrement dans un nouveau classeur
Application.DisplayAlerts = False 'desactive les alertes Excel
'.Title = ActiveSheet.Name 'titre pour propriete/detail du classeur
'.Subject = ActiveSheet.Name ' objet pour propriete/detail du classeur
.SaveAs Filename:=chemin & "Test_A FAIRE.xlsx" 'sauvegarde le nouveau classeur
.Close True 'ferme le nouveau classeur avec sauvegarde
End With
Application.DisplayAlerts = True 'active les alertes Excel
Application.ScreenUpdating = True 'active rafraichissement Excel
End Sub
Re,
Excel est un peu capricieux de temps en temps.
Fichier modifie: https://www.cjoint.com/c/LFooyzIidKg
Excel est un peu capricieux de temps en temps.
Fichier modifie: https://www.cjoint.com/c/LFooyzIidKg
Bonjour,
En effet, maintenant ça fonctionne ; il y a juste la date qui affiche "44726" au lieu de "14/06/2022"
J'ai changé dans le code :
En ça :
Mais rien ne change alors que lorsque j'enregistre la macro en faisant la manipulation manuellement, c'est le code que j'ai changé qui ressort mais là ça ne fonctionne pas (voir le fichier ci-dessous)
https://www.cjoint.com/c/LFpgG6i7djk
En effet, maintenant ça fonctionne ; il y a juste la date qui affiche "44726" au lieu de "14/06/2022"
J'ai changé dans le code :
.Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
En ça :
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Mais rien ne change alors que lorsque j'enregistre la macro en faisant la manipulation manuellement, c'est le code que j'ai changé qui ressort mais là ça ne fonctionne pas (voir le fichier ci-dessous)
https://www.cjoint.com/c/LFpgG6i7djk
Après adaptation des noms dans le code, en la lançant pour tester, j'ai ces 2 lignes là en erreurs :
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseSi vous avez besoin de mon fichier pour essayer directement, ci-dessous le lien :
https://www.cjoint.com/c/LFolNMcHwrk
(le code est le 3ème dans la feuil3)