OVH Cloud OVH Cloud

est il possible ?

3 réponses
Avatar
francois
bonjours et bonne année a tous et toutes,

j'ai un gros problème de capassité si j'ouvre le classeur excel et que j'ai
besoin d'en ouvrir un autre pour y envoyer des données, le 2èm classeur ne
peut souvrir a cause qu'excel utilise trop de mémoire
j'ai fais pas mal de sites traitant le sujet mais pas de réponse concraite a
ce propos
le seul qui se rapprochait de mon problème proposais une manoeuvre
d'ouverture de classeur par Sub Workbook_Open (adresse du classeur, nom du
classeur, nom de la feulle) . range(cellule)
mais la fonction Sub Workbook_Open doit ouvrir le classeur donc je me
retrouve au meme point
voilà donc ma question est il possible de copier des données du classeur X
vers le classeur Y sans ouvrir celui ci ?

peut on modifier la macro si dessous pour qu'elle puisse srvir a renvoyer le
colage spécial vers une autre feuille sans ouvrir le classeur contenant
celle ci ?

Sub ventilation()
'
' ventilation Macro
' Macro enregistrée le 02/12/2003 par rios francois
'
lgn = Sheets("caisse").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "531000" Then
Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("caisse").Range("B"
& lgn)
ElseIf Range("J5") = "531000" Then
Sheets("SAISI").Range("B7:J7").Copy Destination:=Sheets("caisse").Range("B"
& lgn)
Sheets("caisse").Select

End If
End Sub

si je met l'adresse a la place de "caisse" croyez vous que sa marche
exemple
lgn = Sheets("c:, mes document, contact, feuille
x").Range_("B65536").End(xlUp).Row + 1

qu'en pensez vous ?
je ne peut l'éssayer de peur de planter et perdre le travail que j'ai fait
depuis plus d'un mois et grace a vous

merci d'avence
cordialement francois

3 réponses

Avatar
Philippe.R
Bonjour François,
Il y a 23 réponses au mot clé "lire" à cette adresse :

http://www.excelabo.net/moteurs/moteurmultisites.php

dont cette procédure entre autres :

http://www.excelabo.net/xl/fichiers.php#liresansouvrir

Peut être une piste ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"francois" a écrit dans le message de news:bslc6b$9ee$
bonjours et bonne année a tous et toutes,

j'ai un gros problème de capassité si j'ouvre le classeur excel et que j'ai
besoin d'en ouvrir un autre pour y envoyer des données, le 2èm classeur ne
peut souvrir a cause qu'excel utilise trop de mémoire
j'ai fais pas mal de sites traitant le sujet mais pas de réponse concraite a
ce propos
le seul qui se rapprochait de mon problème proposais une manoeuvre
d'ouverture de classeur par Sub Workbook_Open (adresse du classeur, nom du
classeur, nom de la feulle) . range(cellule)
mais la fonction Sub Workbook_Open doit ouvrir le classeur donc je me
retrouve au meme point
voilà donc ma question est il possible de copier des données du classeur X
vers le classeur Y sans ouvrir celui ci ?

peut on modifier la macro si dessous pour qu'elle puisse srvir a renvoyer le
colage spécial vers une autre feuille sans ouvrir le classeur contenant
celle ci ?

Sub ventilation()
'
' ventilation Macro
' Macro enregistrée le 02/12/2003 par rios francois
'
lgn = Sheets("caisse").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "531000" Then
Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("caisse").Range("B"
& lgn)
ElseIf Range("J5") = "531000" Then
Sheets("SAISI").Range("B7:J7").Copy Destination:=Sheets("caisse").Range("B"
& lgn)
Sheets("caisse").Select

End If
End Sub

si je met l'adresse a la place de "caisse" croyez vous que sa marche
exemple
lgn = Sheets("c:, mes document, contact, feuille
x").Range_("B65536").End(xlUp).Row + 1

qu'en pensez vous ?
je ne peut l'éssayer de peur de planter et perdre le travail que j'ai fait
depuis plus d'un mois et grace a vous

merci d'avence
cordialement francois









Avatar
francois
bonjours philippe


j'ai consulté les pages que vous m'avez conseillé, sa devrais me faire
l'affaire mais je ne pense pas que je puisse l'utiliser car a 1ere vue sa a
l'air compliqué. déja que je débute en vba et que s'est assez dur de réussir
au 1er coup, je me vois mal avec mes peu de connaissances m'attaquer a ce
morceau
mais je vous remerci quand meme de votre réponse
et de sa rappidité
par simple curiosité
qu'els sont les fonctions qui rendent un classeur excel volumineux et lourd
a faire travailler
les couleurs ? les macros? mon classeur fait 55 Mo et ce n'est que le
programme de calcul avec tableaux
si je peut l'alléger l'autre classeur pourras peut etre s'ouvrir

merci encore
"Philippe.R" a écrit dans le message de news:
#
Bonjour François,
Il y a 23 réponses au mot clé "lire" à cette adresse :

http://www.excelabo.net/moteurs/moteurmultisites.php

dont cette procédure entre autres :

http://www.excelabo.net/xl/fichiers.php#liresansouvrir

Peut être une piste ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"francois" a écrit dans le message de
news:bslc6b$9ee$

bonjours et bonne année a tous et toutes,

j'ai un gros problème de capassité si j'ouvre le classeur excel et que
j'ai


besoin d'en ouvrir un autre pour y envoyer des données, le 2èm classeur
ne


peut souvrir a cause qu'excel utilise trop de mémoire
j'ai fais pas mal de sites traitant le sujet mais pas de réponse
concraite a


ce propos
le seul qui se rapprochait de mon problème proposais une manoeuvre
d'ouverture de classeur par Sub Workbook_Open (adresse du classeur, nom
du


classeur, nom de la feulle) . range(cellule)
mais la fonction Sub Workbook_Open doit ouvrir le classeur donc je me
retrouve au meme point
voilà donc ma question est il possible de copier des données du classeur
X


vers le classeur Y sans ouvrir celui ci ?

peut on modifier la macro si dessous pour qu'elle puisse srvir a
renvoyer le


colage spécial vers une autre feuille sans ouvrir le classeur contenant
celle ci ?

Sub ventilation()
'
' ventilation Macro
' Macro enregistrée le 02/12/2003 par rios francois
'
lgn = Sheets("caisse").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "531000" Then
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("caisse").Range("B"


& lgn)
ElseIf Range("J5") = "531000" Then
Sheets("SAISI").Range("B7:J7").Copy
Destination:=Sheets("caisse").Range("B"


& lgn)
Sheets("caisse").Select

End If
End Sub

si je met l'adresse a la place de "caisse" croyez vous que sa marche
exemple
lgn = Sheets("c:, mes document, contact, feuille
x").Range_("B65536").End(xlUp).Row + 1

qu'en pensez vous ?
je ne peut l'éssayer de peur de planter et perdre le travail que j'ai
fait


depuis plus d'un mois et grace a vous

merci d'avence
cordialement francois













Avatar
Philippe.R
Bonsoir François,
De manière générale, les causes de surcharge pondérale des fichiers sont souvent à rechercher du côté
des cellules prises en compte alors qu'elles n'ont plus aucun contenu, des mises en forme nombreuses
(couleurs de fond, bordures, polices variées).
Une piste simple peut donc se résumer dans un premier temps à copier la zone strictement utile de chaque
feuille vers une nouvelle feuille en supprimant ensuite l'ancienne.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"francois" a écrit dans le message de news:bsn780$dq7$
bonjours philippe


j'ai consulté les pages que vous m'avez conseillé, sa devrais me faire
l'affaire mais je ne pense pas que je puisse l'utiliser car a 1ere vue sa a
l'air compliqué. déja que je débute en vba et que s'est assez dur de réussir
au 1er coup, je me vois mal avec mes peu de connaissances m'attaquer a ce
morceau
mais je vous remerci quand meme de votre réponse
et de sa rappidité
par simple curiosité
qu'els sont les fonctions qui rendent un classeur excel volumineux et lourd
a faire travailler
les couleurs ? les macros? mon classeur fait 55 Mo et ce n'est que le
programme de calcul avec tableaux
si je peut l'alléger l'autre classeur pourras peut etre s'ouvrir

merci encore
"Philippe.R" a écrit dans le message de news:
#
Bonjour François,
Il y a 23 réponses au mot clé "lire" à cette adresse :

http://www.excelabo.net/moteurs/moteurmultisites.php

dont cette procédure entre autres :

http://www.excelabo.net/xl/fichiers.php#liresansouvrir

Peut être une piste ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"francois" a écrit dans le message de
news:bslc6b$9ee$

bonjours et bonne année a tous et toutes,

j'ai un gros problème de capassité si j'ouvre le classeur excel et que
j'ai


besoin d'en ouvrir un autre pour y envoyer des données, le 2èm classeur
ne


peut souvrir a cause qu'excel utilise trop de mémoire
j'ai fais pas mal de sites traitant le sujet mais pas de réponse
concraite a


ce propos
le seul qui se rapprochait de mon problème proposais une manoeuvre
d'ouverture de classeur par Sub Workbook_Open (adresse du classeur, nom
du


classeur, nom de la feulle) . range(cellule)
mais la fonction Sub Workbook_Open doit ouvrir le classeur donc je me
retrouve au meme point
voilà donc ma question est il possible de copier des données du classeur
X


vers le classeur Y sans ouvrir celui ci ?

peut on modifier la macro si dessous pour qu'elle puisse srvir a
renvoyer le


colage spécial vers une autre feuille sans ouvrir le classeur contenant
celle ci ?

Sub ventilation()
'
' ventilation Macro
' Macro enregistrée le 02/12/2003 par rios francois
'
lgn = Sheets("caisse").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "531000" Then
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("caisse").Range("B"


& lgn)
ElseIf Range("J5") = "531000" Then
Sheets("SAISI").Range("B7:J7").Copy
Destination:=Sheets("caisse").Range("B"


& lgn)
Sheets("caisse").Select

End If
End Sub

si je met l'adresse a la place de "caisse" croyez vous que sa marche
exemple
lgn = Sheets("c:, mes document, contact, feuille
x").Range_("B65536").End(xlUp).Row + 1

qu'en pensez vous ?
je ne peut l'éssayer de peur de planter et perdre le travail que j'ai
fait


depuis plus d'un mois et grace a vous

merci d'avence
cordialement francois