Discussion :

[dlight]

Bonjour à tous.

J'ai plusieurs fichiers identiques dans lesquels j'aimerais faire une mise à jour. J'ai donc créé un fichier avec du code travaillant sur un répertoire contenant les fichiers à mettre à jour.

Mon problème :

Les fichiers à mettre à jour ont le code suivant à l'ouverture:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
Dim ws As Worksheet
 
UserForm24.Show
End Sub

Donc, le fichier ayant le code de "Mise à jour" doit ouvrir des fichiers ayant en ouverture un userform.

Est-il possible de faire en sorte que le userform ne soit pas affiché afin de permettre au code de se poursuivre.

Notez que j'ai annulé la possibilité de fermer le userform avec le "X" rouge...

Merci à l'avance

Dlight

[casefayere]

peut-être en vérifiant à l'ouverture des fichier que le fichier "mise à jour" n'est pas ouvert.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
Dim ws As Worksheet
if 'si mise à jour est fermé then 
    UserForm24.Show
end if
End Sub

PS : je ne dors pas encore, alors, plus précis, sur tous tes fichiers or celui de mise à jour bien sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
On Error Resume Next
Workbooks("mise_a_jour").Activate 'à remplacer par nom du fichier de mise à jour
If Err <> 0 Then UserForm24.Show
End Sub