Discussion :

[jolzeviking]

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

[SilkyRoad]

bonjour


Comment sauvegarder un classeur sur une clé USB dont la lettre racine peut varier ?


bonne soirée
michel

[jolzeviking]

Merci silkyroad je n'ai pas employé les bons mots pour ma recherche dans les faq. Merci pour ton aide à bientôt.
cordialement