1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Sub Importpg()
Application.ScreenUpdating = False
Dim Fichier1 As String, Fichier2 As String
Fichier1 = ActiveWorkbook.Name
'ouvre la fenêtre de sélection du fichier à copier, on peut remplacer c:\ par le chemin approprié
Application.Dialogs(xlDialogOpen).Show ActiveWorkbook.Path
On Error Resume Next
Fichier2 = ActiveWorkbook.Name
'Copier les colonnes A à D de la Feuil1
On Error Resume Next
Sheets("sage").Range("A:D").Select
Selection.Copy
'Coller les données sur le classeur contenant la macro en Feuil1 position A1
Workbooks(Fichier1).Activate
Sheets("plan comptable").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Femeture du fichier copié
Workbooks(Fichier2).Close
Application.ScreenUpdating = True
Sheets("Saisie").Select
Range("A2").Select
End Sub |
