Salut voila mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim nomination As Variant
nomination = "F:\rapport de production semaine " & ActiveSheet.Name & ".xls"
ActiveSheet.Unprotect
    ActiveSheet.Select
      ActiveSheet.Copy
      Columns("D:E").Select
      Selection.Delete Shift:=xlToLeft
      Columns("F:F").Select
      Selection.Delete Shift:=xlToLeft
   ActiveWorkbook.SaveAs Filename:= _
        nomination, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
        MsgBox "Transfert effectué vers clef USB.", 0, "Confirmation de transfert."
    ActiveWindow.Close
    On Error Resume Next
je souhaite transferer vers la clef usb une copie de feuille. seulement voilà si il n'y a pas de clef c'est le bug et pareil si la clef se nomme G ou I
Comment faire pour détécter une clef et executer la macro en toute securité?
Merci pour vottre aide les vbistes