Modification d'une VBA pour obtention d'un fichier .csv avec 3 lignes

Question

Dans notre environnement de travail, nous utilisons un tableau Excel avec des macros. La personne qui était calée en VBA a quitté l'entreprise. Je souhaite améliorer le tableur. Il est déjà en forme, mais comment modifier VBA pour prendre en compte mes changements, je ne sais pas trop. Je vous partage les captures d'écran de ce qui est existant aujourd'hui, et ce que j'ai modifié ainsi que la VBA actuelle et celle que j'ai changée. Je ne viens pas ici pour obtenir quelque chose de tout de la part de cerveau en VBA, mais je souhaiterai également acquérir un peu d'expérience sur ce sujet. J'ai consulté les cours mais y a plein de choses dans la macro actuelle qui ne sont pas abordées. Sur la macro, il y a un ordre à respecter sur la position des données. La macro doit reposer sur la présence ou non de données en cellule K6/K7/K8. Si y a quelques choses en K8 (sous entendu y a déjà des données en K6 e K7), il faut qu'en A1 à l'extraction, y est telles types de données, en A2, pareil et en A3 pareil. En suivant la position des données dans chacune des trois lignes. Si pas de données en K8 mais en K6 et K7, alors extraction en A1 et A2. Et si seulement en K6, alors compiler des données en A1 uniquement. J'ai vu des fonctions avec If (not) IsEmpty, avec une condition And. Fichier excel actuel : Fichier excel futur : VBA actuelle : Sub creer_logisticoms() Dim codeNDP, Client_Exp, Code_dest, Factur, Camion, Dossier, Code_Exp, chemin, nom_fichier_logisticom, code_ENT As String Dim Colis, PoidsBrut, PoidsNet, Valeur Dim ladate, Datefacture As Date Dim mafeuille As Worksheet chemin = "J:\Flux_Douane\" 'indication du répertoire temporaire de dépose des fichiers logisticoms, ici en prod Set mafeuille = ActiveSheet ThisWorkbook.Sheets("Extrac").Activate Cells.Select Selection.ClearContents lig = ThisWorkbook.Sheets("Extrac").Range("A1").CurrentRegion.Rows.Count mafeuille.Activate If Range("F26") = "1 Exped. / 1 Fact." Then code_ENT = "DJ" Else code_ENT = "PS" 'modifier. Peu importe, ca sera du DJ For Each c In ActiveSheet.Range("A6:A25").Cells 'ici que A6 If c.Value &lt;&gt; "" Then Client_Exp = c.Value Colis = c.Offset(0, 1).Value PoidsBrut = c.Offset(0, 2).Value PoidsNet = c.Offset(0, 3).Value Valeur = c.Offset(0, 4).Value Facture = c.Offset(0, 5).Value Datefacture = c.Offset(0, 6).Value Code_Exp = c.Offset(0, 7).Value Code_dest = Range("D1").Value codeNDP = Range("G3").Value Camion = Range("B30").Value Dossier = Range("B32").Value SITECODE = Range("F2").Value If Dossier = "" Then Dossier = Camion ladate = Range("B28").Value If ladate = 0 Then ladate = Range("F28").Value If Code_Exp = "" Then MsgBox ("Pas de code exportateur créé pour " & Client_Exp & " - Arrêt de la procédure") Exit Sub End If If Camion = "" And Dossier = "" Then MsgBox ("Une référence dossier est obligatoire si pas de n° de Camion - Arrêt de la procédure") Exit Sub End If If Code_dest = "" Then MsgBox ("Aucun Destinataire indiqué - Arrêt de la procédure") Exit Sub End If If codeNDP = "" Then MsgBox ("Code NDP obligatoire pour les logisticoms - Arrêt de la procédure") Exit Sub End If ' copie des infos sur la feuille extrac If Camion = "" Then Camion = "GROUPAGE" ThisWorkbook.Sheets("Extrac").Range("A" & lig).Value = Facture ThisWorkbook.Sheets("Extrac").Range("B" & lig).Value = Dossier ThisWorkbook.Sheets("Extrac").Range("C" & lig).Value = CStr(ladate) ThisWorkbook.Sheets("Extrac").Range("D" & lig).Value = Camion ThisWorkbook.Sheets("Extrac").Range("E" & lig).Value = Code_dest ThisWorkbook.Sheets("Extrac").Range("F" & lig).Value = Code_Exp ThisWorkbook.Sheets("Extrac").Range("G" & lig).Value = Colis ThisWorkbook.Sheets("Extrac").Range("H" & lig).Value = PoidsBrut ThisWorkbook.Sheets("Extrac").Range("I" & lig).Value = PoidsNet ThisWorkbook.Sheets("Extrac").Range("J" & lig).Value = Valeur ThisWorkbook.Sheets("Extrac").Range("K" & lig).Value = codeNDP ThisWorkbook.Sheets("Extrac").Range("L" & lig).Value = CStr(Datefacture) ThisWorkbook.Sheets("Extrac").Range("M" & lig).Value = code_ENT ThisWorkbook.Sheets("Extrac").Range("N" & lig).Value = SITECODE lig = lig + 1 End If Next ThisWorkbook.Sheets("Extrac").Activate ActiveSheet.Range("A1").CurrentRegion.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False nom_fichier_logisticom = Dossier & ".csv" ActiveWorkbook.SaveAs Filename:=chemin & nom_fichier_logisticom, _ FileFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False ThisWorkbook.Sheets("Extrac").Activate Cells.Select Selection.ClearContents Range("A1").Select mafeuille.Activate MsgBox ("Fichier des Logisticoms du dossier " & Dossier & " créé dans le répertoire d'importation serveur - Impression de la feuille X2") impression End Sub Mes modifications ci-dessous...

Optimix · Answer

Sans le fichier que vous a laissé votre prédécesseur en état de fonctionner, je ne vois pas comment on pourrait vous aider.
Pour commencer, je suis assez étonné que la macro "creer_logisticoms()" commence par détruire tout ce que contient l'onglet "Extrac". C'est ce que signifie le code

ThisWorkbook.Sheets("Extrac").Activate
Cells.Select
Selection.ClearContents

pour demander juste après combien de lignes sont occupées.

lig = ThisWorkbook.Sheets("Extrac").Range("A1").CurrentRegion.Rows.Count

Optimix · Answer

Le fichier que vous avez mis en ligne n'est pas celui que votre prédécesseur a laissé derrière lui. Le nom de l'onglet "ANCIENNE VERSION" était différent.
Avez-vous une sauvegarde de ce fichier avant que vous ne cherchiez à l'améliorer ?

Optimix · Answer

Je confirme que l'onglet Extrac est un onglet temporaire. On peut s'en passer, car il est possible de créer directement le fichier CSV sans avoir recours à un copier-coller ultra-laborieux.
1) Dans la nouvelle version, j'aurais besoin que vous complétiez ou confirmiez la place exacte des champs à mettre dans le fichier csv.
- N° Facture : J2 ?
- Dossier : B12 ?
- Date de départ : L2 ou C13 si L2 est vide ?
- Camion : B11
- Code destinataire : D2
- Code expéditeur : B12 ?
- Colis : B9
- Poids Brut : C9
- Poids Net : D9
- Valeur : E9
- Code NDP : ?
- Date facture : L12
- Code ENT : toujours DJ ?
- SITECODE : F2

2) Je suppose que la cellules B2 n'est pas utile dans le fichier CSV.

3) Enfin, j'ai cru comprendre que la procédure creer_logiticoms () avait été écrite par votre prédécesseur et que creer_logiticoms_vd () était de vous. Vous confirmez ?

Optimix · Answer

Une réponse aux questions que je vous avais posées m'aurait permis de comprendre que vous souhaitiez changer le format (les champs) du fichier CSV en question.

Je n'ai pas encore implémenté la fonction de sauvegarde au format CSV pour être sûr du contenu de l'onglet "Extrac". Testez la macro ci-dessous et dites-moi si le contenu est celui attendu. Ne vous occupez pas de la barre des titres, elle ne sert que pour la phase de développement.