Discussion :

[fabien32200]

merci Eric j’ai pu aujourd'hui résoudre une partie de mon souci automatisation de données grâce à une partie de ton code.

Maintenant je souhaite juste importer de R:\Fabien\FichierDonnées.xlsm feuille "données" les données présentes en A3117 vers R:\Fabien\FichierFinal.xlsm feuille "final"

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
32
33
34
35
36
37
38
39
40
41
42
Sub Importer()
 
    Dim Chemin As String, Fichier As String, Fichier2 As String
 
    '
    Dim wkb As Workbook
    Dim shFrom As Worksheet
    Dim shTo As Worksheet
    Dim varTab As Variant
    '
    ' je peux mettre le nom du disk que je veux, c: ou r:
    Chemin = "R:\Fabien\FichierDonnées.xlsm"
    Fichier = "données"
 
    ' si le fichier existe bien...
    If Dir(Chemin & Fichier) <> "" Then
    ' alors on ouvre le classeur
      Set wkb = Workbooks.Open(Chemin & Fichier)
    End If
 
    ' pointeurs
    Set shFrom = wkb.Worksheets("final")
    Set shTo = ThisWorkbook.Worksheets("FichierFinal")
 
    Application.ScreenUpdating = False
 
 
    varTab = shFrom.Range(shFrom.Range("A3"), shFrom.Range("A117").End(xlDown))
    shTo.Range("M1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
    varTab = shFrom.Range(shFrom.Range("B3"), shFrom.Range("B117").End(xlDown))
    shTo.Range("N1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
    varTab = shFrom.Range(shFrom.Range("C3"), shFrom.Range("C117").End(xlDown))
    shTo.Range("O1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
varTab = shFrom.Range(shFrom.Range("D3"), shFrom.Range("D117").End(xlDown))
    shTo.Range("O1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
 
 
End Sub

Mais Evidemment ça beug ...

[eric4459]

Salut Fabien,

Tu ne serai pas un peu tête de mule toi?

Tu écris

Code :

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

Chemin = "R:\Fabien\FichierDonnées.xlsm"

or

Code :

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

blabla.xlsm

c'est le nom du fichier avec son extension .xlsm (Fichier Excel acceptant les macros) ou .xls ou xlsx(sans macro)


Tu peux évidement choisir un autre disque mais il faut écrire

Code :

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

Chemin = "R:\Fabien\FichierDonnées\"

ensuite tu peux écrire

Code :

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

1
2
3
4
Fichier = "données"
 
    ' si le fichier existe bien...
    If Dir(Chemin & Fichier) <> "" Then

Chemin & Fichier sera égal à R:\Fabien\FichierDonnées\ données.xlsm

Ensuite je ne suis pas allé plus loin dans ton code mais corriges déjà cela et ça devrait être mieux.

Eric