Discussion :

[canary]

Bonjour,

Je souhaite faire quelque chose de très simple :
-Je veux copier les colonnes A et C (la B ne m'intéresse pas),
-Ensuite coller les deux colonnes dans un nouveau classeur.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CopieEtSauvegardePlageCellules()
Dim Wb As Workbook
Columns("A:C").Copy
Set Wb = Workbooks.Add(1)
Wb.ActiveSheet.Paste
End Sub

Pourriez-vous svp me dire ce qu'il me manque ?
Merci beaucoup !

[Jean-Philippe André]

Salut,

posons la question autrement :
le code que tu nous montres réalises certaines étapes.
A quel niveau constates-tu une erreur par rapport à ton objectif ?

[mercatog]

1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopieEtSauvegardePlageCellules()
Dim Wb As Workbook
 
With ThisWorkbook.Worksheets("Feuil2")
    Union(.Range("A:A"), .Range("C:C")).Copy
End With
 
Set Wb = Workbooks.Add(1)
Wb.Worksheets(1).Paste
Application.CutCopyMode = False
End Sub

2. Mais je ferai comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CopieEtSauvegardePlageCellules2()
Dim Wb As Workbook
 
Set Wb = Workbooks.Add(1)
With ThisWorkbook.Worksheets("Feuil2")
    Union(.Range("A:A"), .Range("C:C")).Copy Wb.Worksheets(1).Range("A1")
End With
End Sub

[canary]

Merci pour la réponse.
Le problème venait bien du fait que je liais les colonnes de A à C.
Je me doutais bien qu'il fallait faire une sorte de concaténation mais je n'avais pas la syntaxe.

A ce propos, existe-il une sorte de bible qui recense toutes les variables et fonctions de VBA ?

Bonne soirée,