Bonjour,
je débute en VBA. J'ai besoin d'ouvrir un fichier .txt de le "découper" selon une taille fixe (sans séparateur).
J'ai un bug, et Excel doit redémarrer. Je suppose que mon bug vient de ma conversion.
Voici le code au complet et ma fonction principale est "Convertir_GRP_format_117"
d'avance merci, Testeuse
Public Format_colonne_117(1 To 3, 1 To 33) As String
Public Nbre_colonne_format_117 As Integer
Public Nbre_ligne_fichier_source As Currency
Public Fichier_2015 As String
Sub Sauvegarde_Fermeture_Fichier(NomDuFichier)
' Windows(NomDuFichier).Activate
' ActiveWorkbook.Save
Workbooks.Save
ActiveWindow.Close
End Sub
Sub Declaration_format_117() 'Format_colonne_117, Nbre_colonne_format_117
Nbre_colonne_format_117 = 32 '32 colonnes mais tableau de 33 colonnes
Format_colonne_117(1, 1) = "Nom"
Format_colonne_117(2, 1) = "Debut"
Format_colonne_117(3, 1) = "Fin"
Format_colonne_117(1, 2) = "Classification"
Format_colonne_117(2, 2) = 1
Format_colonne_117(3, 2) = 1
Format_colonne_117(1, 3) = "GHM (Code)" '' ok
Format_colonne_117(2, 3) = 3
Format_colonne_117(3, 3) = 1
Format_colonne_117(1, 4) = "Filler"
Format_colonne_117(2, 4) = 9
Format_colonne_117(3, 4) = 1
Format_colonne_117(1, 5) = "Format_RSS" ''
Format_colonne_117(2, 5) = 10
Format_colonne_117(3, 5) = 1
Format_colonne_117(1, 6) = "Code_retour"
Format_colonne_117(2, 6) = 13
Format_colonne_117(3, 6) = 1
Format_colonne_117(1, 7) = "Finess"
Format_colonne_117(2, 7) = 16
Format_colonne_117(3, 7) = 1
Format_colonne_117(1, 8) = "Format_RUM"
Format_colonne_117(2, 8) = 25
Format_colonne_117(3, 8) = 1
Format_colonne_117(1, 9) = "Numéro de RSS" '' ok
Format_colonne_117(2, 9) = 28
Format_colonne_117(3, 9) = 1
Format_colonne_117(1, 10) = "Num_Sej"
Format_colonne_117(2, 10) = 48
Format_colonne_117(3, 10) = 1
Format_colonne_117(1, 11) = "Numéro du RUM"
Format_colonne_117(2, 11) = 68
Format_colonne_117(3, 11) = 1
Format_colonne_117(1, 12) = "Date_Naiss"
Format_colonne_117(2, 12) = 78
Format_colonne_117(3, 12) = 4
Format_colonne_117(1, 13) = "Sexe"
Format_colonne_117(2, 13) = 86
Format_colonne_117(3, 13) = 1
Format_colonne_117(1, 14) = "Unité médicale (Code)" '' ok
Format_colonne_117(2, 14) = 87
Format_colonne_117(3, 14) = 1
Format_colonne_117(1, 15) = "Type_autorisation"
Format_colonne_117(2, 15) = 91
Format_colonne_117(3, 15) = 1
Format_colonne_117(1, 16) = "Date d'entrée" '' ok
Format_colonne_117(2, 16) = 93
Format_colonne_117(3, 16) = 4
Format_colonne_117(1, 17) = "Mode d'entrée (Code)" ''
Format_colonne_117(2, 17) = 101
Format_colonne_117(3, 17) = 1
Format_colonne_117(1, 18) = "Provenance" ''
Format_colonne_117(2, 18) = 102
Format_colonne_117(3, 18) = 1
Format_colonne_117(1, 19) = "Date de sortie" '' ok
Format_colonne_117(2, 19) = 103
Format_colonne_117(3, 19) = 4
Format_colonne_117(1, 20) = "Mode de sortie (Code)" ''
Format_colonne_117(2, 20) = 111
Format_colonne_117(3, 20) = 1
Format_colonne_117(1, 21) = "Destination" ''
Format_colonne_117(2, 21) = 112
Format_colonne_117(3, 21) = 1
Format_colonne_117(1, 22) = "Code_postal"
Format_colonne_117(2, 22) = 113
Format_colonne_117(3, 22) = 1
Format_colonne_117(1, 23) = "Poids_nouveau_ne"
Format_colonne_117(2, 23) = 118
Format_colonne_117(3, 23) = 1
Format_colonne_117(1, 24) = "Age_gestationnel"
Format_colonne_117(2, 24) = 122
Format_colonne_117(3, 24) = 1
Format_colonne_117(1, 25) = "Date_regle"
Format_colonne_117(2, 25) = 124
Format_colonne_117(3, 25) = 4
Format_colonne_117(1, 26) = "Nbre_seances" ''
Format_colonne_117(2, 26) = 132
Format_colonne_117(3, 26) = 1
Format_colonne_117(1, 27) = "Nbre_DAS"
Format_colonne_117(2, 27) = 134
Format_colonne_117(3, 27) = 1
Format_colonne_117(1, 28) = "Nbre_DAD"
Format_colonne_117(2, 28) = 136
Format_colonne_117(3, 28) = 1
Format_colonne_117(1, 29) = "Nbre_zone_acte"
Format_colonne_117(2, 29) = 138
Format_colonne_117(3, 29) = 1
Format_colonne_117(1, 30) = "Diagnostic principal (Code)" '' ok
Format_colonne_117(2, 30) = 141
Format_colonne_117(3, 30) = 1
Format_colonne_117(1, 31) = "DR"
Format_colonne_117(2, 31) = 149
Format_colonne_117(3, 31) = 1
Format_colonne_117(1, 32) = "IGS2"
Format_colonne_117(2, 32) = 157
Format_colonne_117(3, 32) = 1
Format_colonne_117(1, 33) = "Fin_fichier"
Format_colonne_117(2, 33) = 160
Format_colonne_117(3, 33) = 1
End Sub
Sub Calcul_NbreJourneeBrutes(Cell, NbreJourPMSI)
If NbreJourPMSI = 0 Then
Cell = 1
Else
Cell = NbreJourPMSI
End If
End Sub
Sub CodeMouvement_Libelle(cell_code, cell_libelle)
If cell_code >= 1 And cell_code <= 4 Then
cell_libelle = "Retour prestation"
ElseIf cell_code = 6 Then
cell_libelle = "Mutation"
ElseIf cell_code = 7 Then
cell_libelle = "Mutation"
ElseIf cell_code = 8 Then
cell_libelle = "Domicile"
ElseIf cell_code = 9 Then
cell_libelle = "Décès"
End If
End Sub
Sub Declaration_nbre_ligne_fichier_source() 'Nbre_ligne_fichier_source
Dim i As Long
i = 1
While Cells(i, 1).Value <> ""
i = i + 1
Wend
Nbre_ligne_fichier_source = i - 1
End Sub
Sub Convertir_GRP_format_117()
'
' Convertir_GRP_format_117 Macro
'
Dim Fichier_GRP_source As String
Dim Repertoire_fichier_GRP_source As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
'' DECLARATION de variables
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Fichier_GRP_source = Cells(1, 2).Value
Fichier_GRP_source_extension = Cells(2, 2).Value
Repertoire_fichier_GRP_source = Cells(3, 2).Value
Call Declaration_format_117 'Format_colonne_117, Nbre_colonne_format_117
Fichier_converti = Cells(6, 2).Value 'Fichier_GRP_source & "_converti" 'fichier de l'annee converti
Repertoire_fichier_converti = Cells(7, 2).Value
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
'' CONVERTIR GRP au Format 117
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' :=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
ChDir Repertoire_fichier_GRP_source
Workbooks.OpenText Filename:= _
Repertoire_fichier_GRP_source & "\" & Fichier_GRP_source & ".txt", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(Format_colonne_117(2, 2) - 1, Format_colonne_117(3, 2)), Array(Format_colonne_117(2, 3) - 1, Format_colonne_117(3, 3)), _
Array(Format_colonne_117(2, 4) - 1, Format_colonne_117(3, 4)), Array(Format_colonne_117(2, 5) - 1, Format_colonne_117(3, 5)), _
Array(Format_colonne_117(2, 6) - 1, Format_colonne_117(3, 6)), Array(Format_colonne_117(2, 7) - 1, Format_colonne_117(3, 7)), _
Array(Format_colonne_117(2, 8) - 1, Format_colonne_117(3, 8)), Array(Format_colonne_117(2, 9) - 1, Format_colonne_117(3, 9)), _
Array(Format_colonne_117(2, 10) - 1, Format_colonne_117(3, 10)), Array(Format_colonne_117(2, 11) - 1, Format_colonne_117(3, 11)), _
Array(Format_colonne_117(2, 12) - 1, Format_colonne_117(3, 12)), Array(Format_colonne_117(2, 13) - 1, Format_colonne_117(3, 13)), _
Array(Format_colonne_117(2, 14) - 1, Format_colonne_117(3, 14)), Array(Format_colonne_117(2, 15) - 1, Format_colonne_117(3, 15)), _
Array(Format_colonne_117(2, 16) - 1, Format_colonne_117(3, 16)), Array(Format_colonne_117(2, 17) - 1, Format_colonne_117(3, 17)), _
Array(Format_colonne_117(2, 18) - 1, Format_colonne_117(3, 18)), Array(Format_colonne_117(2, 19) - 1, Format_colonne_117(3, 19)), _
Array(Format_colonne_117(2, 20) - 1, Format_colonne_117(3, 20)), Array(Format_colonne_117(2, 21) - 1, Format_colonne_117(3, 21)), _
Array(Format_colonne_117(2, 22) - 1, Format_colonne_117(3, 22)), Array(Format_colonne_117(2, 23) - 1, Format_colonne_117(3, 23)), _
Array(Format_colonne_117(2, 24) - 1, Format_colonne_117(3, 24)), Array(Format_colonne_117(2, 25) - 1, Format_colonne_117(3, 25)), _
Array(Format_colonne_117(2, 26) - 1, Format_colonne_117(3, 26)), Array(Format_colonne_117(2, 27) - 1, Format_colonne_117(3, 27)), _
Array(Format_colonne_117(2, 28) - 1, Format_colonne_117(3, 28)), Array(Format_colonne_117(2, 29) - 1, Format_colonne_117(3, 29)), _
Array(Format_colonne_117(2, 30) - 1, Format_colonne_117(3, 30)), Array(Format_colonne_117(2, 31) - 1, Format_colonne_117(3, 31)), _
Array(Format_colonne_117(2, 32) - 1, Format_colonne_117(3, 32)), Array(Format_colonne_117(2, 33) - 1, Format_colonne_117(3, 33)) _
), TrailingMinusNumbers:=True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
'' CREATION du fichier
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveWorkbook.SaveAs _ Fichier_converti & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook
End Sub