Bonjour,
Je bloque sur une partie de mon code.
J'ai réussi à faire un code pour récupérer un fichier Excel et sélectionner mes colonnes (ici C, D et M) à partir de la ligne 15.
Mais je voudrais maintenant que ma sélection de ligne commence lorsque la colonne C contient soit la lettre "A" soit "K". Et copier donc cette ligne avec les colonnes C, D et M qui correspondent.
Je ne sais pas si c'est très clair.
Je vous met mon code ci-dessous.
Si quelqu'un à une idée ça fait un petit moment que je cherche. Merci à vous.
Je bloque sur une partie de mon code.
J'ai réussi à faire un code pour récupérer un fichier Excel et sélectionner mes colonnes (ici C, D et M) à partir de la ligne 15.
Mais je voudrais maintenant que ma sélection de ligne commence lorsque la colonne C contient soit la lettre "A" soit "K". Et copier donc cette ligne avec les colonnes C, D et M qui correspondent.
Je ne sais pas si c'est très clair.
Je vous met mon code ci-dessous.
VB:
Sub Choix_du_Fichier()
Dim FichierSource As Variant
Dim Source As Workbook
Dim Cible As Worksheet
On Error GoTo Fin
Set Cible = Sheets("Feuille1")
FichierSource = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")
If FichierSource = False Then GoTo Fin
Application.ScreenUpdating = False
Set Source = Workbooks.Open(FichierSource)
With Source
.Sheets("Feuille1").Range("C15:D800,M15:M800").Copy Destination:=Cible.Range("A1")
.Close False
End With
Application.ScreenUpdating = True
MsgBox "Fin de l'import !"
GoTo Fin
Fin:
Application.ScreenUpdating = True
Set Cible = Nothing
Set Source = Nothing
End SubSi quelqu'un à une idée ça fait un petit moment que je cherche. Merci à vous.
