enregistrer avec plusieurs destination selon valeurRésolu

Question

Bonjour, à tous et à toutes
Voila malgré déjà un post à se sujet.
Je ne suis toujours pas parvenu à faire la macro que je veux 
Cette  macro  fonctionne bien pour seulement une destination, cependant j&#8217;ai un bouton formulaire dans mon classeur auquel est rattachée cette macro
Donc dans l&#8217;ordre quand j&#8217;ouvre mon classeur j&#8217;ai un formulaire de saisie qui s&#8217;affiche dans lequel j&#8217;ai un Combobox1 qui renvoie le choix effectué sur la liste dans ma feuille 
La liste du combobox1 comporte 4 noms Christian, David, Denis, Stéphane, alors j&#8217;aimerais que quand Christian sélectionne son nom et fait des saisies dans le formulaire, au moment d&#8217;appuyer sur le bouton enregistrer sous l&#8217;action de la macro s&#8217;effectue avec le chemin 1, par contre si David est sélectionné la macro prend le chemin 2 qui correspond à ce nom etc&#8230;. malgré l&#8217;aide déjà reçu je n&#8217;arrive toujours pas à faire ma macro.
2eme question la ligne de commande en bas du code me permet de vérifier l&#8217;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éjà
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

cs_Le Pivert · Accepted Answer

Bonjour,
Pour enregistrer suivant personne c'est simple
mettre ce code dans le bouton d'enregistrement:

If ComboBox1.Value = "David" Then
 ActiveWorkbook.SaveAs Filename:= _
        chemin1, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
ElseIf ComboBox1.Value = "Denis" Then
 ActiveWorkbook.SaveAs Filename:= _
       chemin2, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
je te laisse faire le 2 autres


@+ Le Pivert

cs_Le Pivert · Answer

tu termines par End If bien entendu!


Le Pivert

centrino34 · Answer

Bonjour Pivert merci pour ton aide j'ai essayé de mettre ton code à la suite du mien et cela ne marche pas, j'ai essayé avant le mien toujours le même problème.
Comme tu le remarque j'ai du mal à l'intégrer à mon code
que dois-je faire ou comment faire, merci pour ton aide

cs_Le Pivert · Answer

Exemple pour un nom et un chemin

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")
Chemin1 = Chemin1 & Client & "" & Fichier
If ComboBox1.Value = "Christian" Then
 ActiveWorkbook.SaveAs Filename:= _
        chemin1, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

etc...
End Sub



@+Le Pivert

centrino34 · Answer

Merci beaucoup pour votre aide Pivert

centrino34 · Answer

Et oui Pivert encore moi je pensais avoir bien compris mais non il me renvoie toujours une erreur
Je suis désolé de ne pas comprendre ou cela ne fonctionne pas
merci d'avance

Sub test_save()
'
' 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"
Chemin2 = "C:\Users\GRANBY2\Images"
Chemin3 = "C:\Users\GRANBY2\Musique"
'2eme variable nom du dossier
Client = Range("E7")
' 3eme variable nom du fichier excel
Fichier = Range("E5")
Chemin1 = Chemin1 & Client & "" & Fichier

If ComboBox1.Value = "david" Then
 ActiveWorkbook.SaveAs Filename:= _
        Chemin1, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
        
ElseIf ComboBox1.Value = "denis" Then
 ActiveWorkbook.SaveAs Filename:= _
       Chemin2, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
        
ElseIf ComboBox1.Value = "christian" Then
 ActiveWorkbook.SaveAs Filename:= _
       Chemin2, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End If
End Sub

cs_Le Pivert · Answer

Je pense à une chose:
Fichier = Range("E5")
finit-il par .xls sinon il faut mettre:
Chemin1 = Chemin1 & Client & "" & Fichier & ".xls"

Dans l'exemple ci-dessus tu as mis 2 fois chemin2!!

cs_Le Pivert · Answer

Et puis tu n'as pas déclaré les chemins 2 et 3 ni leurs chemins!!!!
Dim Chemin1, Chemin2, Chemin3, Client, Fichier As String

Chemin2 = Chemin2 & Client & "" & Fichier & ".xls" 
Chemin3 = Chemin3 & Client & "" & Fichier & ".xls" 





Le Pivert

ucfoutu · Answer

Salut, Le Pivert,
Il a surtout défini Chemin1 complètement, mais n'a rien fait pour chemin2 et chemin3 
Et cette ligne ... me fait souffrir :
Dim Chemin1, Client, Fichier

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

centrino34 · Answer

Sub test_save()
'
' 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"
Chemin2 = "C:\Users\GRANBY2\Images"
Chemin3 = "C:\Users\GRANBY2\Musique"
'2eme variable nom du dossier
Client = Range("E7")
' 3eme variable nom du fichier excel
Fichier = Range("E5")
Chemin1 = Chemin1 & Client & "" & Fichier & ".xls"
Chemin2 = Chemin1 & Client & "" & Fichier & ".xls"
Chemin3 = Chemin1 & Client & "" & Fichier & ".xls"

If ComboBox1.Value = "david" Then
 ActiveWorkbook.SaveAs Filename:= _
        Chemin1, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
        
ElseIf ComboBox1.Value = "denis" Then
 ActiveWorkbook.SaveAs Filename:= _
       Chemin2, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
        
ElseIf ComboBox1.Value = "christian" Then
 ActiveWorkbook.SaveAs Filename:= _
       Chemin3, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End If
End Sub

Après quelque modification voila ce que j'ai 
cependant le message d'erreur me renvoie toujours à la ligne (If ComboBox1.Value = "david" Then)
merci

centrino34 · Answer

Merci messieurs j'ai donc déclaré tous les chemins mais me renvoie toujours la même erreur de débogage sur la ligne(If ComboBox1.Value = "david" Then)

ucfoutu · Answer

Quelle erreur ? (on la précise, sur ce forum technique !)
Une erreur sur cette ligne ne pourrait avoir que deux raisons possibles :
raison1 : tu n'as pas de combobox ainsi nommée
raison 2 : ton code est dans un module qui ne correspond pas à celui qui contient cette combo


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Il est vraiment regrettable que tu te contentes de dire "j'ai une erreur" !
Il nous faut deviner ?
Je vais interroger mon petit doigt ... attends .....
"Ah ? comment ? parle plus fort" 
"Ah ? tu crois qu'il aurait une erreur 424 ? et qu'il aurait mis ce code dans un module de macros alors que sa combo se trouve ailleurs ? Hein ... parle plus fort ...)
"Ah , il aurait alors du mettre, si sur feuil1, par exemple, Sheets(Feruil1).combobox1 ?".
Bon ... que penses-tu de mon petit doigt ? Il me parait plus précis que tu ne sais l'être, hein ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_Le Pivert · Answer

Dans mon dernier message je t'avais mis cela tu n'en as pas tenu compte.

Dim Chemin1, Chemin2, Chemin3, Client, Fichier As String 

Chemin2 = Chemin2 & Client & "" & Fichier & ".xls" 
Chemin3 = Chemin3 & Client & "" & Fichier & ".xls" 

Ensuite tes prénoms dans ta 1ère demande avaient une majuscule, dans ton code il n'y a pas de majuscule. Tous cela peut indiquer une erreur. il faudrait chercher par toi même. tu as tout les ingrédients!!!!!!!!!!!!

Le Pivert

centrino34 · Answer

Bonjour monsieur Ucfoutu veuillez m&#8217;excuser d&#8217;avoir simplement indiqué, comme vous l&#8217;avait si bien mentionné "j'ai une erreur"
Je tiens aussi par la même occasion à vous féliciter car effectivement je sais reconnaître une personne qui maitrise comme vous le sarcasme.
Malgré tous cela, je tiens à dire que je n&#8217;ais pas la change comme vous de maitriser aussi bien Excel et le langage VBA.
Grand néophyte en la matière, je cherche et adapte, parfois sur des forums je pose des questions suscitant l&#8217;aide de personne compétente 
Donc en ce qui vous concerne merci pour votre cérébralité ainsi qu&#8217;à celle de votre petit doigt

ucfoutu · Answer

C'est en fait :
Dim Chemin1 as string, Chemin2 as string, Chemin3 as string, Client as string, Fichier As String 

(sinon, seul Fichier est typé en string. C'est ainsi que fonctionne VB).
Quant l'autre erreur : elle est plus grave, car de compréhension des fondements mêmes.
Et ce n'est pas la première fois ! Pour preuve :
Tapez le texte de l'url ici.
où il lui avait bien été précisé cette nécessité de dire où se troouve le contrôle, lorsqu'on s'en sert depuis un autrre module :
Pour mémoire :
la notion de contenir n'est peut etre pas exacte,
c'est juste pour comprendre le fonctionnement.
Code Visual Basic :
Sheets("NomOnglet").MonImage.Picture 
= LoadPicture(CheminDeImage & FichierName & ".jpg")

Mais ce qui m'irrite le plus reste de loin cette habitude de se contenter de dire "j'ai une erreur" sans même prendre la peine de la préciser ! Cer n'est pas sérieux ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et je viens de lire ton dernier message, centrino !
Et toujours pas de précision en ce qui concerne l'erreur.
Alors : "sarcasme", dis-tu ? ===>>> non ===>> limite dans la tolérance, car il y a abus !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

centrino34 · Answer

donc pour satisfaire à ta demande voila 
A l'ouverture de mon classeur mon UserForm1 s'ouvre avec dans celui-ci ma comBobox1 qui me permet de faire le choix du prénom par la suite le choix du prénom effectué il me renvoie le valeur sur la feuille 

Private Sub ComboBox1_Change()
Feuil2.Range("E6") = UserForm1.ComboBox1
End Sub

Sur la feuille 2 j'ai un bouton save as que j'ai relié à un module dans lequel j'ai le code (Sub Test save())
Donc oui j'ai bien une erreur 424, donc j'ai essayé la raison 2 que tu m'a donné placer le code dans la combobox1 mais toujours rien.
Donc ma combobox1 me permet de faire le choix ensuite le nom inscrit en E6 sur feuille2
je clic sur mon bouton save as et toujours erreur 424
voila

ucfoutu · Answer

Et voilà que nous apprenons (enfin) :*
- que ta combo se trouve sur ton UserForm UserForm1
- que l'erreur est bien (mon petit doigt n'est donc pas un imbécile) que l'erreur est l'erreur 424 "objet requis". Bravo !  
Et alors, dans le code donné (forcément en aveugle, grâce à tes "précisions") par LePivert :
tu dois te référer à :
UserForm1.combobox1 et non simplement à Combobox1,si (comme je le pense, mais que tu ne l'as toujours pas précisé), ta macro est dans un module distinct de celui de ton Userform.
OK ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

A Le Pivert ==>>
Désolé d'avoi eu à intervenir.
Je tiens à te dire que ton code est juste et justifié et que rien ne te permettait d'y voir plus clair. Tu n'es en rien responsable de cette perte de temps.
Je te laisse maintenant continuer. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

centrino34 · Answer

Merci à Ucfoutu et le Pivert pour votre aide

Enregistrer avec plusieurs destination selon valeur

21 réponses

Votre réponse

Discussions similaires