Workbook_Open et copy paste

Version imprimable

Bonjour,
J'ai un problème avec la procédure "Workbook_Open" et l'instruction Copy/paste.
En effet, je voudrais selectionner une plage sur la feuille active, puis créer un nouveau document, et coller cette plage sur le nouveau document crée.
Le code ci-dessous fonctionne quand j'utilise un simple module, mais ne fonctionne plus quand je le met dans la procédure "Workbook_open"afin qu'il s'execute à l ouverture du document ==> parce le programme s execute bien à l ouverture, mais il ne me copie que des cellules vides sur le nouveau document.
Pourriez vous y jeter un coup d'oeil SVP?

D'avance merci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Private Sub Workbook_Open() Dim Fiche As Excel.Workbook Dim JP As Integer Dim Chemin As String Dim I As Integer Dim R As Integer Dim DD As Date ' Chemin Chemin = ThisWorkbook.Path ' JR et JP Windows("Pronostics.xls").Activate Sheets("Feuil3").Select Feuil3.Cells(3, 5).Value = "=today()" For I = 4 To 200 If Cells(I, 5).Value = Cells(3, 5).Value Then JP = Cells(I, 7).Value DD = Cells(I, 8).Value End If Next I Windows("Pronostics.xls").Activate Sheets("Feuil4").Select ' copier le resultat vers un autre fichier excel Range("A1:M20").Select Selection.Copy Workbooks.Add ActiveSheet.Paste 'Enregistrement sous Resultat J-.. ActiveWorkbook.SaveAs Filename:= _ Chemin & "\Pronos\Pronos-J" & JP & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWorkbook.Close End Sub

Seulement pour la copie (je n'ai plus le tps de regarder le reste

Code:

1
2
3
    Workbooks.Add
    ' copier le resultat vers un autre fichier excel
    Windows("Pronostics.xls").Sheets("Feuil4").Range("A1:M20").Copy Activesheet.Range("A1")

Remplace avantageusement les lignes suivantes

Citation:

Code:

1
2
3
4
5
6
7
8
    Windows("Pronostics.xls").Activate
        Sheets("Feuil4").Select
 
' copier le resultat vers un autre fichier excel
    Range("A1:M20").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste

Bon après-midi

23/02/2009, 17h33
Gorfael

Salut pontoise et le forum
Tu veux faire quoi avec ta macro ?
On n'est ni dans ta tête, ni devant ton écran!
Ta macro ne génère pas d'erreur.
Si elle ne copie rien c'est... qu'elle n'a rien à copier.
Mais je soupçonne une erreur de raisonnement, et comment faire si on a pas le raisonnement prévu ?
euh...
Feuil3.Cells(3, 5).Value = "=today()"
serait avantageusement remplacé par
Feuil3.Cells(3, 5).formula = "=today()"
T'es en anglais ?
A+
23/02/2009, 21h36
pontoise

Salut Gorfael,
Ce n est pas la peine d etre desagreable ....ce nest pas constructif...
Je me croyais pourtant clair dans mon message.
En effet, je voudrais faire ceci à l'ouverture du fichier Excel:
1) Copier une plage (A1:M20) avec des valeurs dedans.
2) Créer un nouveau document Excel.
3) Coller ma plage (A1:M20) sur le nouveau document crée.
Mon problème est que quand j ouvre mon fichier avec le worbook_open:
1) La plage (A1:M20) est copiée.
2) Le nouveau document Excel est crée.
3) Mais je n'ai aucune valeur dans ce nouveau fichier, alors qu'il y a bien des valeurs dans la plage du fichier source (ptonostics).

Pour information, quand je place mon code dans un simple module (hors la procédure workbook_open), cela fonctionne bien et j'ai bien un nouveau document avec les valeurs de ma plage du fichier source.

Est-ce plus clair maintenant?
23/02/2009, 23h58
Gorfael
Salut pontoise et le forum

Citation:

Ce n est pas la peine d etre desagreable ....ce nest pas constructif...

8O je ne pensais pas être désagréable. Au lieu de penser qu'on t'en veut, réflèchit sur ce qu'on demande.
Pas la peine de remettre la même chose en changeant les mots, ça ce n'est pas productif.
quelle feuille ?
Chez moi,
Code:

1 2 3 Range("A1:M20").Copy Workbooks.Add ActiveSheet.Paste
Fonctionne sans aucun problème => ça ne vient pas du code mais des cellules copiées.
A+
24/02/2009, 09h46
ouskel'n'or
Citation:

Envoyé par pontoise

Pour information, quand je place mon code dans un simple module (hors la procédure workbook_open), cela fonctionne bien et j'ai bien un nouveau document avec les valeurs de ma plage du fichier source.
Est-ce plus clair maintenant?

Très clair... parce que normal. Place ta macro dans un module standard et un appel à cette macro dans l'événement Open du classeur dans Thisworkbook
Code:

1 2 3 Sub Workbook_Open() LaMacro End sub
J'ai déjà donné l'explication plusieurs fois alors je me répète :
A l'ouverture du classeur, selon la charge du µp les feuilles de calculs ne sont pas reconnues dans Thisworkbook, tandis que le simple appel à une macro placée dans un module standard permet cette reconnaissance. C'est ainsi que j'interprète le fait qu'un code placé dans Workbook_Open ne fonctionne "pas toujours". Et il semble que plus les micros sont rapides, plus le phénomène se produit...
Une simple observation au cours des ans...
24/02/2009, 14h02
pontoise

Merci Ouskel,
ça marche.
Merci encore une fois.