Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème avec Cjoint

Problème avec Cjoint

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
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" a écrit dans le message de news:
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










Avatar
isabelle
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" a écrit dans le message de news:
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














Avatar
Pierre
"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" a écrit dans le message de news:

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