version excel

Le
Pascal
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #20040631
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" %
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
Le #20040621
Merci,
Oui j'ai viré le MID et cela fonctionne parfaitement

"papou" 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" %
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








Publicité
Poster une réponse
Anonyme