Ouvrir Fichier

[piep14]

Bonjour tout le monde, je cherche une méthode pour ouvrir un fichier dans un nouvel onglet mais je n'ai pas encore trouvé de solution. Est ce possible !!!

Merci ...

Sincèrement Vincent

 

[G.David]

salut
Qu'ends tu par fichier ? un classeur avec une feuille de calcul ou un document quelquonque (word ,TXT)?
Cordialement
G.David

 

[piep14]

Oui, c'est un fichier TXT que je convertis de cette facon :

    Workbooks.OpenText Filename:='C:\\Documents and Settings\\Vincent\\Bureau\\Fichier1.TXT', Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

J'aimerais qu'il s'ouvre dans un nouvel de la page actuelle ! Merci

 

[piep14]

Alors, on bloque j'ai l'impression 🙂
Pas facile cette question !!! j'espère vraiment qu'un de nous va trouver cette solution très important pour mon sujet !!

Encore merci de vos recherches !!!!!

 

[GDavid]

T'affoles pas je ne pas pas 20heure par jour sur PC
On va regarder ce qu'on peut faire
G.David

 

[G.David]

essayes ceci (c'est pas tester)Sub

Passe_données()
'
' Passe données
' Macro enregistrée le 13/01/2006 par David Guy
'

'
    
    

    Sheets.Add  'ajoute une feuille
     ' dessous ton code d'ouverture de fichier
          Workbooks.OpenText Filename:='C:\\Documents and Settings\\Vincent\\Bureau\\Fichier1.TXT', Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        
    Cells.Select                    'selectionne la feuille
    Selection.Copy                  'copie le tout
    Windows('Classeur2').Activate   'repointe le classeur
    ActiveSheet.Paste               'passe les données
    Windows('Fichier1.TXT').Close   'ferme le fichier texte
    
End Sub

 

[Bernard_XLD]

Bonjour Piep14, Gdavid

Gdavid, il faut éviter au maximum les sélections et les appels par nom. Voici un code modifié qui passe partout. Pas testé non plus mais devrait fonctionner

A+

Sub Ouvrir_TXT_Nouvelle_Feuille()
    Dim New_Sheet As Worksheet, Workbook_en_Cours As Workbook, Workbook_TXT As Workbook, Nom_Fichier As String
    Set Workbook_en_Cours = ActiveWorkbook
    Set New_Sheet = Workbook_en_Cours.Sheets.Add
    Nom_Fichier = Application.GetOpenFilename(Title:='Chargez le fichier à traiter', FileFilter:='Fichiers txt,*.txt')
    Set Workbook_TXT = Workbooks.OpenText(Filename:=Nom_Fichier, Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True)
    Workbook_TXT.Sheets(1).Cells.Copy Destination:=New_Sheet.Cells
    Workbook_TXT.Close False
End Sub

 

[G.David]

Très juste
mais c'est en forgeant qu'on devient forgeron
(ou patient à l'hopital des grand brulés)
Cordialement
G.David