Copier coller un tableau
Bonjour,
Je voudrais copier en valeur dans un nouveau worbook, un tableau d'un autre worbook (plus goblalement le tout le contenu d'une feuille). Le problème c'est que le tableau que je veux copier, excel m'indique que la taille des cellules fusionnées doit être identique. Or, j'ai copié le même format de tableau dans mon nouveau fichier.
Voic mon code
wb_perf70.Sheets("Récapitulatif").Activate
'On copie les données dans Récapitulatif70
With ActiveSheet
Range("B1:U60").Select
Application.CutCopyMode = False
Selection.Copy
End With
'On colle dans Perp
wb_principal.Sheets("Récapitulatif70").Activate
Range("B1:U60").PasteSpecial Paste:=xlPasteValues 'cette ligne là ne marche pas
Application.CutCopyMode = False
Merci de votre aide
Bonjour
C'est normal. Eviter à tout prix les cellules fusionnées avec VBA
Pourquoi vous ne copier pas simplement votre feuille complète dans un nouveau classeur et ce, vis le click droite sur l'onglet concerné ?
Cordialement
Bonjour,
J'ai besoin des chiffres qui s'actualise tous les mois et en fait, je vais me servir des données que je veux copié dans les onglets.
On peut pas copier valeur des cellules fusionnées ?
re,
Si vous pouvez copier des cellules fusionnées mais il faut que les cellules de destination soient identiques à celles que vous copier.
Placer votre fichier en ligne sans données confidentielles, je regarderai si vous voulez
Crdlt
Bonjour et b ienvenue sur le forum
Essaie en passant par une variable tableau :
Sub essai2()
Workbooks("wb_perf70.xlsm").Sheets("Récapitulatif").Activate
tablo = ActiveSheet.UsedRange
Workbooks("wb_principal.xlsx").Sheets("Récapitulatif70").Activate
Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
Workbooks("wb_perf70.xlsm").Sheets("Récapitulatif").Cells.Copy
Workbooks("wb_principal.xlsx").Sheets("Récapitulatif70").Range("A1").PasteSpecial xlPasteFormats
End SubSi porbllème, joins tes 2 fichiers.
Bye !
J'ai trouvé voici la ce que j'ai écris :
'Activation de la feuille Récapitulatif
wb_perf70.Sheets("Récapitulatif").Activate
'On copie les données dans Récapitulatif70
With ActiveSheet
.Cells.Copy
End With
'On colle dans Perp
wb_principal.Sheets("Récapitulatif70").Activate
With ActiveSheet
Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Merci pour votre aide
Maintenant, j'ai un autre problème...
Je n'arrive plus à fermer le fichier où j'ai copié les cellules :
Public Sub Closeperf70()
'Procédure de fermeture reporting perf 70
If Not (wb_perf70 Is Nothing) Then
wb_perf70.Close SaveChanges:=False
End If
End Sub
la ligne wb_perf70.close bug, alors que si j'appelle pas la procédure qui copie les cellules ça bug pas
Bonjour
wb_perf70 c'est le nom de votre fichier et est-ce celui là qui contient les macros de copie ?
Crdlt
C'est le fichier où je veux copier
Bonjour
Plutot ceci -->
If Not wb_perf70 Is Nothing ThenJe suppose que vous voulez éviter un erreur si le fichier wb_perf70 n'est pas ouvert ?
Si oui, essayez plutôt comme ceci :
Public Sub Closeperf70()
'Procédure de fermeture reporting perf 70
On Error Resume Next
wb_perf70.Close SaveChanges:=False
End SubOubliez pas de cloturer le fil si ok.
Cordialement