bonjour,
j'ai fait ce petit bout de code afin d'importer des données mais le problème c'est qu' a cause de (xlToRight ) des que j'ai une colonne vide il s'arrete et ne prend pas la totalité de mes donnée !
comment contourner ce problème?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
31
Sub ImportationFichiers()
'
' ImportationFichiers Macro
' Macro enregistrée le 12.03.2012 par 
 
    AdresseMain = "L:\_SUIVI_EQUIPEMENTS\fiche de vie équipement montage Extraction.xls"
 
 
 
' Import8400
 
    Adresse8400 = "L:\_SUIVI_EQUIPEMENTS\fiche de vie 8400\fiche de vie machine 8400.xls" 'A adapter selon le besoin
    Workbooks.Open (Adresse8400)
    Sheets("Interface").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Application.DisplayAlerts = False
 
 
    Windows("fiche de vie équipement montage Extraction.xls").Activate
    Sheets("Donnée 8400").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.DisplayAlerts = False
 
 
 
 
End Sub