Bonjour à tous !
J'ai pour habitude de bien chercher et de trouver mon bonheur sur votre Forum mais là rien... Je sèche !
Du coup je me lance !
Voilà j'ai une suite de conditions avant l'importation d'une feuille de données, mon problème est le suivant : Si l'utilisateur clique sur annuler, la macro se déclenche quand même...
Sub IMPORTER_GPS()
On Error Resume Next
Dim Recherche
Err = 0
Sheets("Suivi Canal").Select
Range("A1:Z1").Select
Recherche = InputBox("Quelle Semaine ?")
Cells.Find(What:=Recherche, LookIn:=xlValues).Activate
ActiveCell.Offset(7, 0).Select
If Err <> 0 Then
MsgBox Recherche + "INTROUVABLE"
ElseIf ActiveCell.Value = "" Then
MsgBox"La Cellule est bien disponible."
ElseIf MsgBox("Cette semaine a déjà été importée : Voulez vous vraiment continuer ?", vbOKCancel, "Demande de confirmation") = vbCancel Then MsgBox "ARRET IMPORTATTION."
Exit Sub
End If
' Importation Feuille DCRC DCR GPS
Windows("GPS_rapport_DCPP.xls").Activate
Sheets("Communs DCRC et DCR").Select
Sheets("Communs DCRC et DCR").Move After:=ThisWorkbook.Sheets(7)
J'ai essayé de modifier le code pour mettre d'abord une condition avant une autre ou de remplacer le vbYesNO par vbOKCancel mais rien n'y fait...
Si besoin je peux envoyer le fichier mais il est plutôt volumineux !
Merci à ceux qui prendront le temps de regarder un peu...
Bonne aprem !