Création d'une macro pour extraire une colonne d'un fichier
Bonjour Mesdames et Messieurs,
Je suis vraiment novice en macro, et je cherche une solution précise.
Alors je vous explique ce que je reverrai que cette macro puisse faire
J'ai un fichier excel "mère".
Sur ce fichier je voudrais en terme de clic :
- clic sur un bouton --> Apparition d'une fenêtre de sélection du fichier xls "fille"
- clic sur le fichier "fille"
- Importation automatique depuis le fichier "fille" de la colonne (D2:D36000) copier-coller jusque dans mon fichier "mère" colonne (B2:B36000).
En gros ça serait d'importer une colonne fixe (D2:D36000) d'une fichier "fille" que je peux choisir, et de le coller directement dans mon fichier "mère" dans la colonne (B2:B36000).
Je vous demande votre aide ! Un grand merci d'avance
Re bonjour,
Je n'ai toujours pas vraiment trouver le moyen, est-ce qu'il y aurait une âme charitable pour m'aider?
Bon ben Merci quand même,
J'ai fini par trouver exactement ce que je voulais !
Sub Bouton3_Cliquer()
Dim a As Variant, Nom As String
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\Users\hydro-10\ownCloud\HYDRO_BE\DOSSIERS EN COURS CLIENTS\2017" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
Range("D2:D36000").Select
Selection.Copy
Windows(Nom).Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Windows(Nom2).Close
Application.DisplayAlerts = True
End Sub
A + bisoux