A l'ouverture d'excel vérifier sur le disque dur si fichier X ex
Résolu/Fermé
viret1290
Messages postés
141
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
28 juillet 2024
-
14 juin 2017 à 18:57
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 14 juin 2017 à 19:37
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 14 juin 2017 à 19:37
A voir également:
- A l'ouverture d'excel vérifier sur le disque dur si fichier X ex
- Cloner disque dur - Guide
- Defragmenter disque dur - Guide
- Fichier rar - Guide
- Chkdsk disque dur externe - Guide
- Remplacer disque dur par ssd - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
14 juin 2017 à 19:16
14 juin 2017 à 19:16
On peut faire ça avec une macro VBA mais ça ne fonctionnera que si les macros sont activées !
Il suffira de désactiver les macro pour l'ouvrir sans qu'il se referme.
Il suffira de désactiver les macro pour l'ouvrir sans qu'il se referme.
viret1290
Messages postés
141
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
28 juillet 2024
2
14 juin 2017 à 19:37
14 juin 2017 à 19:37
J'ai trouvé la solution pour moi.
la voici
Private Sub Workbook_Open()
Dim chemin As String
If Cells(1, 6) <> "" Then
chemin = Cells(1, 6)
If Dir(chemin) = "" Then
If MsgBox("Il faut utiliser l'ordinateur de l'entretien Extérieur.", vbOKOnly) Then
ThisWorkbook.Close
End If
Else
End If
End If
End Sub
merci de votre aide
la voici
Private Sub Workbook_Open()
Dim chemin As String
If Cells(1, 6) <> "" Then
chemin = Cells(1, 6)
If Dir(chemin) = "" Then
If MsgBox("Il faut utiliser l'ordinateur de l'entretien Extérieur.", vbOKOnly) Then
ThisWorkbook.Close
End If
Else
End If
End If
End Sub
merci de votre aide