Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Choix repetoire en fonction

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sten83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

sten83

XLDnaute Occasionnel
Bonjour a tous j'ai une macro pour nergistrer des factures en pdf dans un fichier.
Ce que je souhaiterai c'est pouvoir enregistrer la feuille dans un repertoire different en fonction de l'intitulé (FACTURE ou DEVIS).
Je joint le bout de code.
Merci pour votre aide précieuse.

Private Sub CmdPrintFacture_Click()
If obFacture.Value Then
SaveSetting "AppDevisFacture", "Facture", "Dernier", NumDoc + 1
If obCB.Value Then
frmFacture.[A41].Value = "Réglement par CB"
ElseIf obCheque.Value Then
frmFacture.[A41].Value = "Réglement par Chèque"
Else
frmFacture.[A41].Value = "Réglement en espèces"
End If
Else
SaveSetting "AppDevisFacture", "Devis", "Dernier", NumDoc + 1
frmFacture.[A41].ClearContents
End If
frmFacture.[A1:H57].ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="c:\test\" & " " & Worksheets("FACTURE").Range("E2").Value & " " & "du" & " " & Format(Date, ("dd-mm-yy")), quality:= _
xlQualityStandard, includedocproperties:= _
False, ignoreprintareas:= _
True, openafterpublish:= _
True
frmFacture.Range("A19:E33,E2:E4,E5,F2,E3,F5,A41").Value = ""

Unload Me

End Sub
 
Trier par date Trier par votes
Re : Choix repetoire en fonction

Bonsoir à tous

sten83
Si tu as une macro, nous, ici dans ton fil, nous n'avons pas de fichier Excel joint...

Pourtant, cela serait bien utile pour avoir une base sur laquelle tester nos code VBA avant de te les soumettre, non ?
 
Vote positif 0 Vote négatif
Re : Choix repetoire en fonction

Re, Bonjour le forum

sten83
Voici ma proposition
(NB: Les répertoires FACTURE et DEVIS sont créés au préalable manuellement.
Test OK sur mon PC avec ton fichier exemple)
VB: 
Private Sub CmdPrintFacture_Click()
Dim Rep$, fName$
  If obFacture.Value Then
    SaveSetting "AppDevisFacture", "Facture", "Dernier", NumDoc + 1
    If obCB.Value Then
      frmFacture.[A41].Value = "Réglement par CB"
    ElseIf obCheque.Value Then
      frmFacture.[A41].Value = "Réglement par Chèque"
    Else
      frmFacture.[A41].Value = "Réglement en espèces"
    End If
  Else
   SaveSetting "AppDevisFacture", "Devis", "Dernier", NumDoc + 1
    frmFacture.[A41].ClearContents
  End If
    Rep = IIf(obFacture, "FACTURE", "DEVIS")
    Worksheets("FACTURE").Range("D8") = Rep
    fName = Worksheets("FACTURE").Range("E2").Value & Format(Date, """ du ""dd-mm-yy")
    frmFacture.[A1:H57].ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="c:\test\" & Rep & "\" & fName, quality:= _
    xlQualityStandard, includedocproperties:= _
    False, ignoreprintareas:= _
    True, openafterpublish:= _
    True
  frmFacture.Range("A19:E33,E2:E4,E5,F2,E3,F5,A41").Value = ""
Unload Me
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
615
francha62
F
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
788
piga25
V
  • Question Question
XL 2019 code vba
2
Réponses
17
Affichages
2 K
Staple1600
T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
752
Thomas_1
T
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
934
ccia
C
I
  • Question Question
XL 2016 Copier coller entre deux classeurs
Réponses
13
Affichages
1 K
INFINITY100
I
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
  • Question Question
XL 2019 Affichage d'un TextBox en fonction de la valeur d'un autre TextBox
Réponses
13
Affichages
969
AIXELS
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
O
  • Résolu(e)
XL 2016 Faire apparaitre un tableau en fonction d'un choix déroulant
Réponses
2
Affichages
629
onicow
O
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
Y
  • Question Question
XL 2013 Envoie de P-J sil existe par mail Macro VBA
Réponses
1
Affichages
783
kiki29
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
S
  • Résolu(e)
XL 2019 Nom du dernier modificateur d'une ligne en fonction d'une case remplie
Réponses
1
Affichages
772
Wayki
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
Z
  • Question Question
Microsoft 365 Supprimer un doublon en fonction d'une date et d'un numéro
Réponses
0
Affichages
545
Zifox
Z
V
  • Résolu(e)
XL 2016 Formater les dates
Réponses
9
Affichages
1 K
vanin
V
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
2 K
melinavy
M
R
  • Résolu(e)
XL 2016 Erreur type 13 - calcul variable en fonction de trois autres
Réponses
6
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…