Bonjour à tous,
Ca fait une aprés midi que je me prend la tête sur ces quelque ligne de code...
Le but de l'opération est d'ouvrir un document Excel via une boite de dialogue "parcourir", de copier les 4 premières colonne de ce document et de les coller dans le fichier qui contient la Macro...
Je commence vraiment à manquer d'idée!
Je compte sur vous!
La sub arrive à ouvrir le document, sélectionner les colonnes, les copier..
Mais impossible de fermer le document ni de coller les colonnes.
Merci d'avance!
Ca fait une aprés midi que je me prend la tête sur ces quelque ligne de code...
Le but de l'opération est d'ouvrir un document Excel via une boite de dialogue "parcourir", de copier les 4 premières colonne de ce document et de les coller dans le fichier qui contient la Macro...
Je commence vraiment à manquer d'idée!
Je compte sur vous!
La sub arrive à ouvrir le document, sélectionner les colonnes, les copier..
Mais impossible de fermer le document ni de coller les colonnes.
Merci d'avance!
Code:
Sub Importer()
Dim Nom1 As Variant
Dim Wb As Workbooks
Nom1 = Application.GetOpenFilename()
If Nom1 = False Then Exit Sub
Workbooks.Open Filename:=Nom1
Worksheets("Client").Columns("A:D").Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close
ThisWorkbook.Worksheets("Client").Activate
ThisWorkbook.Worksheets("Client").Range("A1").Select
Selection.Paste
End Sub