faire action quand ouverture d'un fichier

skoobi

XLDnaute Barbatruc

• 21 Octobre 2007

• #2

Re : faire action quand ouverture d'un fichier

Bonsoir,
tu veux connaître le code pour que la macro démarre à l'ouverture du fichier ou le code qui permet de répéter ton code sur les autres feuilles ou les 2?

 

Vote positif 0 Vote négatif

G

glm

XLDnaute Occasionnel

• 21 Octobre 2007

• #3

Re : faire action quand ouverture d'un fichier

Bonsoir skoobi,
oui les 2
A+

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Octobre 2007

• #4

Re : faire action quand ouverture d'un fichier

bonsoir à tous

sur toute les feuilles

dim ws as worsheets
for each ws in workbooks.sheets
for c = 4 To 34
If ws.Cells(8,c) = ws.Range("C36") Then ws.Cells(4,c)= "7"
Next c
next ws

Macro à mettre dans workbook_open de l'objet workbook

 

Vote positif 0 Vote négatif

G

glm

XLDnaute Occasionnel

• 21 Octobre 2007

• #5

Re : faire action quand ouverture d'un fichier

Bonsoir wilfried_42,
merci pour la réponse.
je viens de la tester, il y a une erreur "données introuvable ou erreur de compilation"
j'ai mis le prog dans ThisWorkbook

Private Sub Workbook_Open()

Dim ws As Worksheets
For Each ws In Workbooks.Sheets
For c = 4 To 34
If ws.Cells(8, c) = ws.Range("C36") Then ws.Cells(4, c) = "7"
Next c
Next ws

End Sub

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Octobre 2007

• #6

Re : faire action quand ouverture d'un fichier

re:

desolé, grosse fatigue

Dim ws as worksheet sans S

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Octobre 2007

• #7

Re : faire action quand ouverture d'un fichier

re:

si je ne suis plus capable d'aligner 5 ligne de code, il faut que j'aille me coucher

Bonne nuit à tous et à plus

 

Vote positif 0 Vote négatif

G

glm

XLDnaute Occasionnel

• 21 Octobre 2007

• #8

Re : faire action quand ouverture d'un fichier

Merci wilfried_42 encore 1 fois,
mais il bug encore sur Workbooks.Sheets
Si il y a encore des motivés...ce soir
Merci à eux

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 21 Octobre 2007

• #9

Re : faire action quand ouverture d'un fichier

Teste voir

Code:

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For c = 4 To 34
If ws.Cells(8, c) = ws.Range("C36") Then ws.Cells(4, c) = "7"
Next c
Next ws
End Sub

Chez moi, ça ne bug pas. 😎
Les "s" sont un peu pénible, je sais!!! 😀

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 21 Octobre 2007

• #10

Re : faire action quand ouverture d'un fichier

bonsoir le fil
Une précision à vos réponses.

Dans la mesure où le code est dans le module ThisWorkbook, ceci suffit : For Each ws In Worksheets ,car le classeur sur lequel la macro va travailler sera forcément "thisWorkbook".

Personnellement je préfère ceci au ActiveWorkbook pour les phases de debugage, où je navigue entre différents classeurs ouverts et qu'il m'arrive d'oublier d'activer le bon! 🙄
Et de manière générale, je trouve plus clair et plus sûr de préciser si la macro doit travailler sur CE classeur ou sur le classeur ACTIF.

Bonne soirée

 

Vote positif 0 Vote négatif

G

glm

XLDnaute Occasionnel

• 22 Octobre 2007

• #11

Re : faire action quand ouverture d'un fichier

Bonsoir à tous,
merci pour les réponses de luki et jnp, moi j'étais parti me coucher...!
Effectivement cela ne bug plus
mais cela ne fonctionne toujours pas?
j'envoie l'exemple. Le but est de comparer la date d'aujourd'hui avec la date d'une feuille de mois(ici octobre) et de mettre la valeur 7 dans la case au dessus du jour actuel
exemple: aujourd'hui, on est le 22(en C36)-->le 22 se trouve en Y8-->on devrait avoir la valeur 7 dans la case Y4(pour afficher une flèche avec une police spéciale)
Si quelqu'un a une idée...
A+

 

Pièces jointes

• Essai.zip

  25.3 KB · Affichages: 24
• Essai.zip

  25.3 KB · Affichages: 23
• Essai.zip

  25.3 KB · Affichages: 22

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Octobre 2007

• #12

Re : faire action quand ouverture d'un fichier

Bonjour glm 🙂,
Quand la question est bien posée, c'est plus simple. Le mieux est de ne pas faire appel à ta cellule (qui n'est pas encore calculée lors de l'ouverture) mais d'appeler en VBA la fonction Now (aujourd'hui) et Day (jour), ce qui te donne le code suivant:

Code:

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells(4, Day(Now) + 3) = "7"
Next ws
End Sub

Je pense que ça devrait le faire 😎

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 22 Octobre 2007

• #13

Re : faire action quand ouverture d'un fichier

Bonjour le fil

Bien vu ton approche JNP! Je la garderais si j'étais glm.

Pour ton info glm : il faut comparer ce qui est comparable! et ne pas se fier à ce que tu vois dans tes cellules, surtout avec des dates 😛

Dans l'exemple ci dessous, qui fonctionne aussi, (au passage j'ai changé le numéro de ligne dans ta macro, car travailler sur une ligne vide... 🙄) j'ai utilisé le code "Debug.Print" qui permet d'évaluer exactement un bout de code (il faut ouvrir la fenêtre éxécution pour ça) c'est très utile en débuggage!

Ça m'a permis de voir que tu comparais 22 avec 22/10/2007..... et de corriger en ajoutant un "Day" bienvenu!

Code:

Private Sub Workbook_Open()

Dim ws As Worksheet, c As Integer
For Each ws In Worksheets
Debug.Print ws.Range("C36") ' pour évaluer la valeur renvoyée par le code
    For c = 4 To 34
    Debug.Print ws.Cells(8, c) ' pour évaluer la valeur renvoyée par le code
        If Day(ws.Cells(8, c)) = ws.Range("C36") Then ws.Cells(4, c) = "7"
    Next c
Next ws
End Sub

une fois ton pb résolu, tu peux passer le code "Debug.Print" en commentaire

Bonne soirée

 

Vote positif 0 Vote négatif

G

glm

XLDnaute Occasionnel

• 24 Octobre 2007

• #14

Re : faire action quand ouverture d'un fichier

Bonsoir,
Merci à luki et à jnp.
Je n'ai pas fait attention aux cellules "dates"!!!
C'est une bonne leçon...
Salut à tous

 

Vote positif 0 Vote négatif