Discussion :

[Z_662]

Bonjour,

A tester :

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
Option Explicit
 
Sub ImportFeuilles()
Dim oDoc As Object, fenetre As Object, feuille_destination As Object 
Dim chemin As String, suffixe As String, nomsFichiers As String, fichierSource As String
Dim nom_fich() As Variant, x As Double, y As Double 
oDoc = Thiscomponent
chemin = "C:\fas\"
suffixe = ".ods"
 
nomsFichiers = "131 Local;212 Local;312 Local;4001 Local;PTS Local;Séc routière local;" & _
			   "131 National;212 National;312 National;4001 National;PTS National;" & _
			   "Séc routière National;131 PANEL;212 PANEL;312 PANEL;4001 PANEL;SR PANEL"
nom_fich() = split(nomsFichiers, ";")
y = 5
fenetre = oDoc.CurrentController.Frame.ContainerWindow
fenetre.Enable = False
for x = Lbound(nom_fich()) to Ubound(nom_fich())
	fichierSource = ConvertToURL(chemin & nom_fich(x) & suffixe)
	feuille_destination = oDoc.Sheets(y)
	feuille_destination.link(fichierSource, "", "", "", com.sun.star.sheet.SheetLinkMode.VALUE )
	feuille_destination.LinkMode = com.sun.star.sheet.SheetLinkMode.NONE
y = y + 1
next x
fenetre.Enable = True
Print "Terminé"
End Sub

Attention, cette méthode ne retourne pas d'erreur si un fichier n'existe pas, ou s'il est mal orthographié. Là j'ai copié/collé les noms de fichiers que tu as posté plus haut. A vérifier donc.
Il faudra que tu me dises sous quel nom tu souhaites enregistrer le fichier après l'importation des feuilles.

J'oubliais... la macro n'insère que les données contenues dans les différents fichiers. S'il fallait aussi importer les formules, il faudrait utiliser :

Code :

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

com.sun.star.sheet.SheetLinkMode.NORMAL

au lieu de

Code :

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

com.sun.star.sheet.SheetLinkMode.VALUE

dans la méthode link de l'objet feuille_destination (ligne 21)

A+

[fransix]

Slt merci bcp .
Je teste ta macro et j'essaie de la décrypter
Je reviens rapidement vers toi pour te tenir au courant et clore cette discussion sur le forum
Ciao

[fransix]

Bjr Z_662, BINGO !!!
je ne sais comment te remercier pour cette macro qui vas me faire gagner un temps inimaginable et vas réduire considérablement les risques d'erreurs
Merci également à ce forum et à tous ceux qui y contribuent avec beaucoup d'humilité, l'esprit rassurant du forum est un encouragement à aller au dela de ses capacités.
Pour ce qui est du libellé d'enregistrement, je pensais comme le nom sera propre à chaque fichier, laisser la possibilité de choix via la fenêtre "enregistrer sous".
Qu'en penses tu
Fransix

[Z_662]

comme le nom sera propre à chaque fichier, laisser la possibilité de choix via la fenêtre "enregistrer sous".
Qu'en penses tu

Rien de particulier, cela n'affectera en rien le bon fonctionnement de la macro. Par contre il sera préférable d'enregistrer sous, de suite à la fin de l'exécution de la macro avant de commencer à travailler sur le fichier.

A+

Si je trouve le temps d'ici la fin du week-end à venir, je peaufinerai un peu de sorte qu'il ne soit pas nécessaire d'entrer les noms de fichier en dur dans le code. Le classeur possédant déjà des feuilles du même nom que les fichiers, il est aisé de boucler sur le contenu du répertoire puis d’appeler la feuille correspondante pour procéder à l'insertion.

[fransix]

Ok ! je vais suivre ta recommandation
Je clôturerai ce post un peu plus tard
Ciao

[fransix]

Dans le prolongement de mon post sur les difficultés liées à l'enregistreur de macro, je souhaite faire un copier coller de deux lignes contenues dans une feuille de mon fichier et les coller dans une autre feuille du même fichier en gardant uniquement les valeurs et mise en forme.

Je souhaitais compléter la macro proposer dans ce post par Z_662
Avec l'enregistreur de macro (sélectionner, copier, collage spécial) ça donne ça, sauf que si entre temps je fais un autre copier/coller c'est ces dernières informations qu'il colle ou est l'erreur ?

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 1
 
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$290:$J$291"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
 
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
 
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 4
 
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
 
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$2"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
 
rem ----------------------------------------------------------------------
dim args6(5) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Flags"
args6(0).Value = "SVT"
args6(1).Name = "FormulaCommand"
args6(1).Value = 0
args6(2).Name = "SkipEmptyCells"
args6(2).Value = false
args6(3).Name = "Transpose"
args6(3).Value = false
args6(4).Name = "AsLink"
args6(4).Value = false
args6(5).Name = "MoveMode"
args6(5).Value = 4
 
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args6())
 
 
end sub

[fransix]

Slt bon ben ça marche a priori y pas d'erreur