Probleme ouverture de ficihier
titi
-
titi -
titi -
bonjour à tous,
petit soucis sur ma macro
qui me fait une erreur quand je l'a met en action:
voici mon code et cela beugue au niveau de windows("Feuille....
merci de votre retour
cordialement
Thierry
Sub importer_et_convertir()
Call importerunefeuillededebit2020
Call Macro2
End Sub
Sub importerunefeuillededebit2020()
Dim ret As String
'Determine plage plateau
ret = Application.GetOpenFilename
ChDir _
"Q:\4_REPERTOIRE DES AFFAIRES"
'ret = Application.GetOpenFilename("DAT Files (*.dat), *.dat") 'Avec Filtre sur des fichier avec extension DAT
Workbooks.Open Filename:=ret
Workbooks.OpenText Filename:=ret, DataType:=xlDelimited, Semicolon:=True
Range("A1:K56").Select
Selection.Copy
Windows("Feuille de debit automatisee 20.20.xltm").Activate</souligne>
Range("A4").Select
ActiveSheet.Paste
End Sub
Sub Macro2()
Range("A4", "A60").Select
Selection.TextToColumns Destination:=Range("A4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub
petit soucis sur ma macro
qui me fait une erreur quand je l'a met en action:
voici mon code et cela beugue au niveau de windows("Feuille....
merci de votre retour
cordialement
Thierry
Sub importer_et_convertir()
Call importerunefeuillededebit2020
Call Macro2
End Sub
Sub importerunefeuillededebit2020()
Dim ret As String
'Determine plage plateau
ret = Application.GetOpenFilename
ChDir _
"Q:\4_REPERTOIRE DES AFFAIRES"
'ret = Application.GetOpenFilename("DAT Files (*.dat), *.dat") 'Avec Filtre sur des fichier avec extension DAT
Workbooks.Open Filename:=ret
Workbooks.OpenText Filename:=ret, DataType:=xlDelimited, Semicolon:=True
Range("A1:K56").Select
Selection.Copy
Windows("Feuille de debit automatisee 20.20.xltm").Activate</souligne>
Range("A4").Select
ActiveSheet.Paste
End Sub
Sub Macro2()
Range("A4", "A60").Select
Selection.TextToColumns Destination:=Range("A4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub
A voir également:
- Probleme ouverture de ficihier
- Page d'ouverture google - Guide
- Détection de l'ouverture du clapet de mon étui samsung - Forum Samsung
- Ouverture automatique application windows - Guide
- Prochaine ouverture magasin action 2025 - Guide
- Www.yahoomail.com ouverture de session - Forum Yahoo mail
2 réponses
Bonjour,
Dim WB As Workbook
Sub importer_et_convertir()
Set WB = ThisWorkbook
Call importerunefeuillededebit2020
Call Macro2
End Sub
Sub importerunefeuillededebit2020()
'remplacer
Windows("Feuille de debit automatisee 20.20.xltm").Activate
'par
WB.Activate
End Sub
Bonjour,
il faudrait réviser les classiques, c'est du B A BA
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
il faudrait réviser les classiques, c'est du B A BA
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
Cela fonctionne a merveille
Bonne soriée
Titi