[résolu]Problème de path sous VBA

[Al capone]

Bonjour à tous,

J'ai un classeur principal qui effectue une backup du dossier au cas ou. Cette backup est placée dans un dossier Backup. Par exemple

Classeur principal : C:\dossier\classeur.xls
Copie de sauvegarde : C:\dossier\backup\copie.xls

Lorsque l'utilisateur utilise la copie de sauvegarde (contenant les mêmes scripts), j'ai fait un petit module pour que la copie remplace le classeur principal si le classeur principal est fermé :

Workbooks("classeur.xls").Activate
    If Err <> 0 Then
        ChDir ThisWorkbook.Path
        ChDir ".."
        ActiveWorkbook.SaveAs Filename:="classeur.xls"
    End If

Lorsque je l'exécute depuis mon PC, tout se passe bien. Les commandes ChDir me permettent de remonter d'un cran (de backup vers dossier). Comme celà lorsque je l"enregistre, il est au bon endroit et ma variable ThisWorkbook prend alors la valeur C:\dossier

Lorsque je l'exécute depuis une clé USB, là çà part en sucette.
Thisworbook.Path correspond bien au chemin de ma clé USB :

H:\dossier\backup

Mais après le ChDir.. et la sauvegarde, ma valeur ThisWorkbook est un chemin d'accès sur mon disque dur ... et plus H:\dossier comme il aurait du faire et comme il le fait lorsque je lance mon script depuis le disque dur.

Là si quelqu'un a une explication je suis preneur à 2000% car je suis totalement largué sur ce coup.

Merci d'avance

 

[Pierrot93]

Re : Problème de path sous VBA

Bonjour,

il y a sans doute lieu de changer le lecteur en cours au préalable :

ChDrive = Left(ActiveWorkbook.Path, 1)

bon après midi
@+

 

[Al capone]

Re : Problème de path sous VBA

Salut,

Je dois le mettre a quel endroit ? Dans mon petit bout de code avant les deux chdir ?

 

[Pierrot93]

Re : Problème de path sous VBA

Re,

Dans mon petit bout de code avant les deux chdir ?

oui...

 

[Al capone]

Re : Problème de path sous VBA

Re Pierrot lorsque je le met comme ceci :

On Error Resume Next
    Workbooks("classeur.xls").Activate
    If Err <> 0 Then
        ChDrive = Left(ActiveWorkbook.Path, 1)
        ChDir ThisWorkbook.Path
        ChDir ".."
        ActiveWorkbook.SaveAs Filename:="classeur.xls"
    End If

J'ai le code erreur :

Erreur de compilation
Argument non facultatif

Merci pour ta future aide

 

[Pierrot93]

Re : Problème de path sous VBA

Re,

J'ai le code erreur :

Erreur de compilation
Argument non facultatif

sur quelle ligne ??

enlève celle-ci

On Error Resume Next

toujours préférable de gérer les erreurs plutôt que de passer outre....

 

[Al capone]

Re : Problème de path sous VBA

Non le code erreur est sur la ligne que tu m'as proposé. J'ai enlevé le On error.... et c'est pareil.

 

[Staple1600]

Re : Problème de path sous VBA

Bonsoir


C'est :

ChDrive Left(ActiveWorkbook.Path, 1)

Voir l'exemple dans l'aide VBA.
(Pas de signe = )

 

[Staple1600]

Re : Problème de path sous VBA

Re

Sinon toujours glané dans l'aide de VBA (touche F1)

Sub AfficheInfoAccesFichier(specfichier)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(specfichier)
    s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
    s = s & "Créée le : " & f.DateCreated & vbCrLf
    s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
    s = s & "Dernière modification le : " & f.DateLastModified
    MsgBox s, 0, "Infos d'accès au fichier"
End Sub

Sub test()
AfficheInfoAccesFichier ActiveWorkbook.FullName
End Sub

Ca peut toujours servir

 

[Pierrot93]

Re : Problème de path sous VBA

Bonjour à tous

(Pas de signe = )

Aarf, bien vu Jean-Marie, on devrait toujours tester...

bonne journée
@+

 

[Al capone]

Re : Problème de path sous VBA

Hello, LOL merci çà marche.

J'aurais une autre petite question. Je fais un test pour savoir si un classeur est ouvert :

Workbooks("rapport_20072011.xls").Activate
If Err = 0 Then
............
end if

Je recherche l'équivalent de * sous DOS car mon problème réside dans le fait que le classeur a toujours le même nom au début mais pas la date qui lui ai associé.
J'aimerais que ce test se fasse sur tous les classeurs qui pourraient être ouverts à ce moment là commençant par "rapport"..un style de rapport_*.xls

 

[Pierrot93]

Re : Problème de path sous VBA

Re,

regarde peut être ceci :

Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name Like "rapport_*" Then MsgBox "ok"
Next wb

boucle sur les classeurs ouverts...

@+

 

[Al capone]

Re : Problème de path sous VBA

Re,

Nickel merci beaucoup 🙂