1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub test()
nom = Range("a2").Value
adresse = Range("b2").Value
Nom_Fichier = adresse & nom 'emplacemeent ou se trouve le fichier
If Nom_Fichier <> False Then ' vérification de la présence ou non d'une référence de fichier
Workbooks.OpenText Filename:=Nom_Fichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
End If
Windows(nom).Activate
Range("A1:O1").Select
Application.CutCopyMode = False
Selection.CopyThisWorkbook.Activate
Range("d12").Paste
Windows(nom).Close
End Sub
[ATTACH]213847[/ATTACH] |
Partager