Problème de macro importer un fichier

[aviat3ur]

Bonjour,

Je début et je rencontre un problème. Je souhaite créer macro pour importer un fichier texte quelconque et que celui-ci s'affiche à partir de la cellule A10 et non comme a présent en A1.

Voila ce que j'ai fait:
Private Sub CommandButton1_Click()
fileToOpen = Application.GetOpenFilename()
Workbooks.OpenText Filename:=fileToOpen
Range("A10").Select
End Sub

Merci avance pour votre aide.

 

[job75]

Re : Problème de macro importer un fichier

Bonjour aviat3ur, bienvenue sur XLD,

Cette macro ouvre n'importe quel fichier :

Private Sub CommandButton1_Click()
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename
If fileToOpen = False Then Exit Sub
With Workbooks.Open(fileToOpen).Sheets(1)
  .UsedRange.Cut .UsedRange.Offset(9)
End With
End Sub

Le "UsedRange" est décalé de 9 lignes vers le bas par Couper/Coller.

A+

 

[aviat3ur]

Re : Problème de macro importer un fichier

Okay. Merci.

Mais si j'ai des données dans les cellules A1, A3 A4 ... avec cette macro supprime ces données. Y a t il un autres moyens ?

 

[job75]

Re : Problème de macro importer un fichier

Mais si j'ai des données dans les cellules A1, A3 A4 ... avec cette macro supprime ces données.

Supprime ? Où avez-vous vu ça ? Il faut tester ce qu'on vous propose.

A+

 

[job75]

Re : Problème de macro importer un fichier

Re,

Peut-être voulez-vous un simple cadrage :

Private Sub CommandButton1_Click()
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename
If fileToOpen = False Then Exit Sub
Application.Goto Workbooks.Open(fileToOpen).Sheets(1).[A10], True
End Sub

Si c'est ça il suffisait de le dire clairement.

A+