[SOLVED] Problème avec une boite de message!

Bonjour

J'ai cette macro mais il n'y a pas de msgbox qui appara=EEt. Qu'est-ce
qui ne fonctionne pas?

Private Sub Workbook_Open()

Select Case MsgBox("Voulez-vous mettre =E0 jour les cellules?", vbYesNo)
Case vbYes

Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=3DxlPasteValues
.Range("E13:I39").Delete Shift:=3DxlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=3DxlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open =3D False
=20
End Select

End Sub

Merci
MP

Vous pourriez essayer

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

Trevor

<mboileau@hotmail.com> wrote in message
news:1153165738.429791.111710@75g2000cwc.googlegroups.com...
Bonjour

J'ai cette macro mais il n'y a pas de msgbox qui apparaît. Qu'est-ce
qui ne fonctionne pas?

Private Sub Workbook_Open()

Select Case MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Case vbYes

Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP

Bonjour,

Ca ne fonctionne toujours pas. Lorsque j'ouvre mon fichier, ca me dit
"erreur de compilation".

Private Sub Workbook_Open()

iMsg =3D MsgBox("Voulez-vous mettre =E0 jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=3DxlPasteValues
.Range("E13:I39").Delete Shift:=3DxlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

With Feuil2
.Range("C19:H42").Delete Shift:=3DxlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open =3D False
=20
End Select

End Sub

Merci
MP

Bonsoir

Je vous pense le besoin de faire quelque chose comme ceci:

Private Sub Workbook_Open()

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Sheets("Feuil1")
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
End With

With Sheets("Feuil2")
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
End With

Case vbNo
ThisWorkbook.Close savechanges = False ' <<<

End Select

End Sub

Bon soiree

Trevor

<mboileau@hotmail.com> wrote in message
news:1153226997.055215.314100@m73g2000cwd.googlegroups.com...

Bonjour,

Ca ne fonctionne toujours pas. Lorsque j'ouvre mon fichier, ca me dit
"erreur de compilation".

Private Sub Workbook_Open()

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP