Discussion :

[guillaume74960]

Bonjour à tous !!

Alors voici mon problème, j'ai voulu me lancer dans le VBA (quel fou je sais !!!), des idées plein la tête !

Ce que je voudrais faire :
Avoir un bouton qui quand j’appuie dessus, cela insère dans un nouvel onglet un fichier txt, et (le plus dur) cela renomme ce fichier txt avec la date du jour.

Où j'en suis actuellement :
J'appuie sur le bouton j'ouvre le txt dans un nouveau classeur, j'arrive à renommer le txt avec la date, mais le souci c'est que mon classeur prend le nom du txt (demandez moi pas pk je sais pas ^^). Du coup je tourne en rond !!!

Est ce que quelqu'un pourrai m'aider ??
Merci d'avance

[mercatog]

On ne va pas te demander pourquoi mais on demandera surement à voir ton code

[gaet76]

Tu peux nous envoyer ton fichier stp?

A priori tu n'est pas loin du résultat, il ne te manque pas grand chose.

[guillaume74960]

Ah oui en effet j'avais zappé le code, donc le voici sauf que ça a évolué, en fait le rename ne marche pas quand j'ai importé le fichier car il considère qu'il est ouvert... bref ça me soule je pense ne pas être loin mais je tourne en rond.

(La partie du milieu est pour la mise en page)

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
Sub test()
 
 
  Workbooks.Open Filename:="C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt", Format:=4
  Rows(1).Insert
 
     Cells(1, 1) = "CR"
     Cells(1, 2) = "JOBNAME"
     Cells(1, 3) = "IADATE"
     Cells(1, 4) = "IATIME"
     Cells(1, 5) = "RESSOURCE"
 
 Name "C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt" As "C:\Documents\TEST\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
 
 
 End Sub

[Promethee25]

Bonjour,

En reprenant ton code, il faut simplement fermer le classeur avant de le renommer:

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
Sub test()
  Dim wb as Workbook
 
  Set wb = Workbooks.Open Filename:="C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt", Format:=4
  Rows(1).Insert
 
     Cells(1, 1) = "CR"
     Cells(1, 2) = "JOBNAME"
     Cells(1, 3) = "IADATE"
     Cells(1, 4) = "IATIME"
     Cells(1, 5) = "RESSOURCE"
 
  wb.Close SaveChanges:=True
  Name "C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt" As "C:\Documents\TEST\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
 
 
 End Sub

[guillaume74960]

D'abord merci bcp pour la réponse !!

Mais le code tel quel ne marche pas (j'ai une erreur).

[SfJ5Rpw8]

D'abord merci bcp pour la réponse !!

Mais le code tel quel ne marche pas (j'ai une erreur).

Bonjour,
La première chose a faire en cas d'erreur , c'est de lire le message associè...

[guillaume74960]

L'erreur c'est erreur de compilation, pb de syntaxe.

C'est sur le Filename que ça bloque je crois.

[Promethee25]

Désolé, mets les arguments entre parenthèses:

Code :

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

Set wb = Workbooks.Open(Filename:="C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt", Format:=4)

[guillaume74960]

Merci (à force de bidouiller j'avais fini par trouver par hasard ^^)

Mais (il y a toujours un mais j'ai l'impression )

Cela me met erreur d’exécution 53 fichier introuvable.

Le souci était aussi, que cela enregistre mon tableau dans le .txt de départ ce que je ne veux pas, je veux juste importer le .txt de départ et sauvegarder le tableau (le mieux serai quand même de l'ouvrir dans une nouvelle feuille mais c'est pas grave ça) sous un autre nom.

[Promethee25]

C'est à toi d'être précis dans ta demande. Tu parlais bien de renommer le fichier...

Si tu veux sauvegarder le tableau, fais un SaveAs sur le classeur (wb.SaveAs ...).
Tu peux ajouter des feuilles via wb.Worksheets.Add ... mais bon, tu peux trouver cette info n'importe où.

Erreur de fichier introuvable: Ce n'est pas nous qui allons te dire où se trouve ton fichier.

[guillaume74960]

Oups je pensais avoir été clair sorry ^^

Ce que je veux vraiment c'est quand on clique sur ce bouton, un fichier txt soit importé dans un nouvel onglet, que le fichier txt initial soit sauvegardé sous la date du jour et le classeur av le nouvel onglet soit sauvegardé sous un autre nom.xls

[mercatog]

Le début peut être comme ceci

Renommer d'abord le fichier texte puis l'importer

Code :

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

1
2
3
4
5
6
7
8
9
Dim OldFile As String, NewFile As String
 
OldFile = "C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt"
NewFile = "C:\Documents\TEST\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
 
Name OldFile As NewFile
 
'Set Wb = Workbooks.Open(Filename:=NewFile, Format:=4)
'...

[guillaume74960]

Je comprend pas j'ai toujours erreur fichier introuvable au moment du Name pourtant mon fichier inital est bien la.

Mais sinon (je sais suis chiant ^^), comment faire pour ouvrir le txt dans une nouvelle feuille de mon classeur actuel car j'arrive à l'ouvrir mais dans un nouveau classeur.

[patricktoulon]

donne nous un exemple du genre de texte qu'il y a dans le fichier texte

il y a plusieurs autre moyen d'ouvrir le fichier afin d'en extraire , modifier , ajouter des données

et de le sauver sans passer par le classeur

filesystemobject ca te parle ?

[guillaume74960]

Alors c'est des mots (ou dates) séparés par des ; qui servent de délimiteurs.

Heu non je ne connais pas du tout.

[mercatog]

Exemple tiré de l'enregistreur de macros, à toi de t'en servir comme début

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
25
26
27
28
29
30
31
32
33
Sub ImportTextFile()
Dim OldFile As String, NewFile As String
 
 
OldFile = "C:\Users\VAL\Desktop\lamedb.txt"
If Dir(OldFile) <> "" Then
    '--Ici on importe le fichier texte vers Feuil2 avec comme séparateur le point-virgule
    With ThisWorkbook.Worksheets("Feuil2")
        With .QueryTables.Add(Connection:="TEXT;" & OldFile, Destination:=.Range("A1"))
            .RefreshStyle = xlInsertDeleteCells
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(1)
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End With
    '--Fin de l'import
 
    '-- on renomme le fichier texte
    NewFile = "C:\Users\VAL\Desktop\Nouveau dossier\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
    Name OldFile As NewFile
 
    '--Suite des traitements sur le classeur
Else
    MsgBox "Ficgier " & OldFile & " introuvable"
End If
End Sub

[guillaume74960]

Après test ça m'a l'air bon merci beaucoup pour votre aide !!


Une dernière petite question (promis j’arrête )

Sur mon classeur, j'ai ma 1ere feuille avec mes boutons, j'ai 2 boutons qui me crééent une nouvelle feuille à la date du jour (avec l'heure), j'aimerai avec un 3ieme bouton concaténer mes deux onglet créés dans un 3 ieme onglet.

(je sais pas si, si j'ai été clair)

[guillaume74960]

Bon j'ai réussi ! Je pense que ça peut etre optimisé mais ça marche (à peu près)

Par contre j'ai une question, lorsque que je veux insérer une nouvelle feuille avant de la renommer il faut lui indiquer un nom type Feuil, ici se sera Feuil4, mais si par hasard la feuille 4 existe déjà tout plante, n'y a t il pas moyen d'optimiser cette étape ?

Code :

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

1
2
3
4
 
Sheets.Add After:=Sheets(Sheets.Count)
Worksheets("Feuil4").Name = "" & Format(Now(), "yyyymmdd - hh")
ongletfinal = Sheets(4).Name

[Promethee25]

Bonjour,

Déclare une variable sh de classe Worksheet et affecte-lui la nouvelle feuille créée:

Code :

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

1
2
3
Set sh = Sheets.Add After:=Sheets(Sheets.Count)
sh.Name = "" & Format(Now(), "yyyymmdd - hh")
ongletfinal = sh.Name