zebanx
XLDnaute Accro
Bonjour,
Qq pourrait-il s'il vous plait m'aider sur un démarrage de code
Objectif : Recopier les données d'un fichier .CSV dont le nom temporaire après ouverture d'un lien Hypertexte n'est jamais identique (ie "table_N°x.csv")
Problème : Le navigateur reste ouvert, il faut que la macro se positionne sur le fichier csv ouvert (c'est le seul à être ouvert) pour continuer son code ("Columns("A:A").Select...)
Grace à une super aide ce matin, on arrive à fermer le navigateur mais il ferme aussi la table.CSV temporaire.
Le code et mes quelques médiocres pas de recherche
Range("M2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' le fichier csv qui prend un nom "table_x" avec x aléatoire s'ouvre bien mais c'est la page du navigateur qui s'affiche
SendKeys "%{TAB}" 'à l'écran, en faisant ALT + TAB on arrive au fichier "table_x" mais dans son exécution par la macro, cela ne fonctionne pas
With Workbook '= "table_x" : comment faire sinon pour lui dire de chercher le chemin du seul fichier csv ouvert Windows("table-x.csv").Activate sachant que je ne peux pas mettre de numéro à x ?
'A partir de là si on part bien du fichier csv, il ne devrait pas y avoir de problème
Columns("A:A").Select
Selection.Copy
ThisWorkbook.Activate
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1)), TrailingMinusNumbers:=True
Application.DisplayAlerts = False
End With
' fermeture de tous les autres workbooks y compris le CSV
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close SaveChanges:=False
End If
Next w
Range("H2").Select
End Sub
Vous en remerciant, cdlt
thierry
Qq pourrait-il s'il vous plait m'aider sur un démarrage de code
Objectif : Recopier les données d'un fichier .CSV dont le nom temporaire après ouverture d'un lien Hypertexte n'est jamais identique (ie "table_N°x.csv")
Problème : Le navigateur reste ouvert, il faut que la macro se positionne sur le fichier csv ouvert (c'est le seul à être ouvert) pour continuer son code ("Columns("A:A").Select...)
Grace à une super aide ce matin, on arrive à fermer le navigateur mais il ferme aussi la table.CSV temporaire.
Le code et mes quelques médiocres pas de recherche
Range("M2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' le fichier csv qui prend un nom "table_x" avec x aléatoire s'ouvre bien mais c'est la page du navigateur qui s'affiche
SendKeys "%{TAB}" 'à l'écran, en faisant ALT + TAB on arrive au fichier "table_x" mais dans son exécution par la macro, cela ne fonctionne pas
With Workbook '= "table_x" : comment faire sinon pour lui dire de chercher le chemin du seul fichier csv ouvert Windows("table-x.csv").Activate sachant que je ne peux pas mettre de numéro à x ?
'A partir de là si on part bien du fichier csv, il ne devrait pas y avoir de problème
Columns("A:A").Select
Selection.Copy
ThisWorkbook.Activate
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1)), TrailingMinusNumbers:=True
Application.DisplayAlerts = False
End With
' fermeture de tous les autres workbooks y compris le CSV
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close SaveChanges:=False
End If
Next w
Range("H2").Select
End Sub
Vous en remerciant, cdlt
thierry