Discussion :

[BertrandED]

Bonjour,

je souhaite incrémenter rapidement une base de donnée avec des informations contenues dans des fichiers excel.

Concrètement, j'ai ce type de fichier (tous la meme forme):



(Attention, ce ne sont pas des tableau, simplement une mise en forme)



je souhaite charger le contenu de cet onglet dans différent tableau dans le fichier excel suivant:


quelqu'un aurait il une piste? j'ai quelques notions en VBA, mais pas suffisement pour établir ce programme sans aide.


Bien cordialement.

[BertrandED]

Bonjour,

j'ai un peu avancé dans ma recherche.

Tout d'abord, j'ai créé un code pour créer 4 tableaux sur le fichier source à charger.

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
43
44
sub()
 
Dim PM As Range
Dim tableAtténuation As ListObject
Dim TablePente As ListObject
Dim TableReflectance As ListObject
Dim TableContrainte As ListObject
Dim rg As Range
Dim rg1 As Range
Dim rg2 As Range
Dim rg3 As Range
 
 
'Cree le tableauAtténuation en C12
Worksheets("Hors Normes").Activate
Set rg = Cells(12, 3).CurrentRegion
 
'Boucle pour définir le début des tableaux Pente, reflectance et Contrainte
For i = 13 To 1000
    If Cells(i, 3) = "N° Pente" Then
    Rows(i + 1).Delete
    Set rg1 = Cells(i + 1, 3).CurrentRegion
    End If
    If Cells(i, 3) = "Réflectance" Then
    Rows(i + 1).Delete
    Set rg2 = Cells(i, 3).CurrentRegion
    End If
    If Cells(i, 3) = "N° Epissure" Then
    Rows(i + 1).Delete
    Set rg3 = Cells(i, 3).CurrentRegion
    End If
    If Cells(i, 3) = "N° Fibre" Then
    Rows(i + 1).Delete
    Set rg4 = Cells(i, 3).CurrentRegion
    End If
Next
 
'Création des Tableaux
Set TableContrainte = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, Source:=rg3, XlListObjectHasHeaders:=xlYes)
Set TableReflectance = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, Source:=rg2, XlListObjectHasHeaders:=xlYes)
Set TablePente = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, Source:=rg1, XlListObjectHasHeaders:=xlYes)
Set tableAtténuation = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, Source:=rg, XlListObjectHasHeaders:=xlYes)
 
end sub

J'ai également créé une fenêtre activeX dans le fichier Excel de destination



L'idée serait de glisser le fichier Excel source dans l'ActiveX pour lancer l'ouverture du même fichier et lancer le code précédent.
Il ne resterai plus qu'a coller chaque tableau (je pense avoir trouver comment)

Donc, sauriez-vous me dire comment manier cette fenêtre ActiveX pour ouvrir le fichier Excel source et lancer mon code ?

Merci à vous.