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
Bonjour,
J'aimerai faire que quand j'ouvre mon fichier Excel, il vérifie si le fichier X.text existe sur le disque C, si oui il s'ouvre autrement il se referme sans enregistrer.
merci de votre aide
J'aimerai faire que quand j'ouvre mon fichier Excel, il vérifie si le fichier X.text existe sur le disque C, si oui il s'ouvre autrement il se referme sans enregistrer.
merci de votre aide
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
- Chkdsk disque dur externe - Guide
- Fichier rar - 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 779
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