Déplacer un dossier par VB

[pepi]

Bonjour,
dans mon application de suivi de projets, j'ai sur chaque page de projet un bouton qui est sensé déplacer le dossier du répertoire DEVIS vers FACTURES.

J'ai transféré cette application sur un autre ordinateur qui tourne également avec XP. Seulement, maintenant ce bouton ne marche plus, et je dois tout faire manuellement. Pas de problème pour moi, mais c'est mon épouse (excusez moi les filles!!!) qui est sensé de s'en occuper. Je pense que c'est une bibliothèque qui doit maquer mais je n'arrive pas à mettre la main dessus.

Voici le code qui est lié au bouton:
Sub Bouton156_QuandClic()

Dim MyFolder As String
Dim Confirm As Integer


If ActiveSheet.Range("B19") <> "Commande" Then MsgBox ("L'état CLIENT n'est pas passé en commande, alors je ne fais rien !!! ")
Exit Sub
End If
If ActiveSheet.Range("B19") = "Commande" Then End If

Confirm = MsgBox("PLACER CE VALEUR SUR COMMANDE, AMENE LE DEPLACEMENT DU DOSSIER DE DEVIS EN FACTURES. VOULEZ VOUS CONFIRMER?", _
vbQuestion + vbYesNo, "Message d'alerte")

If Confirm = vbNo Then
Exit Sub
End If
If Confirm = vbYes Then
MyFolder = ActiveSheet.Name
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder("C:\Documents and Settings\PEKO TRAD\Mes documents\SPT\PEKO TRAD\DEVIS" & "\" & MyFolder) 'le dossier à déplacer dossier.Move "C:\Documents and Settings\PEKO TRAD\Mes documents\SPT\PEKO TRAD\FACTURES\"
End If


'End If
'End If
'End If
'End If

End Sub


Pouvez-vous me dire ce qu'il faut faire?

Merci d'avance

Pepi

 

[Staple1600]

Re : Déplacer un dossier par VB

Bonsoir


peut etre cocher

Microsoft Scripting Runtime


dans Outils/Références (Dans VBE)

 

[pepi]

Re : Déplacer un dossier par VB

Cher Staple,

j'ai vérifié et Scrupting Runtime est coché.

Pepi

 

[pepi]

Re : Déplacer un dossier par VB

Autrement, oublié de dire, le macro bloque sur "fso"

 

[Staple1600]

Re : Déplacer un dossier par VB

Re


Et en rajoutant
Dim fso As FileSystemObject
Set fso = New FileSystemObject

 

[pepi]

Re : Déplacer un dossier par VB

J'essaie

Pepi

 

[Staple1600]

Re : Déplacer un dossier par VB

Re

Pour etre plus précis

Sub Bouton156_QuandClic()
Dim MyFolder As String
Dim Confirm As Integer
[B]Dim fso As FileSystemObject[/B]
'... le reste du code
If Confirm = vbYes Then
MyFolder = ActiveSheet.Name
[B]Set fso = New FileSystemObject [/B]
'... le reste du code
End Sub

 

[pepi]

Re : Déplacer un dossier par VB

Bref ça bloque de nouveau sur le "Dim fso As FileSystemObject" que j'ai mis en haut sous les autres Dim

 

[pepi]

Re : Déplacer un dossier par VB

'scuses, pas vu la dernière remarque. J'essaie votre suggestion. Merci

 

[pepi]

Re : Déplacer un dossier par VB

Alors, toujours blocage sur le Dim fso

Voilà le code jusqu'à maintenant:

Sub Bouton156_QuandClic()

Dim MyFolder As String
Dim Confirm As Integer
Dim fso As FileSystemObject


If ActiveSheet.Range("B19") <> "Commande" Then MsgBox ("L'état CLIENT n'est pas passé en commande, alors je ne fais rien !!! ")
Exit Sub
End If
If ActiveSheet.Range("B19") = "Commande" Then End If

Confirm = MsgBox("PLACER CE VALEUR SUR COMMANDE, AMENE LE DEPLACEMENT DU DOSSIER DE DEVIS EN FACTURES. VOULEZ VOUS CONFIRMER?", _
vbQuestion + vbYesNo, "Message d'alerte")

If Confirm = vbNo Then
Exit Sub
End If
If Confirm = vbYes Then
If Confirm = vbYes Then
MyFolder = ActiveSheet.Name
Set fso = New FileSystemObject

'MyFolder = ActiveSheet.Name
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier = fso.GetFolder("C:\Documents and Settings\PEKO TRAD\Mes documents\SPT\PEKO TRAD\DEVIS\" & "\" & MyFolder) 'le dossier à déplacer dossier.Move "C:\Documents and Settings\PEKO TRAD\Mes documents\SPT\PEKO TRAD\FACTURES\"
End If


'End If
'End If
'End If
'End If

End Sub

 

[pepi]

Re : Déplacer un dossier par VB

VB dit "projet ou bibliothèque introuvable"

 

[Staple1600]

Re : Déplacer un dossier par VB

Re

Ce test fonctionne chez moi
(Avec les répetoires déjà existants)

sub test()

Dim fso As FileSystemObject
Dim dossier As Folder

Set fso = New FileSystemObject
Set dossier = fso.GetFolder("C:\Temp\abc")
dossier.Move "C:\Temp\Bca\"
End Sub

 

[pepi]

Re : Déplacer un dossier par VB

je regarde

Pepi

 

[pepi]

Re : Déplacer un dossier par VB

Toujours pas. Désolé. Ne connaît toujours pas fso et dit "bibliothèque introuvable. Est ce que peut être il y a une autre façon de déplacer un répertoire?

 

[Staple1600]

Re : Déplacer un dossier par VB

Re

Tu es sur que Microsoft Scripting Runtime est cochée?

Si je décoche sur mon PC

La il y a un message d'erreur


Si je coche -> plus de problème