plantage macro

lapix

XLDnaute Occasionnel

• 7 Juillet 2006

• #2

Re : plantage macro

flo2002 à dit:

re bonjour,
je suis depité cette macro à marcher il me semble mais maintenant que j'en ai besoin elle plante.
Une idée?

Windows("aaa.xls").Activate
Windows("bbb.xls").Activate
Sheets("Rolling_Forecast").Select
Cells.Select
Selection.Copy
Windows("aaa.xls").Activate
Sheets("ccc").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Sheets("Garde").Select
Windows("ccc.xls").Activate <-------------------- le classeur n'est pas ouvert
ActiveWorkbook.Close Filename:= _
"ccc.xls" <-------------là tu ferme le aaa en l'enregistrant sous ccc
Windows("aaa.xls").Activate

Cliquez pour agrandir...

<-------- tu actives le aaa que tu viens de fermer

tu essaies d'activer un classeur qui n'est pas ouvert

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 7 Juillet 2006

• #3

Re : plantage macro

Bonsoir,

Juste pour faire un clin d'oeil à Lapix... Ca me fiche un coup chaque fois que je vois un de tes posts, car notre ami Gérard Dézamis qui n'est pas encore revenu depuis la nouvelle mouture du forum, avait, avant toi, le même avatar ou signature, je sais plus ou c'était... Alors chaque fois je crois que c lui... Je pensais que c'était un truc perso à lui, c rigolo.

Tu t'appelles pas Gérard, au moins ?

Notre Gégé quand il va revenir, ca va lui faire bizarre...

Bonne soirée

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Juillet 2006

• #4

Re : plantage macro

<P>Bonsoir Brigitte, Lapix, Flo2002</P>
<P>&nbsp;</P>
<P>Juste pour un exemple de syntax... Si celà peut t'aider....</P>
<P>&nbsp;</P>
<P>

Code:

 </P>
<P>Option Explicit</P>
<P>Sub Flo()</P>
<P>Dim WBsource As Workbook, WBCible As Workbook</P>
<P>Dim WSsource As Worksheet, WSCible As Worksheet</P>
<P>Dim Rsource As Range, RCible As Range</P>
<P>&nbsp;</P>
<P>Set WBsource = Workbooks("bbb.xls")</P>
<P>Set WSsource = WBsource.Worksheets("Rolling_Stones") 'lol</P>
<P>Set Rsource = WSsource.Cells</P>
<P>&nbsp;</P>
<P>Set WBCible = Workbooks("aaa.xls")</P>
<P>Set WSCible = WBCible.Worksheets("ccc") 'lol</P>
<P>Set RCible = WSCible.Range("A1")</P>
<P>Rsource.Copy RCible</P>
<P>End Sub</P>
<P>

</P>
<P>&nbsp;</P>
<P>Bonne Soirée et Week End</P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P><STRONG><EM><FONT color=purple>@+Thierry</FONT></EM></STRONG></P></BLOCKQUOTE>

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 7 Juillet 2006

• #5

Re : plantage macro

Alors je vais changer d'avatar, je ne veux pas faire de malheureux. Ce sera fait dans 5 mn. Désolé

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #6

Re : plantage macro

Merci je teste ca!

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #7

Re : plantage macro

Re en faite j'ai du me tromper en cachant le nom des feuilles.

que veut dire activate, c'est bien pour selectionner le fichier?
apres en faite je crois qu'il me trouve pas la feuille.

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 7 Juillet 2006

• #8

Re : plantage macro

C'est pour afficher un classeur deja ouvert, le rendre actif si tu as une mosaique de classeur par exemple

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #9

Re : plantage macro

Donc je ne vois le probleme.
Il m'ennui surtout que je pense l'avoir deja fait marcher cette macro

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 7 Juillet 2006

• #10

Re : plantage macro

Bonsoir,

C'est vraiment gentil à toi Lapix, mais je voulais pas tout de même te faire faire ca... Je le dirais à Gégé quand il reviendra nous voir... c'est un assidû du forum depuis des années.

Merci et bonne soirée à toi.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #11

Re : plantage macro

Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"AAAAAAAAAAAAAAAAAAAA.xls"
Windows("BBBBBBBBBBBBB.xls").Activate
Windows("AAAAAAAAAAAAAAAAAAAA.xls").Activate
Sheets("Rolling_Forecast").Select
Cells.Select
Selection.Copy
Windows("BBBBBBBBBBBBB.xls").Activate

Sheets("AAAAAAAAAAAAAAAAAAAA").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Sheets("Garde").Select
Windows("AAAAAAAAAAAAAAAAAAAA.xls").Activate
ActiveWorkbook.Close Filename:= _
"AAAAAAAAAAAAAAAAAAAA.xls"
Windows("BBBBBBBBBBBBB.xls").Activate


c'est mieux je crois en terme de présentation.

Il faut faire attention entre les sheets et les .xls

merci d'avance

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #12

Re : plantage macro

je crois avoir trouver le probleme mais pas la solution.
Le sheets().select n'est pas appliquer.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 7 Juillet 2006

• #13

Re : plantage macro

Et j'ai trouver la solution:

j'avais une private sub en wirksheet change sur mes feuilles...
merci à tous! et bon week end!

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 7 Juillet 2006

• #14

Re : plantage macro

Là tu as 2 fois le paste

Avec cette syntaxe, le sheet select ne marchera que si la feuille se trouve dans le classeur actif sinon il faut faire reference au classeur en premier

Sinon tu peux aussi executer ta macro pas a pas pour voir

 

Vote positif 0 Vote négatif