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