plantage macro

[flo2002]

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
ActiveWorkbook.Close Filename:= _
"ccc.xls"
Windows("aaa.xls").Activate

 

[lapix]

Re : plantage macro

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

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

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

 

[Brigitte]

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

 

[_Thierry]

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>

 </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>

 

[lapix]

Re : plantage macro

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

 

[flo2002]

Re : plantage macro

Merci je teste ca!

 

[flo2002]

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.

 

[lapix]

Re : plantage macro

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

 

[flo2002]

Re : plantage macro

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

 

[Brigitte]

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.

 

[flo2002]

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

 

[flo2002]

Re : plantage macro

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

 

[flo2002]

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!

 

[lapix]

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