Discussion :

[GWH18]

Bonjour,

J'ai une macro qui enregistre automatiquement un onglet du classeur dans mon serveur.

Sauf que pour une de mes collègues, le serveur n'a pas le même nom et donc la macro ne fonctionne pas puisqu'elle ne trouve pas le chemin d'enregistrement.

C'est pourquoi je voulais savoir s'il existait une sorte de SIERREUR en VBA car je ne trouve pas d'équivalent.

Voici la partie concernée dans mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
    fichier = "\" & ActiveSheet.Range("B2") & ".xlsx"
    Debug.Print fichier
    Dossier = "\\NOM SERVEUR\DOSSIER\2-Technique\CLIENT\1- Fiche de mission à ranger"
    chemin = Dossier & fichier
 
With ActiveWorkbook
 
    .SaveAs Filename:=chemin
    .Close

Et il me faudrait un :

"SIERREUR :

ma partie actuelle

la même mais avec le deuxième nom de serveur"

Je vous remercie d'avance pour votre aide

[Invité]

Bonjour,

Regardez si ces fonctions peuvent vous aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Function VerifierLeChemin(ByVal Chemin2 As String) As Boolean
 
Dim Fso As Object
 
    VerifierLeChemin = False
    Set Fso = CreateObject("Scripting.FileSystemObject")
    VerifierLeChemin = Fso.FolderExists(Chemin2)
    Set Fso = Nothing
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Function VerifierLeDrive(ByVal Lecteur2 As String) As Boolean
 
Dim Fso2 As Object
 
    VerifierLeDrive = False
    Set Fso2 = CreateObject("Scripting.FileSystemObject")
    VerifierLeDrive = Fso2.DriveExists(Lecteur2)
    Set Fso2 = Nothing
 
End Function

[GWH18]

Je ne comprends pas tout à fait comment l'appliquer... Est-ce possible d'avoir plus d'explications s'il vous plait ?

[Invité]

Regardez dans la fenêtre exécution, ce que donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Debug.Print VerifierLeChemin(Dossier)

[Gorzyne]

éventuellement s'intéresser à l'instruction
Thisworkbook.path qui permet de travailler en relatif dans l'arborescence de ton classeur (ou éventuellement de naviguer dans les parents pourvu que la structure locale soit normée)

sinon oui utiliser les fonctions de notre ami commun, qui ont l'air de faire le taf... mais bon on peut déjà gérer 90% des cas avec thisworkbook.path