Discussion :

[bereta66]

Bonjour,

J'ai écris un programme en VB qui le fait actuellement cellule par cellule.
Afin d'optimiser le temps de travail; je compte le faire par Bloc.
Pour ce travail, j'ai à ma disposition 13 classeurs.
un "vierge" avec 13 feuilles Annuel, et de janvier à décembre.
12 classeurs mensuels.
Le but est de regrouper l'ensemble des classeurs "mensuel" dans l"annuel détaillé.
Je souhaiterai que le travail soit plus rapide en copiant des blocs complet.
Ce que je viens d'écrire ne fonctionne pas, et j'ai besoin de votre aide.

Voici ce que j'ai écrit.

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
sub majTrait1
 
 
''   'Traitement en Totalité à partir de janvier Amaj
'   
    Dim Doc As Object
    Dim Sheet As Object
    Dim sheet1 As Object
    Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
    Dim CellAddress As New com.sun.star.table.CellAddress
 
'    Doc = StarDesktop.CurrentComponent
    Sheet = oGip1.Sheets(0)
    sheet1 = thiscomponent.sheets(0)
 
'    Classeur origine
 
    CellRangeAddress.Sheet = 0
    CellRangeAddress.StartColumn = 0
    CellRangeAddress.StartRow = 1
    CellRangeAddress.EndColumn = 15
    CellRangeAddress.EndRow = maxLig1
 
'    Classeur destination
 
    Sheet = sheet1
 
'    Doc = StarDesktop.CurrentComponent
'    Sheet = Thiscomponent.Sheets(0)
 
    CellAddress.Sheet = 0
    CellAddress.Column = 0
    CellAddress.Row = 1
 
'    Copie de l origine dans l annuel destination
 
    Sheet.copyRange(CellAddress, CellRangeAddress)
 
    CellAddress.Sheet = 1
    CellAddress.Column = 0
    CellAddress.Row = 1
 
'    Copie de l origine dans le mensuel destination
 
    Sheet.copyRange(CellAddress, CellRangeAddress)
 
 
 
end sub

Merci par avance,

[zoom61]

Euh, par rapport à ton code c'est qui ne fonctionne pas :

• Tu as une erreur ? et où ?
• Cela ne donne pas ce que tu veux ?
• etc.

Sinon tu utilises maxLig1, mais tu ne lui donnes aucune valeur ???

[bereta66]

Euh, par rapport à ton code c'est qui ne fonctionne pas :

• Tu as une erreur ? et où ?
• Cela ne donne pas ce que tu veux ?
• etc.

Sinon tu utilises maxLig1, mais tu ne lui donnes aucune valeur ???

Bonjour,

Maxlig1 est renseigné en amont, et correspond à la valeur de la dernière ligne renseigné du classeur mensuel ouvert par le programme (nombre de lignes variable d'un mois sur l'autre) ?
Dans cette partie de programmation, la valeur de sheet est soit oGip1 pour la partie "origine" et "this component" pour la partie destination.
Si je mets en commentaire la ligne "sheet = sheet1" et que je renseigne cellAdress.row par la valeur 10000 , la copie se fait bien à partir de la ligne 10000, mais dans le classeur origine.
Si je supprime la ligne en commentaire, aucune copie ne se fait dans le classeur vierge.
Il me manque quelque chose dans ma procédure, mais où et quoi ?

[bereta66]

Bonjour,

Je joints 2 classeurs pour test.
Le classeur contenant la macro est "Récap absences annuelles vierge par bloc Récap Absences annuelles vierge par bloc.odsAbsences Janvier Amaj.ods.

Mon but est de copier l'ensemble des lignes du classeur absence dans Récap.
Dans ce que je viens d'envoyer, en ligne à ligne, le copie se fait dans le classeur "Absence" feuille A et B.
Je souhaiterai que cela se fasse dans "Récap" en réel, et en ligne à ligne sur l'annuel je suis à plus de 80 000 lignes à traiter.

[jurassic pork]

hello,
je pense que la macro de copier/coller spécial de plage de cellules que j'avais écrit en 2015 pourrait te servir.
Voilà ce que cela pourrait donner pour ce que tu veux faire :

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
Sub majTraitJP
' J.P 
' copier/coller spécial cellules feuille classeur
	'Nom du fichier source :
	sGip1="Absences Janvier Amaj.ods"
 
'	Ouverture d'un workbook
	openWbk(oGip1,sGip1)
	maxLig1=getMaxRow(oGip1)
oDoc1 = oGip1
oDoc2 = thisComponent
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oFrame1 = oDoc1.CurrentController.Frame
' On sélectionne la plage de cellule à copier
oSheet = oDoc1.Sheets(0)
rng = oSheet.getCellRangeByName("A2:Q" + MaxLig1 + 1)
oDoc1.CurrentController.Select(rng)
' On utilise un Dispatch pour copier la plage
oDispatcher.executeDispatch(oFrame1, ".uno:Copy", "", 0, Array())
' On sélectionne la première cellule de l'endroit où copier
rng = oDoc2.Sheets(0).getCellRangeByName("A2")
oDoc2.CurrentController.Select(rng)
' on renseigne les arguments pour le coller spécial
dim args1(5) as new com.sun.star.beans.PropertyValue
' Flags :  A=Tout VSD=Valeurs T=Formats F=Formules VSDT=Valeurs&Formats
args1(0).Name = "Flags"
args1(0).Value = "A"
'FormulaCommand : 0=aucune 1=addition 2=soustraction 3=multiplication 4=Division
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4
oFrame2 = oDoc2.CurrentController.Frame
oDispatcher.executeDispatch(oFrame2, ".uno:InsertContents", "", 0, args1())
end sub

Ami calmant, J.P

[bereta66]

hello,
je pense que la macro de copier/coller spécial de plage de cellules que j'avais écrit en 2015 pourrait te servir.
Voilà ce que cela pourrait donner pour ce que tu veux faire :

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
Sub majTraitJP
' J.P 
' copier/coller spécial cellules feuille classeur
	'Nom du fichier source :
	sGip1="Absences Janvier Amaj.ods"
 
'	Ouverture d'un workbook
	openWbk(oGip1,sGip1)
	maxLig1=getMaxRow(oGip1)
oDoc1 = oGip1
oDoc2 = thisComponent
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oFrame1 = oDoc1.CurrentController.Frame
' On sélectionne la plage de cellule à copier
oSheet = oDoc1.Sheets(0)
rng = oSheet.getCellRangeByName("A2:Q" + MaxLig1 + 1)
oDoc1.CurrentController.Select(rng)
' On utilise un Dispatch pour copier la plage
oDispatcher.executeDispatch(oFrame1, ".uno:Copy", "", 0, Array())
' On sélectionne la première cellule de l'endroit où copier
rng = oDoc2.Sheets(0).getCellRangeByName("A2")
oDoc2.CurrentController.Select(rng)
' on renseigne les arguments pour le coller spécial
dim args1(5) as new com.sun.star.beans.PropertyValue
' Flags :  A=Tout VSD=Valeurs T=Formats F=Formules VSDT=Valeurs&Formats
args1(0).Name = "Flags"
args1(0).Value = "A"
'FormulaCommand : 0=aucune 1=addition 2=soustraction 3=multiplication 4=Division
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4
oFrame2 = oDoc2.CurrentController.Frame
oDispatcher.executeDispatch(oFrame2, ".uno:InsertContents", "", 0, args1())
end sub

Ami calmant, J.P

Merci, je vais essayer sur le champ.
Ca fonctionne SUPER.
Merci à toi

[jurassic pork]

hello,
comme il est dit dans la signature de zoom61 :

N'oubliez pas le Tag Résolu afin de faciliter la recherche, et en votant pouce vers le haut si vous êtes satisfait de la réponse, cela permet de mieux la cibler.

Ami calmant, J.P