Formulaire couper/coller un dossier du Disque Dur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 13 février 2016, 02:37

Bonjour

2 solutions
1ère solution : Dans les références il faut activer "Microsoft Scripting Runtime"

Seconde solution : Modifier la macro
Private Sub CommandButton3_Click()
Dim i As Long
Dim source As String, destin As String, message As String
  'Dim oFSO As Scripting.FileSystemObject
[surligner]Dim oFSO As Object[/surligner]
Dim Rep As Integer

  message = "Etes-vous sur(e) de vouloir déplacer le dossier : " & vbLf & vbLf & Label1.Caption & vbLf & vbLf & "vers : " & vbLf & vbLf & Label2.Caption
  Rep = MsgBox(message, vbYesNo + vbQuestion, "Confirmation")
  If Rep = vbYes Then

    'Set oFSO = New Scripting.FileSystemObject
    [surligner]Set oFSO = CreateObject("Scripting.FileSystemObject")[/surligner]
    source = Label1.Caption
    destin = Label2.Caption
    If oFSO.FolderExists(source) Then
      oFSO.MoveFolder source, destin & "\" & Right(source, Len(source) - InStrRev(source, "\"))
    End If
    'ElementsRepertoire Label1.Caption
    MsgBox "Déplacement(s) effectué(s).", vbOKOnly + vbInformation, "Fin de traitement"
  Else
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
  End If
End Sub
Image
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 13 février 2016, 02:55

magnifique merciiiii encore banzai sujet resolu !!

Derniere questions, quand je clique sur choix du repertoire source, j'aimerais qu'il m'amene directement dans G:drop\JN\Devis

et quand je clique sur choix du repertoire destination j'aimerai qu'il m'amene directement dans G:drop\JN\Facture

c'est possible?
Impossible avec Excel ?? pffff impossible :)
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 13 février 2016, 03:15

Bonjour

Il faut modifier 2 macros
Pour la source
Private Sub CommandButton1_Click()
Dim objShell As Object, objFolder As Object

  Set objShell = CreateObject("Shell.Application")
  [surligner]Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "G:drop\JN\Devis")[/surligner]

  If objFolder Is Nothing Then
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
    End
  Else
    ElementsRepertoire objFolder.ParentFolder.ParseName(objFolder.Title).Path
  End If
End Sub
Pour la destination
Private Sub CommandButton2_Click()
Dim objShell As Object, objFolder As Object

  Set objShell = CreateObject("Shell.Application")
  [surligner]Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "G:drop\JN\Facture")[/surligner]

  If objFolder Is Nothing Then
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
  Else
    Label2.Caption = objFolder.ParentFolder.ParseName(objFolder.Title).Path
  End If
End Sub
Attention : Ces répertoires seront considérés comme la racine de ton disque, tu ne pourras pas remonter au dessus
Image
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 13 février 2016, 04:43

super merciiiiii ca fonctionne nickel
Impossible avec Excel ?? pffff impossible :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message