XL pour MAC AIDE erreurs VBA MAC-Excel (2019)

nobodyuse · 31 Janvier 2021

Bonjour à toutes et tous

je suis totalement novice dans excel et encore plus en VBA, je vais donc essayer d'expliquer au mieux mon soucis

Alors voila j'ai créer un bon de commande d'articles pour les agents dont j'ai la charge
la macro que j'ai assemblé au mieux de petit morceaux chopés à droit à gauche et lancé depuis un bouton sur mon fichier elle permet de:
- Copier le bon de commande initial
- renommer le bon de commande initial sous la forme "bon de commande" avec le nom de l'agent pris dans la cellule C4 (afin de le garder en sauvegarde)
- un nouveau bon de commande est généré à partir de la copie et les données saisi y sont effacés
- et un PDF du fichier initial est créer afin de pouvoir être imprimé

Sur la version initiale du fichier cela fonctionne comme il faut
mais des que j'ai remplie à partir de la copie j'ai droit a une erreur 400 juste après l'affichage de "InputBox" pour choisir le nom de la prochaine feuille

vu mes connaissances mon code doit être totalement foireux et lors de la reproduction ça doit merder quelques part mais je sèche complétement la :/

j’espère avoir été suffisamment clair dans mes explications je vous met le code et le fichier
et m'excuse par avance si ça pique les yeux

Merci d'avance

VB:

Sub dupliquerSavePDF()

'partie copie du fichier'
    Dim numFacture As String                ' Création d'une nouvelle variable de type string (= chaîne de caractères) afin d'y stocker des caractères alphanumériques
    nameBdC = InputBox("Nommez le nouveau Bon de commande", Title:="Nommez le nouveau bon de Commande Vierge", Default:="Bon de Commande ") ' Présentation d'une zone de saisie pour demander le numéro du bon de commande à l'utilisateur
ActiveSheet.Name = "Bon de commande " & Range("C4")
Sheets("Bon de commande " & Range("C4")).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = nameBdC           ' Assignation du nom de la feuille

'partie effacement des données nommé Saisi de la nouvelle feuille'
For Each cell In ActiveSheet.Range("Saisi")
cell.MergeArea.ClearContents
Next cell

'generation du PDF'
Dim Chemin As String
Dim texte As String

With ThisWorkbook
    Chemin = .Path & Application.PathSeparator
        With .Sheets("Bon de commande " & Range("C4"))
        titre = "Bon de commande " & Range("C4") 'Nom du fichier avec le nom de l'agent pour creation du fichier
        fichier = "Le Bon de commande de " & Range("C4") & ".pdf" 'Nom du fichier avec le nom de l'agent et extension pour messagebox
            Application.DisplayAlerts = False
            .ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=Chemin & titre & ".pdf", _
            Quality:=xlQualityMinimum, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        End With
End With
    MsgBox fichier & (" a été sauvegardé dans le dossier.")

End Sub

job75 · 2 Février 2021

Les listes et les MFC ne tiennent pas la route mais ce n'est pas le sujet de cette discussion.

nobodyuse · 3 Février 2021

OK
En tous cas encore merci et bravo job75 je clos le sujet MERCI

nobodyuse · 6 Février 2021

BonjourJob75

je me permet de revenir vers toi
j'ai je pense réglé tous mes soucis et adapté de la manière qui me conviens le mieux et tout cela grace a toi

encore merci !
j'enregistre la nouvelle feuille dans le même classeur pour sauvegarde car je ferais un classeur par Année et n'ai pas beaucoup d'agents a gérer donc cela ne ferra pas de trop gros fichiers

du coup je me heurte a un petit soucis si par cas j'ai un meme agents qui fait 2 commande la même année ce qui est possible comme ca génère un feuille nommé BC " & Range("D4") j'ai du coup une erreur qui monte puisque le nom existe déjà

serais t'il possible de faire un test de vérification si la feuille existe déjà,
si la feuille n'existe pas elle s'enregistre de manière normal
si la feuille existe deja avoir par exemple une InputBox me proposant de choisir un nouveau nom a la nouvelle feuille

pour rappel voici la code tu verra que c'est ton code qui a été utilisé
j'ai passé 2 jours complet a tester des codes trouvé a droite a gauche mais je ne trouve jamais la bonne solution

d'avance Merci pour ton aide

VB:

With Sheets("BC") 'avec feuille BC
    .Visible = xlSheetVisible 'au cas où...
    If Trim(.[D4]) = "" Then MsgBox "Nom et prénom doivent être renseignés": Application.Goto .[D4]: Exit Sub
        derlig = .Cells.Find("TOTAL*", , xlValues).Row - 1
    If derlig < 9 Or Application.CountA(.Range("D9:D" & derlig)) = 0 Then _
        MsgBox "Il faut au moins un article !", 48: Application.Goto .[D9]: Exit Sub
    For i = 9 To derlig
        If .Cells(i, 4) <> "" Then
            If LCase(.Cells(i, 5)) = "taille unique" Then .Cells(i, 7) = " " 'pour que la cellule ne soit pas vide
            If Application.CountA(.Cells(i, 7).Resize(, 2)) < 2 Then _
                            MsgBox "Taille et quantité doivent être renseignées !", 48: _
                    Application.Goto .Cells(i, 6).Resize(, 3).Find("", , xlValues): Exit Sub

        Else
            .Cells(i, 7).Resize(, 2) = ""
        End If
    Next
      If Not IsDate(.[D6]) Then .[D6] = Date
    Nom = ThisWorkbook.Path & Application.PathSeparator & "Bon de Commande " & Trim(.[D4]) & Format(.[D6], " DD-MM-YY")
'---fichier PDF---
    .ExportAsFixedFormat xlTypePDF, Nom
    '---Nouvelle feuille---
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ActiveSheet.Copy before:=Sheets(Sheets.Count) 'nouveau document
    ActiveSheet.Name = "BC " & Range("D4")   ' Assignation du nouveau nom à la feuille
    ActiveSheet.Protect Password:="XXXX", DrawingObjects:=True, Contents:=True, Scenarios:=True
    '---message---
    Application.ScreenUpdating = True
    MsgBox "Le Bon de commande de " & Range("D4") & ".pdf" & (" a été sauvegardé et Vérouillé dans le dossier.")


Call Archive(reponse)
  '---RAZ---
    .[D4] = ""
    derlig = .Cells.Find("Total*", , xlValues).Row - 1
    If derlig > 8 Then Union(.Range("D9:D23" & derlig), .Range("G9:H" & derlig)) = ""

Exit Sub

sortie1:
MsgBox "Merci de renseigner les champs obligatoires", vbCritical
Exit Sub

sortie2:
MsgBox "Le fichier est ouvert, veuillez le fermer", vbCritical
End With
End Sub

j'ai eut un debut de resultat en essayant de cette facon
mais ca ne semble pas marcher correctement
en cas de doublons ca me propose bien L'INPUTBOX
mais dans le cas contraire ca ne m'enregistre pas la feuille avec sous la forme BC " & Range("D4") mais me la crée en BC(2), BC(3) ...

Code:

    '---Nouvelle feuille---
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 ActiveSheet.Copy before:=Sheets(Sheets.Count) 'nouveau document

         '---TeST---
      On Error Resume Next
    Set f = Sheets("BC " & Range("D4"))
    If Err = 0 Then ActiveSheet.Name = "BC " & Range("D4")               ' Assignation du nom de la feuille
     '---FIN---
    FeuilleExiste = True
    nameBC = InputBox("Nommez le nouveau Bon de commande", Title:="Nommez le nouveau bon de Commande Vierge", Default:="Bon de Commande ") ' Présentation d'une zone de saisie pour demander le numéro du bon de commande à l'utilisateur
    ActiveSheet.Name = nameBC           ' Assignation du nom de la feuille en cas de doublons
    Set f = Nothing


Merci

d'avance Merci

job75 · 6 Février 2021

Bonjour nobodyuse,

Avec la solution que j'ai proposée il n'y a pas de problème puisque :

- l'archivage se fait dans des fichiers

- le nom est suivi de la date pour distinguer les bons de commande d'un même agent.

Je vous ai dit de ne pas archiver dans des feuilles et si vous le faites vous le ferez sans moi.

A+

nobodyuse · 6 Février 2021

job75 à dit:
Bonjour nobodyuse, le forum,

Pourquoi dommage ?

- cela alourdirait le fichier : avec 1000 onglets bons de commande le fichier pèserait plus de 4 Mo

- à chaque création il faut trier les onglets : avec 1000 onglets cela prend entre 7 et 14 secondes chez moi

- le nom d'un onglet ne peut dépasser 31 caractères : De la Rochefoucauld François 2021-02-01 ne va pas.

A+

d'accord Job75 mais j'ai tenu compte des vos remarques justement car je n'aurai jamais 1000 onglets puisque peu d'agents a gérer (env 20) et j'ai tenu compte aussi de l'histoire des Nom trop long qui aprés essai passent tous

je me débrouillerai sans vous dommage
Merci tout de même pour l'aide fournis précédemment

nobodyuse · 13 Mars 2021

Bonjour Job75

Je me permet de revenir vers vous
je suis revenu a l’état initial de la proposition que vous m'aviez faites car finalement on me demande de faire le suivi de plus d'agents donc votre solutions comme vous le saviez est bien plus propre et pérenne

Maintenant je me confronte a un autre soucis:

Il faudrait que je puisse faire des "stats" a partir du fichier suivi a savoir
réaliser un tableau a partir des données de suivi pour connaitre le nombre de produits commandé et pour chaque taille
en gros tel article en Taille L = X produits
Tel article en taille XL = X produits
....

je pense que vous voyez ce que je veux dire

pensez vous qu'il soit possible de le faire de maniere automatique a partir de la feuille suivi ?

Merci

job75 · 13 Mars 2021

Bonjour nobodyuse,

Il s'agit d'un nouveau problème alors créez une nouvelle discussion.

Pour terminer celle-ci je vois que la formule en Bon de commande!H24 ne convient pas.

Prenez ce fichier (4) qui utilise cette fonction VBA SP :

VB:

Function SP(plage1 As Range, plage2 As Range)
Dim i&
For i = 1 To plage1.Count
    If IsNumeric(plage1(i)) And IsNumeric(plage2(i)) Then SP = SP + plage1(i) * plage2(i)
Next
End Function

A+

nobodyuse · 13 Mars 2021

job75 à dit:
Bonjour nobodyuse,

Il s'agit d'un nouveau problème alors créez une nouvelle discussion.

Pour terminer celle-ci je vois que la formule en Bon de commande!H24 ne convient pas.

Prenez ce fichier (4) qui utilise cette fonction VBA SP :

VB:

Function SP(plage1 As Range, plage2 As Range) Dim i& For i = 1 To plage1.Count If IsNumeric(plage1(i)) And IsNumeric(plage2(i)) Then SP = SP + plage1(i) * plage2(i) Next End Function

A+

qu'est ce qui ne vas pas en H24 ??
c'est quoi le soucis que je comprenne

Oui en effet il s'agit d'un autre problème mais je suis revenu ici pour revenir vers vous qui connaissez le fichier
j'ai donc crée un nouvelle discution:

XL pour MAC - Creer des stats a partir d'une base de donné de suivi

Bonjour j'ai un fichier de bon de commande d'article et ce fichier généré un suivi (Merci JOB75) Me voila confronté a un nouveau problème du coup Il faudrait que je puisse faire des "stats" a partir du fichier suivi à savoir : réaliser un tableau a partir des données de suivi pour connaitre...

www.excel-downloads.com

Merci

job75 · 13 Mars 2021

nobodyuse à dit:
qu'est ce qui ne vas pas en H24 ??
c'est quoi le soucis que je comprenne

Avec les fichiers précédents la formule en H24 prenait seulement le produit de la ligne 9 => F9*H9.

nobodyuse · 13 Mars 2021

job75 à dit:
Avec les fichiers précédents la formule en H24 prenait seulement le produit de la ligne 9 => F9*H9.

Ok merci je prend

pour ma formule en H24 fait :
=SOMMEPROD(F9:F23;H9:H23)
qui n'avais pas l'air de produire de soucis

job75 · 13 Mars 2021

nobodyuse à dit:
=SOMMEPROD(F9:F23;H9:H23)
qui n'avais pas l'air de produire de soucis

Oui, c'est ma formule avec DECALER qui posait problème.

Effectuez une recherche sur Excel Downloads...

XL pour MAC AIDE erreurs VBA MAC-Excel (2019)

nobodyuse

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

nobodyuse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

nobodyuse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

nobodyuse

XLDnaute Occasionnel

XL pour MAC - Creer des stats a partir d'une base de donné de suivi

job75

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums