Améliorer le fichier GDCalend n°220

Le
Jean-Paul V
Bonjour à tous

J’ai modifié le fichier GDCalend de Geedee pris dans Excelabo ( n° 220) pour
éviter que sa macro ne se plante quand on ouvre avec Excel son fichier alors
qu’un fichier Excel est déjà ouvert.
La macro modifiée est :
Sub Auto_Open()
reprise:
ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = False
typeCal = 1
'Amélioration de la Macro GD par JPV
For i = 1 To 5
On Error GoTo zut
Sheets("dialog1").OptionButtons("OB_1").Value = 1
Next i
Application.ScreenUpdating = True
rep = Sheets("dialog1").Show
If rep Then
Call Calendrier_2x6
Select Case typeCal
Case 1
Call ParMois
Case 2
Call Parsemestre
End Select
GoTo reprise
End If
End
zut:
ActiveWindow.WindowState = xlMinimized
Windows("Calendrier12PhotosPerso1.xls").Activate
Auto_Open
End Sub
Cette amélioration ne marche que si mon fichier ne change pas de nom, le
jour où j’appelle mon fichier "Calendrier12PhotosPerso2.xls" la modif est
inopérante y a-t-il une possibilité pour faire marcher la macro qq soit le
nom du fichier

@+ j’espère
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
Modeste
Le #4563551
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

La macro modifiée est :
Sub Auto_Open()
reprise:
ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = False
typeCal = 1
'Amélioration de la Macro GD par JPV
For i = 1 To 5
On Error GoTo zut
Sheets("dialog1").OptionButtons("OB_1").Value = 1
Next i
Application.ScreenUpdating = True
rep = Sheets("dialog1").Show
If rep Then
Call Calendrier_2x6
Select Case typeCal
Case 1
Call ParMois
Case 2
Call Parsemestre
End Select
GoTo reprise
End If
End
zut:
ActiveWindow.WindowState = xlMinimized
Windows("Calendrier12PhotosPerso1.xls").Activate
Auto_Open
End Sub


en tete de module :
Public GDCal as Workbook

dans Auto_open :
set GDCal = thisworkbook

il serait même préférable d'utiliser au lieu de Auto_Open :
Private Sub Workbook_Open()

End Sub

plus tard dans les procs
GDCal.Activate
Sheets("xxxxx"). etc....



--
--
@+
;o)))

Jean-Paul V
Le #4563381
Bonjour Modeste
Je crois que l’on se retrouve pour la deuxième fois sur ce fichier
Merci pour votre réponse ça marche.
Je suis très honoré d’avoir la réponse de l’auteur.
Ce que vous ne dites pas dans votre réponse c’est que mes instructions
complémentaires deviennent inutiles avec vos compléments.
Heureusement pour moi, à mon ‘’modeste’’ niveau il me restera des modif
indispensables pour que des photo en mode portrait de grande taille puissent
également s’intégrer sans modif de la taille avec l’option Semestre et ça
vous ne l’aviez pas prévu et toc.
Vous avez également oubliez d’affecter les 2 macros qui sont prévues dans
votre module aux 2 images de votre boite de dialogue (comme vous le voyez je
suis un disciple attentif au travail du maître).

Bonne soirée



Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

La macro modifiée est :
Sub Auto_Open()
reprise:
ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = False
typeCal = 1
'Amélioration de la Macro GD par JPV
For i = 1 To 5
On Error GoTo zut
Sheets("dialog1").OptionButtons("OB_1").Value = 1
Next i
Application.ScreenUpdating = True
rep = Sheets("dialog1").Show
If rep Then
Call Calendrier_2x6
Select Case typeCal
Case 1
Call ParMois
Case 2
Call Parsemestre
End Select
GoTo reprise
End If
End
zut:
ActiveWindow.WindowState = xlMinimized
Windows("Calendrier12PhotosPerso1.xls").Activate
Auto_Open
End Sub


en tete de module :
Public GDCal as Workbook

dans Auto_open :
set GDCal = thisworkbook

il serait même préférable d'utiliser au lieu de Auto_Open :
Private Sub Workbook_Open()

End Sub

plus tard dans les procs
GDCal.Activate
Sheets("xxxxx"). etc....



--
--
@+
;o)))






Jean-Paul V
Le #4563371
Re Bonjour

J'ai oublié une question:

Pourquoi lorsque je vais dans les Macros au niveau de l'Explorateur de
Projets on voit pour ce Fichier Cal13.xls(Calendrier12PhotosPerso.xls) , à ma
connaissance je n'ai jamas donné comme Nom Cal13 .

@+


Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

La macro modifiée est :
Sub Auto_Open()
reprise:
ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = False
typeCal = 1
'Amélioration de la Macro GD par JPV
For i = 1 To 5
On Error GoTo zut
Sheets("dialog1").OptionButtons("OB_1").Value = 1
Next i
Application.ScreenUpdating = True
rep = Sheets("dialog1").Show
If rep Then
Call Calendrier_2x6
Select Case typeCal
Case 1
Call ParMois
Case 2
Call Parsemestre
End Select
GoTo reprise
End If
End
zut:
ActiveWindow.WindowState = xlMinimized
Windows("Calendrier12PhotosPerso1.xls").Activate
Auto_Open
End Sub


en tete de module :
Public GDCal as Workbook

dans Auto_open :
set GDCal = thisworkbook

il serait même préférable d'utiliser au lieu de Auto_Open :
Private Sub Workbook_Open()

End Sub

plus tard dans les procs
GDCal.Activate
Sheets("xxxxx"). etc....



--
--
@+
;o)))






Modeste
Le #4563181
Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

Pourquoi lorsque je vais dans les Macros au niveau de l'Explorateur de
Projets on voit pour ce Fichier Cal13.xls(Calendrier12PhotosPerso.xls) , à ma
connaissance je n'ai jamas donné comme Nom Cal13 .


Il s'agit simplement du nom du classeur d'origine (EXCEL 5 Français) avec macro
en français
que j'avais été amené à bricoler lors du passage à Excel95 ... cela fait
maintenant quelques années...
Tu aura remarqué par ailleurs que l'on y utilise une boite de dialogue et non
d'un Userform ;o)))
Mes quelques modestes...contributions sur Excelabo ont été développées en
diletante pour le Fun et gagneraient à etre revues et réactualisées,
et valent surtout à titre d'exemples et non d'applications "Clés en mains".
Mais étant maintenant hors du circuit professionnel (Pré-retraite), je n'ai plus
que rarement l'occasion de réactualiser mon expérience.
Mes journées sont occupées ailleurs...
Mais je garde toujours un oeil sur MPFE ;o)))

--
--
@+
;o)))

Publicité
Poster une réponse
Anonyme