Problème avec Cjoint

Le
garnote
Bonsoir les aminches,

J'ai un classeur qui contient les macros suivantes :

Dim k As Integer
Sub Rotation()
Do
Feuil1.Shapes("Rectangle 1").IncrementRotation 1
DoEvents
Loop Until k = 1
End Sub

Sub Apparition_Disparition()
With Feuil1
.Shapes("Noirs").Visible = Not .Shapes("Noirs").Visible
End With
End Sub

Sub Cesse()
k = 1
End Sub

Sub Fermer()
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cesse
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Rotation
End Sub

et un bouton qui déclenche la macro
Sub Fermer()
ThisWorkbook.Close
End Sub
Quand je l'utilise chez moi, tout baigne dans l'huile d'olive
extra vierge pressée à froid mais si j'ouvre mon document
à partir de Cjoint, ça bloque sur la macro Fermer().
Pourquoi en est-il ainsi ?

Serge
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #17626571
Bonsoir,

Par contre, si je l'enregistre sur le bureau,
je peux l'ouvrir et je n'ai aucun problème.
Si ça vous tente d'essayer, voici le lien :
http://cjoint.com/?kxxf18CZpP


Serge


"garnote"
Bonsoir les aminches,

J'ai un classeur qui contient les macros suivantes :

Dim k As Integer
Sub Rotation()
Do
Feuil1.Shapes("Rectangle 1").IncrementRotation 1
DoEvents
Loop Until k = 1
End Sub

Sub Apparition_Disparition()
With Feuil1
.Shapes("Noirs").Visible = Not .Shapes("Noirs").Visible
End With
End Sub

Sub Cesse()
k = 1
End Sub

Sub Fermer()
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cesse
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Rotation
End Sub

et un bouton qui déclenche la macro
Sub Fermer()
ThisWorkbook.Close
End Sub
Quand je l'utilise chez moi, tout baigne dans l'huile d'olive
extra vierge pressée à froid mais si j'ouvre mon document
à partir de Cjoint, ça bloque sur la macro Fermer().
Pourquoi en est-il ainsi ?

Serge










isabelle
Le #17626791
salut Serge,

il semble que le lien soit corrompu, je n'arrive pas à l'ouvrir à partir de ci-joint
mais j'arrive à l'enregistrer.

isabelle

garnote a écrit :
Bonsoir,

Par contre, si je l'enregistre sur le bureau,
je peux l'ouvrir et je n'ai aucun problème.
Si ça vous tente d'essayer, voici le lien :
http://cjoint.com/?kxxf18CZpP


Serge


"garnote"
Bonsoir les aminches,

J'ai un classeur qui contient les macros suivantes :

Dim k As Integer
Sub Rotation()
Do
Feuil1.Shapes("Rectangle 1").IncrementRotation 1
DoEvents
Loop Until k = 1
End Sub

Sub Apparition_Disparition()
With Feuil1
.Shapes("Noirs").Visible = Not .Shapes("Noirs").Visible
End With
End Sub

Sub Cesse()
k = 1
End Sub

Sub Fermer()
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cesse
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Rotation
End Sub

et un bouton qui déclenche la macro
Sub Fermer()
ThisWorkbook.Close
End Sub
Quand je l'utilise chez moi, tout baigne dans l'huile d'olive
extra vierge pressée à froid mais si j'ouvre mon document
à partir de Cjoint, ça bloque sur la macro Fermer().
Pourquoi en est-il ainsi ?

Serge














Pierre
Le #17627911
"isabelle" a écrit dans le message de news:

salut Serge,

il semble que le lien soit corrompu, je n'arrive pas à l'ouvrir à partir
de ci-joint
mais j'arrive à l'enregistrer.

isabelle

garnote a écrit :
Bonsoir,

Par contre, si je l'enregistre sur le bureau,
je peux l'ouvrir et je n'ai aucun problème.
Si ça vous tente d'essayer, voici le lien :
http://cjoint.com/?kxxf18CZpP


Serge


"garnote"
Bonsoir les aminches,

J'ai un classeur qui contient les macros suivantes :

Dim k As Integer
Sub Rotation()
Do
Feuil1.Shapes("Rectangle 1").IncrementRotation 1
DoEvents
Loop Until k = 1
End Sub

Sub Apparition_Disparition()
With Feuil1
.Shapes("Noirs").Visible = Not .Shapes("Noirs").Visible
End With
End Sub

Sub Cesse()
k = 1
End Sub

Sub Fermer()
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cesse
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Rotation
End Sub

et un bouton qui déclenche la macro
Sub Fermer()
ThisWorkbook.Close
End Sub
Quand je l'utilise chez moi, tout baigne dans l'huile d'olive
extra vierge pressée à froid mais si j'ouvre mon document
à partir de Cjoint, ça bloque sur la macro Fermer().
Pourquoi en est-il ainsi ?

Serge







J'arrive à l'ouvrir à partir de cjoint, ça tourne après l'activation des
macros mais la macro "ferme" plante !
Pierre
Publicité
Poster une réponse
Anonyme