macro sauvegarder sous

[centrino34]

Bonjour, et oui encore moi je sollicite à nouveau votre aide
Voila mon problème:
la macro ci-dessous fonctionne très bien cependant est il possible d'ajouter plusieurs chemin à la variable, je m'explique si le résultat dans une cellule correspond à ex: toto prendre Chemin1, si le résultat correspond à tata prendre le chemin2 etc...
comment faire?
2eme question la ligne de commande en bas du code me permet de vérifier l’existence du dossier si oui il existe me demande de sauvegarder par dessus, cependant j'aimerais garder le dossier mais accepter simplement de sauvegarder le classeur même si il existe dèja
merci pour votre aide

Sub Enregistrement()
' macro pour sauvegarder sous a l'aide d'un bouton formulaire

' les trois variables
Dim Chemin1$, Client$, Fichier$
'1er variable emplacement du futur dossier
Chemin1 = "C:\Users\GRANBY2\Documents\"
'2eme variable nom du dossier
Client = Range("F6")
' 3eme variable nom du fichier excel
Fichier = Range("F7")
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client

ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier


End Sub

 

[Compte Supprimé 979]

Re : macro sauvegarder sous

Bonjour Centrino34

Essaye avec ce code

Sub Enregistrement()  Dim Chemin1$, Client$, Fichier$
  '  macro pour sauvegarder sous a l'aide d'un bouton formulaire
  ' les trois variables
  '1er variable emplacement du futur dossier
  If Range("A1") = "toto" Then Chemin1 = "C:\Users\GRANBY1\Documents\"
  If Range("A1") = "tata" Then Chemin1 = "C:\Users\GRANBY2\Documents\"
  ' Etc ...
  '2eme variable nom du dossier
  Client = Range("F6")
  ' 3eme variable nom du fichier excel
  Fichier = Range("F7")
  If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
  ' Supprimer l'alerte de sauvegarde
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
  Application.DisplayAlerts = True
End Sub

A+