Discussion :

[pythfred]

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

[bifconsult]

Bonjour,

Pour la lisibilité, n'oubliez pas de sélectionner votre code et ensuite de cliquer sur le petit dièse dans le menu de formatage du texte

Effectivement vos lignes de code vont permettre de sélectionner le table jusqu'à la première ligne et la première colonne vides.

Le plus simple est de dimensionner votre tableau puis de copier en fonction.

Ici, vous copier depuis A2, donc la première colonne est 1, la première ligne est 2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
FirstRow=2
FirstCol=1
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
'(1 est la colonne pour laquelle Excel renverra la dernière ligne remplie)
LastCol = ActiveSheet.UsedRange.Columns.Count
 
Range(cells(FirstRow,FirstCol),cells(LastRow,LastCol)).copy

BC

[pythfred]

ca marche Nickel!!!


merci"bifconsult.

[pythfred]

Et quel condition doit on utiliser pour copier seulement les nouvelles données et ne pas écraser a chaque extraction mais seulement rajouter les nouvelles données ?