si un dieu de la macro pouvait passer par ici

Bonjour,

Hurricane, je sais qu'ici on est sur un vrai petit paradis , petit coin priviligié de la Toile, mais là je pense que tu leur as fait peur aux Dieux ou Deesses de XLD, avec ton titre.

T'imagines si elles ou ils se plantent. Voyons voyons revenons à la réalité nous ne sommes que de pauvres humaines et humains. Tout simplement.
On essaye de répondre du mieux que l'on peut, mais on peut aussi ne pas tout savoir et en plus il y a des gens timides aussi, il faut penser à eux.

Bon week-end


Celeda

Bonjour hurricane , bonjour Celeda


Je n'ai rencontré aucun problème en créant des macros sur le même principe que les tiennes (excel97 & win98)
Après plusieurs tests je n'ai eu des messages d'erreur qu'en faisant des fautes de saisie

Par exemple :
Erreur 76 si le chemin d'accès indiqué n'est pas le bon
ChDir "P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\"
( Sur mon poste la procédure fonctionne même si je supprime totalement cette ligne )

Erreur 9 si le nom du classeur ou de la feuille est erroné
Workbooks("Conso mensuelle.xls").Sheets("Days supply of BOP").Activate
ou Sheets("copy").Range("Q12:AB103")

Erreur 1004 , si je fais une erreur de saisie dans cette ligne
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\BOP in number of days.xls"



Indépendamment de ton soucis :
Comme tu as inséré Application.DisplayAlerts = False dans ta procédure , il est souhaitable que tu saisisses aussi Application.DisplayAlerts = True en fin de code


Je suis désolé de ne pas pouvoir mieux t'aider
Sinon , peux tu revenir et indiquer précisément quelle ligne de code fait apparaître quel message d'erreur

Bon week end
Michel




ps
Poeme à Celeda , déesse d'XLD

…Delicieux fragment de nuages d'une gloire antique,
Passante enjouée d'une divine compagnie,
elle exhale le souffle de ce monde lointain dont elle vient,
Des voûtes célestes maintenant perdues, et de l'air olympien….

Bonjour,

Michel : je suis toute

Sub Red
Interior.ColorIndex = 3
End Sub

Merci

Celeda

Bonjour celeda michel et le forum

apres avoir bossé une bonne parti de la soirée d'hier la solution est apparue

est la voici


ChDir "P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\"
Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\BOP in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of BOP").Activate
Worksheets("Days supply of BOP").Range("Q12").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("BOP in number of days.xls").Close SaveChanges:=False


Workbooks.Open Filename:="P:\Supply Chain\Service\Supply Chain BG Restricted\Indicators\Reporting\Finished Products in number of days.xls"
Sheets("copy").Range("Q12:AB103").Copy
Workbooks("Conso mensuelle.xls").Sheets("Days supply of finished product").Activate
Worksheets("Days supply of finished product").Range("Q12").Select
ActiveSheet.Paste
Workbooks("Finished Products in number of days.xls").Close SaveChanges:=False

activation +selection de la feuille avant la copie s'est la premiere fois que je suis obligé de faire cela (" c'est excel ")

merci a vous deux

@+ hurricane

en plus simple

Set objWBK = ActiveWorkbook
ChDir "f:\Mes documents"
Workbooks.Open Filename:="listechoix.xls"
ActiveWorkbook.ActiveSheet.Range("a1:f20").Copy objWBK.Worksheets("feuil1").Range("Q12")

salut stephane

je vais un essai demain de ton set objwbk=activeworkbook


@+