Facturier automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 11:29

Bonjour à tous,

Je suis nouveau sur le forum et débutant en VBA.
J'ai besoin de votre aide car je suis bloqué dans ma macro alors que j'allais toucher au but.

Voici ce que j'aimerais réaliser :
- Une boucle qui commencerait par copier la cellule A2 de la feuille "informations" et coller la valeur texte dans la cellule C18 de la feuille "Facture" => je n'arrive pas à effectuer cette très simple opération :-/
- Puis lancer la macro "condition" que j'ai créé et qui marche =)
-En fonction du résultat cela génère un export d'une facture dans un dossier prédéfinie =>ça aussi j'ai réussi à le faire =)
- Et ensuite quoiqu'il arrive je souhaite "descendre d'une ligne" et copier la cellule A3 de la feuille "informations" dans la cellule C18

Et cette boucle jusqu’à la dernière ligne de la colonne A3 de la feuille "Informations"

Alors que j'ai réussi à faire il me semble les deux macros les plus compliquées "conditions" et "export" (après des heures de recherche et de test ^^) je suis bloqué au début de ma boucle

Pouvez-vous m'aider à avancer ? Je ne demande pas forcément toute la macro d'un coup car j'aimerais comprendre =)
(je joins le fichier en PJ)

Je vous remercie d'avance pour votre temps

Et très bon dimanche à vous

Adrien
Facture - v5.xlsm
(32.16 Kio) Téléchargé 45 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2016, 11:48

Bonjour,

Une façon de faire pour ce qui concerne ta boucle :
Sub Macro1()
    Dim i%, n%
    With Worksheets("Informations")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            Worksheets("Facture").Range("C18").Value = .Cells(i, 1).Value
            
            'Suite code
            
        Next i
    End With
End Sub
Bonne continuation.
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 12:06

Bonjour M. Ferrand

C'est parfait ! Merci beaucoup

Bonne journée
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 15:13

Re-bonjour

Je reviens vous demander de l'aide un autre blocage =)

Je viens d'intégrer un numéro de facture que je souhaite incrémenter.
La macro est faite => module 1 dans le fichier

Parcontre quand je souhaite rajouter le numéro de la facture quand j'enregistre le PDF mais j'ai une erreur, je pense que c'est dnas le format qui est pour l'instant en texte.
Sub Export_1()

'export facture pdf

info1 = Sheets("Facture").Range("B11")
info2 = Sheets("Facture").Range("E11")
info3 = Sheets("Facture").Range("B12")
info4 = Sheets("Facture").Range("C18")
    Texte = info1 & "-" & info2 & "-" & info3 & "-" & info4 & ".xls"
    Application.DisplayAlerts = False
 ChDir "C:\Users\Adrien\Desktop\Maman\Factures"
    ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=[color=#FF4000]Texte, _[/color]
    Quality:=x1QualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub
Par quoi je dois le remplacer ?

Mon autre blocage est que je souhaite avoir un compteur de facture pour chaque client ( colonne Q feuille Informations)
Un client peut très bien ne pas avoir de facture pendant 1 ou 2 mois..

Dans mes précédentes macro j'ai fait un sorte d'exporter un PDF seulement si le client a besoin d'une facture ( total > 0)

Est-ce que auriez une solution ? Comment dois-je intégrer cette macro dans ma boucle ?

Merci d'avance =)
Facture - v6.xlsm
(36.62 Kio) Téléchargé 20 fois
Facture - v6.xlsm
(36.62 Kio) Téléchargé 31 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2016, 16:33

Bonsoir,
Texte = info1 & "-" & info2 & "-" & info3 & "-" & info4
(...)
ActiveSheet.ExportAsFixedFormat xlTypePDF, Texte & ".pdf"
Cordialement.
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 16:48

Bonsoir,

J'ai essayé comme cela mais cela ne marche pas, j'ai surement mal compris votre solution.
Sub Export_1()

'export facture pdf

info1 = Sheets("Facture").Range("B11")
info2 = Sheets("Facture").Range("E11")
info3 = Sheets("Facture").Range("B12")
info4 = Sheets("Facture").Range("C18")
    Texte = info1 & "-" & info2 & "-" & info3 & "-" & info4
    Application.DisplayAlerts = False
 ChDir "C:\Users\Adrien\Desktop\Maman\Factures"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, Texte & ".pdf", _
    Filename:=Texte, _
    Quality:=x1QualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub
Merci
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2016, 16:52

Re,

ActiveSheet.ExportAsFixedFormat xlTypePDF, Texte & ".pdf"

C'était la dernière ligne, tu supprimes tout ce qui suit (sauf End Sub, cela va de soi !)
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 17:05

Re,

De cette façon ? J'ai toujours un message d'erreur :-/

Sub Export_1()

'export facture pdf

info1 = Sheets("Facture").Range("B11")
info2 = Sheets("Facture").Range("E11")
info3 = Sheets("Facture").Range("B12")
info4 = Sheets("Facture").Range("C18")
    Texte = info1 & "-" & info2 & "-" & info3 & "-" & info4 & ".xls"
    Application.DisplayAlerts = False
 ChDir "C:\Users\Adrien\Desktop\Maman\Factures"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, Texte & ".pdf"
    
End Sub
Merci
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2016, 17:55

Quel message ?
A
Adrien67
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 7 février 2016
Version d'Excel : Excel 2016

Message par Adrien67 » 7 février 2016, 18:01

Celui la :

Erreur exécution 1004

Document non enregistré etc

et dans le débogage il me surligne la ligne

ActiveSheet.ExportAsFixedFormat xlTypePDF, Texte & ".pdf"
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Facturier automatique/ calendrier
    par D17 » 22 novembre 2016, 11:18 » dans Excel - VBA
    2 Réponses
    190 Vues
    Dernier message par D17
    25 novembre 2016, 17:11
  • Confection d'un facturier automatique
    par Fat » 19 janvier 2017, 19:03 » dans Excel - VBA
    3 Réponses
    345 Vues
    Dernier message par grisan29
    21 janvier 2017, 12:41
  • FACTURIER
    par CLUBLM » 10 octobre 2013, 13:19 » dans Excel - VBA
    1 Réponses
    636 Vues
    Dernier message par CLUBLM
    10 octobre 2013, 15:44
  • Facturier
    par toto222 » 21 août 2018, 18:35 » dans Excel - VBA
    6 Réponses
    224 Vues
    Dernier message par toto222
    22 août 2018, 17:11
  • Aide facturier
    par Dim59 » 15 décembre 2013, 15:58 » dans Excel - VBA
    3 Réponses
    529 Vues
    Dernier message par Dim59
    16 décembre 2013, 21:01
  • Création Facturier
    par JeanJean » 15 août 2014, 18:49 » dans Excel - VBA
    8 Réponses
    648 Vues
    Dernier message par jmd
    16 août 2014, 19:06