Bonjour
Sous 2003
Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert avec
2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String
version_excel = Mid(Application.Version, 1, 3)
If version_excel = "12.0" Then
MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec
cette version d'Excel" & Chr(13) & "le classeur va être fermé")
ThisWorkbook.Close
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction MID ;-) Avec ce code simplifié, ça fonctionne parfaitement : Private Sub Workbook_Open() If Application.Version = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If End Sub
Cordialement Pascal
"Pascal" a écrit dans le message de news: %
Bonjour Sous 2003 Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String version_excel = Mid(Application.Version, 1, 3) If version_excel = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If
Cela à fonctionné une seule fois??
Des pistes??
Merci Pascal
Bonjour
Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction MID
;-)
Avec ce code simplifié, ça fonctionne parfaitement :
Private Sub Workbook_Open()
If Application.Version = "12.0" Then
MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec
cette version d'Excel" & Chr(13) & "le classeur va être fermé")
ThisWorkbook.Close
End If
End Sub
Cordialement
Pascal
"Pascal" <pb@nospam.fr> a écrit dans le message de news:
%23W30La6KKHA.1336@TK2MSFTNGP05.phx.gbl...
Bonjour
Sous 2003
Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert
avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String
version_excel = Mid(Application.Version, 1, 3)
If version_excel = "12.0" Then
MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec
cette version d'Excel" & Chr(13) & "le classeur va être fermé")
ThisWorkbook.Close
End If
Bonjour Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction MID ;-) Avec ce code simplifié, ça fonctionne parfaitement : Private Sub Workbook_Open() If Application.Version = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If End Sub
Cordialement Pascal
"Pascal" a écrit dans le message de news: %
Bonjour Sous 2003 Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String version_excel = Mid(Application.Version, 1, 3) If version_excel = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If
Cela à fonctionné une seule fois??
Des pistes??
Merci Pascal
Pascal
Merci, Oui j'ai viré le MID et cela fonctionne parfaitement
"papou" a écrit dans le message de news:
Bonjour Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction MID ;-) Avec ce code simplifié, ça fonctionne parfaitement : Private Sub Workbook_Open() If Application.Version = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If End Sub
Cordialement Pascal
"Pascal" a écrit dans le message de news: %
Bonjour Sous 2003 Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String version_excel = Mid(Application.Version, 1, 3) If version_excel = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If
Cela à fonctionné une seule fois??
Des pistes??
Merci Pascal
Merci,
Oui j'ai viré le MID et cela fonctionne parfaitement
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: OSV6Y36KKHA.3740@TK2MSFTNGP02.phx.gbl...
Bonjour
Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction
MID ;-)
Avec ce code simplifié, ça fonctionne parfaitement :
Private Sub Workbook_Open()
If Application.Version = "12.0" Then
MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec
cette version d'Excel" & Chr(13) & "le classeur va être fermé")
ThisWorkbook.Close
End If
End Sub
Cordialement
Pascal
"Pascal" <pb@nospam.fr> a écrit dans le message de news:
%23W30La6KKHA.1336@TK2MSFTNGP05.phx.gbl...
Bonjour
Sous 2003
Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert
avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String
version_excel = Mid(Application.Version, 1, 3)
If version_excel = "12.0" Then
MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec
cette version d'Excel" & Chr(13) & "le classeur va être fermé")
ThisWorkbook.Close
End If
Merci, Oui j'ai viré le MID et cela fonctionne parfaitement
"papou" a écrit dans le message de news:
Bonjour Si je peux me permettre, tu t'es "emmêlé les pinceaux" avec la fonction MID ;-) Avec ce code simplifié, ça fonctionne parfaitement : Private Sub Workbook_Open() If Application.Version = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If End Sub
Cordialement Pascal
"Pascal" a écrit dans le message de news: %
Bonjour Sous 2003 Je cherche à interdire l'ouverture d'un classeur 2003 si il est ouvert avec 2007.
Sur le Worbook OPen j'ai tenté cela:
Dim version_excel As String version_excel = Mid(Application.Version, 1, 3) If version_excel = "12.0" Then MsgBox ("Vous ne pouvez pas ouvrir" & Chr(13) & "ce classeur avec cette version d'Excel" & Chr(13) & "le classeur va être fermé") ThisWorkbook.Close End If