centrino34
XLDnaute Nouveau
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
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