A l'ouverture d'excel vérifier sur le disque dur si fichier X ex
Résolu/Fermé
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
-
14 juin 2017 à 18:57
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 14 juin 2017 à 19:37
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 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
- Liste déroulante excel - 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 775
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
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
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