Importer des données d'un fichier Excel

Bonjour à Tous !

J'ai un problème avec un code sur VBA que j'ai réalisé.J'essaie de sélectionner certaines colonnes du fichier de mon choix pour les coller dans un autre fichier excel. Au lieu de sélectionner les colonnes A, C et G, les colonnes de A à G sont sélectionnés !

J'ai vraiment besoin d'aide, j'y suis depuis la semaine dernière.

Merci d'avance pour votre aide,

Ci-dessous le code:

Private Sub CommandButton1_Click() ' RECHERCHE DU CLASSEUR SOURCE

Dim Classeur_choisi As Long

Static Classeur_choisi_bis As String

Select Case UserForm1.CommandButton1.Caption

Case "Feuille à Copier"

With Application.FileDialog(msoFileDialogOpen)

.AllowMultiSelect = False

.Show

For Classeur_choisi = 1 To .SelectedItems.Count

Workbooks.Open (.SelectedItems(Classeur_choisi))

Next Classeur_choisi

End With

Classeur_choisi_bis = ActiveWorkbook.Name

ActiveWorkbook.Saved = True ' Pour éviter le message de re-calcul des formules d'une version antérieure.

UserForm1.CommandButton1.Caption = "Copier cette Feuille"

'Choix de la feuille à copier

Case "Copier cette Feuille"

ActiveWorkbook.ActiveSheet.Select

Range("A:A, C:C, G:G").Select

Selection.Copy

Windows(Classeur_choisi_bis).Activate

ActiveWorkbook.Close

Unload UserForm1

Sheets("DataBase").Select

Range("A1").Select

ActiveSheet.Paste

ThisWorkbook.Saved = True

End Select

End Sub

Bonjour,

Je suis novice et auto didacte sur excel... je vais peux etre dire une betise...

Mais si tu utilise un code comme celui la ??

Sub copiercolonne()

Application.ScreenUpdating = False

Dim selection1 As Range, selection2 As Range

Set selection1 = Columns(1)
Set selection2 = Columns(3)

selection1.Copy
Range("E1").Select
ActiveSheet.Paste

selection2.Copy
Range("F1").Select
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

mais essayer avec la fonction array pour copier toutes les selections en même temps !!

je n'arrive pas a l'utiliser, peux etre qq'un d'autre ??

par exemple

Dim selectionall As Range
Set selectionall = array (Columns(1), Columns(3))

selectionall.Copy
Range("E1").Select
ActiveSheet.Paste

bonne journée

merci encore pour vore réponse, mais cela ne fonctionne pas.... Peut etre parce que j'ai utilisé un formulaire ..... .Ci joint le fichier Excel,

Bonne journée et merci encore pour votre aide,

J'ai essayer de modifier ton code et chez moi cela fonctionne,

Je copie les 3 colonne A, C et G d'une feuille d'un classeur choisi dans la feuille DataBase de ton classeur MAJ(modifié) dans les colonne A, B et C...

Bonne soirée

Merci beaucoup encore une fois ! Cela fonctionne !!!

Avec plaisir... bonne journée