MACRO : SIERREUR en VBA

Version imprimable

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:

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

Citation:

Envoyé par GWH18

Bonjour,

Regardez si ces fonctions peuvent vous aider :

Code:

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:

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

30/04/2021, 14h27
GWH18

Je ne comprends pas tout à fait comment l'appliquer... Est-ce possible d'avoir plus d'explications s'il vous plait ?
30/04/2021, 15h37
Invité
Citation:

Envoyé par GWH18

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

1 2 Debug.Print VerifierLeChemin(Dossier)
03/05/2021, 17h37
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