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

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

vgendron à dit:

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..

Cliquez pour agrandir...

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 ?

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)

vgendron à dit:

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)

Cliquez pour agrandir...

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"

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 à dit:

vgendron à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

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 ?

vgendron à dit:

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 ?

Cliquez pour agrandir...

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 !

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

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.?

vgendron à dit:

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.?

Cliquez pour agrandir...

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

essaie ceci