Microsoft 365 VBA creation d'un export vers un fichier CSV

[looky62]

Bonjour,
Je souhaite créer un fichier csv, à la base d'un copier coller d' un onglet, CAD

Dans un onglet résultat, exporter colonne de B:G l'export vers un fichier qui se créer seul, ici j'ai XXX.csv, mais j'aimerai que le fichier se génére seul, sans avoir avoir mettre un fichier vierge est ce possible?


Sheets("Résultat").Select
Columns("B:G").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Users\" & NNI & "\Downloads\MAJ EPI\XXX.csv"
Windows("XXX.csv").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
Sheets("Feuil1").Select
ThisWorkbook.FollowHyperlink "C:\Users\" & NNI & "\Downloads\MAJ EPI"
'Windows("RapidEpi.xlsm").Activate
' Sheets("TDB").Select

 

[vgendron]

Bonjour

le nom du fichier.. Excel ne peut pas l'inventer.. il faut bien lui dire quel nom utiliser..
la question est donc;. où faut il aller chercher le nom du fichier..

 

[looky62]

Ah ok

Bonjour

le nom du fichier.. Excel ne peut pas l'inventer.. il faut bien lui dire quel nom utiliser..
la question est donc;. où faut il aller chercher le nom du fichier..

Ah ok, on ne peut lui dire donc de créer un fichier Export par exemple, il faut tjrs qu'il aille le chercher qq part ?

 

[vgendron]

euh.. si. tu peux lui dire
1) soit avec une boite de dialogue: celle du "Enregistrer sous"
2) soit dans le code "en dur"
3) soit en disant à la macro d'aller chercher le nom de sauvegarde dans une cellule par exemple.

en fait. je ne comprend pas trop ton pb..

à vrai dire;. comme tu n'as pas mis de fichier exemple, je n'ai pas vraiment regardé ton code
ce que je viens de faire.
du coup. à la place du activeworkbook.save.
il faut peut etre utiliser du saveas (l'enregistreur de macro devrait t'aider)

 

[looky62]

euh.. si. tu peux lui dire
1) soit avec une boite de dialogue: celle du "Enregistrer sous"
2) soit dans le code "en dur"
3) soit en disant à la macro d'aller chercher le nom de sauvegarde dans une cellule par exemple.

en fait. je ne comprend pas trop ton pb..

à vrai dire;. comme tu n'as pas mis de fichier exemple, je n'ai pas vraiment regardé ton code
ce que je viens de faire.
du coup. à la place du activeworkbook.save.
il faut peut etre utiliser du saveas (l'enregistreur de macro devrait t'aider)

Oui pr moi ça serait un code en dur, avec par un exemple un fichier que Excel créerai du fait je ne sais pas trop a part le mettre , je ne sais pas comment faire

"C:\Users\" & NNI & "\Downloads\MAJ EPI\Fichier a creer.csv"

 

[vgendron]

l'enregistreur de macro me donne ca
ActiveWorkbook.SaveAs Filename:="C:\Users\" & NNI & "\Downloads\MAJ EPI\Fichier a creer.csv", FileFormat:=xlCSV, CreateBackup:=False

 

[looky62]

l'enregistreur de macro me donne ca
ActiveWorkbook.SaveAs Filename:="C:\Users\" & NNI & "\Downloads\MAJ EPI\Fichier a creer.csv", FileFormat:=xlCSV, CreateBackup:=False

Il me créer un debogage! en gras je ne comprends pas trop d'ou vient le pb

Sheets("Résultat").Select
Columns("B:G").Select
Selection.Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\" & NNI & "\Downloads\MAJ EPI\Fichier a creer.csv"
FileFormat = xlCSV
CreateBackup = False

 

[vgendron]

dans ton code
NNI est une variable ==> Que contient elle?: un nom de répertoire?
le répertoire de sauvegarde: "C:\Users\" & NNI & "\Downloads\MAJ EPI\
existe t il ?

 

[looky62]

dans ton code
NNI est une variable ==> Que contient elle?: un nom de répertoire?
le répertoire de sauvegarde: "C:\Users\" & NNI & "\Downloads\MAJ EPI\
existe t il ?

Oui ma variable est crée,

Private Sub Workbook_Open()
NNI = InputBox("Veuillez entrer votre NNI : ")
End Sub

le dossier est crée pr recevoir mon fichier! pourtant !

 

[looky62]

Sur un autre pb, où vous m'aviez bien aidez, j'ai un nv cas de figure où je n'arrive pas a résoudre,

Les 2 cas fonctionnent correctement, j'ai un troisiéme cas où dans onglet a modifier, il ne retrouve aucune référence a ma source, où j'aimerai les isoler ds un nouveau onglet par exemple "Nouveau" comment puis je faire?


Sub PremierCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
TabSource = .Range("A1").CurrentRegion.Value
End With
For i = LBound(TabModif, 1) + 1 To UBound(TabModif, 1)
For J = LBound(TabSource, 1) + 1 To UBound(TabSource, 1)
If TabSource(J, 1) = TabModif(i, 1) Then
TabSource(J, 7) = "O"
End If
Next J
Next i
Sheets("Résultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub



Sub DeuxièmeCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
TabSource = .Range("A1").CurrentRegion.Value
End With
For J = LBound(TabSource, 1) + 1 To UBound(TabSource, 1) 'on met tout à N
TabSource(J, 7) = "N"
Next J
For i = LBound(TabModif, 1) + 1 To UBound(TabModif, 1) 'on ne remet à O que les codes à modifier
For J = LBound(TabSource, 1) + 1 To UBound(TabSource, 1)
If TabSource(J, 1) = TabModif(i, 1) Then
7 TabSource(J, 7) = "O"
End If
Next J
Next i
Sheets("Résultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub

 

[vgendron]

Evite de mélanger les sujets dans le même post
pour l'ancien sujet avec un troisième cas, fais juste un up du post initial

pour le sujet de CE post, je ne vois pas trop ce qui cloche. peut etre qu'avec ton fichier exemple.?

 

[looky62]

Evite de mélanger les sujets dans le même post
pour l'ancien sujet avec un troisième cas, fais juste un up du post initial

pour le sujet de CE post, je ne vois pas trop ce qui cloche. peut etre qu'avec ton fichier exemple.?

Ci joint mon fichier , je vais refaire un post av mon cas !

 

[vgendron]

essaie ceci

Sub Macro3()

    Sheets("Resultat").Copy 'on copie TOUT l'onglet
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & NNI & "\Downloads\MAJ EPI\Fichier a creer.csv", FileFormat:=xlCSV, CreateBackup:=False 'on le sauvegarde dans un autre fichier enregistré au format csv
    
    Windows("Fichier a creer.csv").Activate 'on passe sur le fichier enregistré (normalement, il est déjà actif)
    Range("A:A").Delete 'on supprime la colonne A

End Sub