Macro qui bloque

[Phil]

Salut les forumistes,

J'ai un petit soucis avec une macro que j'ai enregistré.

Je vous décrit ce que je demande à ma macro. Je copie des résultats de la feuille (saisie) sur une autre feuille du même classeur. J'ouvre un autre classeur et je copie également des résultats de la feuille (Saisie).

Et lorsque je veux exécuter ma macro, il bloque au niveau de l'ouverture du 2ème classeur.

Est -il possible qu'une macro ouvre un classeur est lui copie des données?

Merci à l'avance!

@+

Phil

 

[Valérie]

Salut le forum,

Il n'y a à priori aucun problème pour ce genre de manip la syntaxe est la suivante :

Workbooks.Open "c:\monrep\monfichier.xls"

Les arguments suivants sont facultatifs, @ bientôt

Valérie

 

[Phil]

Salut valérie, et resalut le forum;

j'ai rajouté le chemin que tu m'as indiqué, donc cela fonctionne.

Mais un autre problème est survenu, lorsque je veux copier sur le 2ème classeur, je fais un copier clolage spéciale et je lui demande Tout, hellas, il me copie que le format.


Comme je suis nul en vba, j'ai du mal à comprendre ma macro.

merci pour ceux qui pourrons me dépanner.

@+

Phil

 

[Valérie]

Re Phil,

Volà à qunque chose prêt ce que tu peux écrire

Selection.Copy
Workbooks.Open "c:\monrep\monfichier.xls"
Range("A1").Selection.PasteSpecial Paste:=[g]xlPasteAll[/g]

Le xlPasteAll colle TOUT

Bon app'

Valérie

 

[Phil]

Merci valérie,

j'ai essayé ce que tu m'avais marqué. Hélas encore un soucis de copier coller sur le 2ème classeur.

Je te communique ma macro, et dis moi ce qu'il n'est pas bon, et pourquoi.
Je veux comprendre et apprendre.


Range("B6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("B6:CK6").Select
Selection.Copy
Sheets("Feuil3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B7").Select
Sheets("Feuil1").Select
Range("B6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("B6:CK7").Select
Selection.Copy
Workbooks.Open "C:\Laboratoire\Archives.xls"
Range("B7").Select
Selection.PasteSpecial Paste:=[g]xlPasteAll[/g],Operation:=xlNone, SkipBlanks:=False _
Rows("7:8").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B7").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("D5").Select
Selection.ClearContents
Range("F6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("F6:CK6").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-1
Range("B9").Select
ActiveWorkbook.Save
End Sub



Je te remercie à l'avance.

Bon app

@+

phil

 

[Valérie]

Salut Phil, qui n'en fini plus le fil bien sur hihihih

Bon d'accord c pas drole mais je suis fatiguée alors à nous deux petit VBA...

Range("B6:CK6").Select
Selection.Copy
Sheets("Feuil3").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Rows("7:7").Insert Shift:=xlDown
Sheets("Feuil1").Select
Range("B6:CK7").Select
Selection.Copy
Workbooks.Open "C:\Laboratoire\Archives.xls"
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Rows("7:8").Insert Shift:=xlDown
Range("B7").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("D5").ClearContents
Range("F6:CK6").ClearContents
Range("B9").Select
ActiveWorkbook.Save

Cela devrait fonctionner mieux comme ça

@+
Valérie

 

[Phil]

Salut valérie,

je te remercie beaucoup, tu es une pro du vba.

Je commence à comprendre certaines choses. ouf!

Bonne journée!

Ps: j'ai un petit soucis, mais je vais la poser à l'ensemble du forum. Je te laisse te reposer, et encore un grand merci.

@+

Phil