Discussion :

[willoweiss]

Bonjour,

Dans une macro -- fichier excel grace à cette macro ci-dessous je regarde si un fichier text que je dois traiter est bien arrivé ou non et le nom de ce fichier apparait en A1

ThisWorkbook.Worksheets("Feuil1").Range("A1") = Application.GetOpenFilename


J ai défini un Nom en A1 --> pour évidemment donner un nom de champ à cette case qui contient le nom du fichier text ouvert préalablement.

serait il possible par la suite d'ouvrir ce fichier dont le nom apparait en A1, chaque mois ce fichier texte change de nom. le nom est +- le même mais il y a une date en plus qui change bien sure tous les mois et cela grace au nom du champ (A1) puisque le nom du fichier txt change chaque mois.

J ai essayé via ceci :

ChDir "G:\"
Workbooks.Open Filename:=nom du champ --> cela ne fonctionne pas, soit cela ne fonctionne pas via le nom du champ que je lui ai donné ou soit il y des erreurs de , ou autre ????


Mille merci !!!!!!!!!!!!!

[arosec]

Bonjour,

1)
La première étape si j'ai correctement compris le besoin, est d'identifier les changement de valeur de A1:
Il faut ajouter le code suivant dans la partie VBA de la feuille en question.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Not Application.Intersect(ThisWorkbook.Worksheets("Feuil1").Range("A1"), Target) Is Nothing Then
    OpenTexteFile ThisWorkbook.Worksheets("Feuil1").Range("A1")
  End If
 
End Sub

2)
Il faut ouvrir un le fichier défini en A1:

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
 
Public Sub OpenTexteFile(fil As String)
Dim fso As Scripting.FileSystemObject
 
  Set fso = CreateObject("Scripting.FileSystemObject")
 
  If fso.FileExists(fil) Then
    Application.Workbooks.OpenText fil
  Else
    MsgBox "Le fichier n'existe pas ", vbCritical, "Error File"
  End If
 
  Set fso = Nothing
 
End Sub

3)
Eti pour charger A1:

Code :

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

1
2
3
4
 
Public Sub FindFile()
  ThisWorkbook.Worksheets("Feuil1").Range("A1") = Application.GetOpenFilename
End Sub

Cdlt,

[willoweiss]

y a t il moyen de mettre cela en 1 seule macro svp ?

plus il y a un problème avec cette ligne non défini ???



Set fso = CreateObject("Scripting.FileSystemObject")

[arosec]

Bonjour,

y a t il moyen de mettre cela en 1 seule macro svp ?

... Intéret?

On peut "fusionner" la première et la seconde:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Not Application.Intersect(ThisWorkbook.Worksheets("Feuil1").Range("A1"), Target) Is Nothing Then
    Application.Workbooks.OpenText ThisWorkbook.Worksheets("Feuil1").Range("A1")
  End If
 
End Sub

Cdlt,

[willoweiss]

Lorsque je mets cela ds une macro et que je crée un bouton pour affecter cette macro mais je ne sais pa spq je ne retrouve pas cette macro

Pq svp ???


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(ThisWorkbook.Worksheets("Feuil1").Range("A1"), Target) Is Nothing Then
Application.Workbooks.OpenText ThisWorkbook.Worksheets("Feuil1").Range("A1")
End If

End Sub

[Marc-L]