Discussion :

[sorbetframboise]

Bonjour à tous,

J'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 'date du jour dans la cellule AK8
    Range("AK8").Value = Format(Date, "dd mmmm yyyy")
 
    'permet la creation du fichier txt
Open "C:\Users\GAE\Desktop\Test\Test.txt" For Output As #1
 
    For I = 1 To 10000
        Concaténation = Cells(I, 1)
        For j = 1 To 34
            Concaténation = Concaténation & ";" & Cells(I, j)
        Next j
        Print #1, Concaténation
    Next I
Name "C:\Users\GAE\Desktop\Test\Test.txt" As "C:\Users\GAE\Desktop\Test" & Range("AK8").Value & ".txt"
Close #1

Je ne comprends pas pourquoi cette ligne ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "C:\Users\GAE\Desktop\Test\Test.txt" As "C:\Users\GAE\Desktop\Test" & Range("AK8").Value & ".txt"

J'ai un code erreur 55 fichier déjà ouvert

Le but de ce code est d'ouvrir le fichier test vide le remplir le renommer avec la date du jour et l'enregistrer au même endroit.
Il faut que le fichier Test vierge reste et que ce soit une copie qui s'enregistre

J'ai également essayé avec une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function NomSansExtension(ByVal NomDoc As String) As String
 
 
    NomSansExtension = Format(Date, "jjmmyyyy")
 
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Dim CheminCompletExport As String
 
 Open "C:\Users\GAE\Desktop\Test\Test.txt" For Output As #1
 
    For I = 1 To 10000
        Concaténation = Cells(I, 1)
        For j = 1 To 34
            Concaténation = Concaténation & ";" & Cells(I, j)
        Next j
        Print #1, Concaténation
    Next I
     With ActiveDocument
 
 
          CheminCompletExport = "C:\Users\GAE\Desktop\Test" & NomSansExtension(.Name) & ".txt"
 
 
    End With
 
 
 
End Sub

Dans ce cas l'erreur est sur le (.Name)

Merci pour votre aide.

[tototiti2008]

Bonjour,

Name déplace un fichier non ouvert, sinon plantage

essaye de modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Name "C:\Users\GAE\Desktop\Test\Test.txt" As "C:\Users\GAE\Desktop\Test" & Range("AK8").Value & ".txt"
Close #1

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Close #1
Name "C:\Users\GAE\Desktop\Test\Test.txt" As "C:\Users\GAE\Desktop\Test" & Range("AK8").Value & ".txt"

[Raccourcix]

Il est possible de mettre la date directement dans le nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Open "C:\Users\GAE\Desktop\Test" & Range("AK8").Value & ".txt" For Output As #1
 ...

Stéphane

[sorbetframboise]

ToTotiti2008
Cela fonctionne (en partie)

Effectivement je n'ai plus le problème mais cela à supprimé le fichier Test et rien ne l'a remplacé sur le dossier.
Mais si je relance la fonction alors il me dit qu'un fichier avec ce nom existe déjà.

[sorbetframboise]

Raccourcix
le fichier ne s'enregistre nul part il est possible d'ouvrir un fichier qui n'existe pas ?

[Raccourcix]

Raccourcix
le fichier ne s'enregistre nul part il est possible d'ouvrir un fichier qui n'existe pas ?

Je dirai, heureusement

Voir
https://docs.microsoft.com/fr-fr/off...open-statement
"Si le fichier spécifié par pathname n'existe pas, il est créé à l'ouverture d'un fichier pour le mode Append, Binary, Output ou Random."

Stéphane

[sorbetframboise]

tototiti2008
Effectivement le dossier s'enregistre sur le bureau j'ai fait une petite erreur d'inattention.

Mais du coup si l'utilisateur lance la macro 2 fois dans la même journée le second ne peux pas s'enregistrer car il existe un document du même nom, il ne crée pas automatiquement un date du jour (02)

Raccourcix
Ta solution fonctionne merci pour le tuyau mais si l'utilisateur lance la macro 2 fois dans la même journée la seconde fois ça ne créer pas de fichier ça ouvre l'ancien j'ai donc une perte d'information.

Merci pour votre aide !

[tototiti2008]

En regardant ton code, le fichier déplacé se trouve sur ton bureau
Name déplace le fichier, pour le copier tu peux envisager FileCopy, par exemple

https://docs.microsoft.com/fr-fr/off...copy-statement