Macro ou formule sur onglets "futurs"

Re,

Ouvrez la fenetre VBA, partie gauche, double clic sur Feuille et vous verrez l'userform, double clic sur l'UF, double clic sur l'UF mais cote droit de la fenetre VBA et vous avez acces au code de l'UF

Excel s'ouvre à moi

Option Explicit
Dim onglet As Boolean
Dim Fichier
Dim Tableau() As String
Dim pos As Integer
Dim nomfichier As String
Dim myPath As String, myFile As String
Sub Recup_import()
'on recherche le fichier texte
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If Fichier <> False Then
'on récupere le nom du fichier texte sans son extension
nomfichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
pos = InStr(1, nomfichier, ".", 1)
nomfichier = Left(nomfichier, pos - 1)
'on vérifie si il n'y a pas d'onglet portant le même nom
onglet = True
Doublons
If onglet = False Then Exit Sub
'on ajoute un onglet
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomfichier
'on met le texte sur la feuille
Worksheets(nomfichier).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter le cellule de reception
Range("A1").Value = nomfichier
Else
MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte!", vbExclamation, "Importer fichier texte"
End If
Sheets("Sommaire").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = nomfichier
End Sub
Sub Recup_import_total()
If myFile = "" Then Exit Sub
Fichier = ThisWorkbook.Path & "\" & myFile
'on récupere le nom du fichier texte sans son extension
nomfichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
pos = InStr(1, nomfichier, ".", 1)
nomfichier = Left(nomfichier, pos - 1)
'on vérifie si il n'y a pas d'onglet portant le même nom
onglet = True
Doublons
If onglet = False Then Exit Sub
'on ajoute un onglet
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomfichier
'on met le texte sur la feuille
Worksheets(nomfichier).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter le cellule de reception
Range("A1").Value = nomfichier
Sheets("Sommaire").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = nomfichier
End Sub
Private Sub CommandButton2_Click()
Recup_import
End Sub
Private Sub CommandButton1_Click()
Dim Index As Integer
Range("A1").Value = "Sommaire"
Index = ComboBox1.ListIndex
Sheets(Index + 1).Select
End Sub
Private Sub CommandButton3_Click()
ParcourtFichier
End Sub

'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Private Sub UserForm_Initialize()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1 = Range("A" & j)
'...et filtre les doublons
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
Next j
ComboBox1.ListIndex = 0
End Sub
'empecher de renommer onglet du même nom
Private Sub Doublons()
Dim ctr
For ctr = 1 To Sheets.Count
If Sheets(ctr).Name = nomfichier Then
MsgBox "Un onglet porte déjà ce nom!", vbExclamation, "Ajouter onglet"
onglet = False
End If
Next
End Sub
Sub ParcourtFichier()
myPath = ThisWorkbook.Path
' Fichier va contenir le nom du premier fichier rencontré dans F:\atelier
Fichier = Dir(myPath & "\*.txt*")
' Tant que Fichier est différent de vide (Tant qu'il y a un fichier à lire, simplement)
While Fichier <> ""
' On l'affiche dans la fenêtre d'exécution (Affichage/Fenêtre exécution)
myFile = Fichier
Recup_import_total
' Le fait de dire Fichier = Dir, sans préciser comme paramètre le nom du dossier,
' permet de lire le fichier suivant :
Fichier = Dir
' Et on revient dans la boucle en affichant le fichier qu'on vient de lire...
' S'il n'y avait qu'un seul fichier dans le dossier, il sortirait tout de suite maintenant.
Wend
End Sub

Bonjour

je veux effectivement copier ces infos dans l'onglet sommaire, mais par quoi dois-je remplacer Recup_import_total??

ordre: colonne G, puis H
puis J puis K
etc

pas d'entête (je l'ai déjà fait)

Un grand merci

Re,

Le fichier txt est le xls avec changement d'extention, convient pas. C'est un fichier d'infos txt que je vous demande si possible et vu qu' il y a des formules ex: I5: =G5+H5, la copie d'infos ne doit pas se faire port nawac !!!!!!

Cher Sherlock,

plus simple après l'importation des fichiers txt au moyen de la macro décrite au-dessus: voir par exemple:

http://www.cjoint.com/c/FBfoWbUcmLP

le but est le suivant:
-aller sur l'onglet 140127-0001
-de F2 à F51: les données qui m'intéressent; elles sont séparées par un "/" qui devra être enlevé par la suite

- je veux qu'elles se collent sur la page "sommaire", en G5-G37 et H5-H37
en sommaire/G5, je retrouverai le premier chiffre de 140127-0001/F2
en sommaire/H5, je retrouverai le second chiffre de 140127-0001/F2

-et ainsi de suite jusqu'en G et H37

-et ainsi de suite pour les onglets suivants, dont les colonnes F doivent se coller de la même façon en sommaire/J-K,M-N, etc

-les colonnes "saumon" doivent contenir la somme des 2 colonnes avant elles (lignes 5 à 37)

Merci!

Ceci est a faire seulement pour Recup_import_total ??

Je ne comprends pas la question :(

Merci pour la formule

Effectivement, j'ai recopié ça, mais ça ne me parle pas, je ne sais pas à quelle action de la macro ceci se réfère...
l'action que j'ai expliquée à 15.59 est à faire sur tous les onglets issus de l'importation des txt...quelque soit le nombre de fichiers txt importés
j'espère que ça vous aide, mais pas convaincue

Bon, ok, mais dites-moi exactement ce que je dois faire avec mon fichier xls pour le transformer en fichier txt correct pour vous
je dois faire "enregistrer sous" "autres formats" "texte Unicode"?
merci!

OK je comprends

Voilà un fichier txt à importer sur xls

http://www.cjoint.com/c/FBjjXw2UPUP

il ne m'ouvre que 4 fichiers txt avec

"erreur d'excécution 7 mémoire insuffisante"

si débogage, il m'envoie à:

.Refresh BackgroundQuery:=False

oui, que de cette colonne average coverage

encore le même message!!!!!!


il ne m'ouvre que 4 fichiers txt avec

"erreur d'excécution 7 mémoire insuffisante"

si débogage, il m'envoie cette fois à:



Worksheets(nomfichier).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter le cellule de reception

2007
maxi...25

Windows 7 pro
DELL D03S001
Processeur Intel(R) Core(TM) i3-2120 CPU @3.30GHz