Pb inversion date macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

Remplacez vos macros par celles-là. Il faut utiliser la méthode OpenText.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Option Explicit
 
Public WbSource As Workbook
Public ShCible As Worksheet
Public ShSource As Worksheet
Public ShTitreModele As Worksheet
 
Public AireCsv As Range
Public DerniereLigne As Long
 
Sub ChangerLExtensionDunFichierCsvEnTxt(Chemin As String, Fichier As String)
 
    Name Chemin & Fichier As Replace(Chemin & Fichier, ".csv", ".txt")
 
End Sub
 
 
 
 ' S'il faut le renommer dans son extension d'origine
Sub ChangerLExtensionDunFichierTxtEnCsv(Chemin As String, Fichier As String)
 
    Name Chemin & Fichier As Replace(Chemin & Fichier, ".txt", ".csv")
 
End Sub
 
 
Sub CopieBD()
 
 
    Set ShCible = Sheets("BD")
    Set ShTitreModele = Sheets("Titre modèle")
 
    ChangerLExtensionDunFichierCsvEnTxt "C:\Documents and Settings\admv6\Bureau\TMS\", "planning.csv"
 
    Range(ShCible.Cells(1, 1), ShCible.Cells(ShCible.UsedRange.Rows.Count, ShCible.UsedRange.Columns.Count)).Clear
 
 
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\admv6\Bureau\TMS\planning.txt" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
        False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array( _
        1, 2), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, _
        1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array _
        (15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 2), Array(39, 1), Array(40, 1), Array( _
        41, 2)), TrailingMinusNumbers:=True
 
 
    Set WbSource = ActiveWorkbook
    Set AireCsv = Range(ActiveSheet.Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
 
    ' Copie du fichier Csv
    AireCsv.Copy
    ShCible.Activate
    ShCible.Cells(1, 1).Select
    ShCible.Paste
 
    Set AireCsv = Nothing
 
    ' Copie de la ligne de titre
    ShTitreModele.Range(ShTitreModele.Cells(1, 1), ShTitreModele.Cells(1, ShTitreModele.UsedRange.Columns.Count)).Copy
    ShCible.Activate
    ShCible.Cells(1, 1).Select
 
    ShCible.Paste
 
  ' Application.Workbooks("planning.txt").Close SaveChanges:=True
   Application.Workbooks("planning.txt").Close SaveChanges:=False
 
   ChangerLExtensionDunFichierTxtEnCsv "C:\Documents and Settings\admv6\Bureau\TMS\", "planning.txt"
 
    Set WbSource = Nothing
    Set ShTitreModele = Nothing
    Set ShCible = Nothing
 
        Application.CutCopyMode = False
 
 
End Sub

Cordialement.

10/06/2013, 17h31
miliev83

"erreur d'exécution 58 ce fichier existe déjà" et ca me surligne la même ligne que tout à l'heure

Code:

Name Chemin & Fichier As Replace(Chemin & Fichier, ".csv", ".txt")
10/06/2013, 17h35
Invité

Il vous faut réinitialiser le fichier .txt en .csv à la main avant de lancer.

Cordialement.
10/06/2013, 17h53
miliev83

ok génial merci le copier coller fonctionne!

par contre 2 problèmes désormais :
- dans mon fichier "planning final.xlsm" dans l'onglet "BD" j'avais de la colonne AZ à BK des formules pour avoir ensuite mon planning sous forme de tableau dynamique dans l'onglet "planning2".

Ces colonnes disparaissent après avoir lancé la macro.

- j'ai des données qui s'affichent comme cela : A prÚparer, ValidÚe Ó quai, PlanifiÚe
10/06/2013, 18h06
Invité

La colonne AY est la colonne 51, dans la procédure CopieBD, remplacer la ligne :

Code:

Range(ShCible.Cells(1, 1), ShCible.Cells(ShCible.UsedRange.Rows.Count, ShCible.UsedRange.Columns.Count)).Clear

par :

Code:

Range(ShCible.Cells(1, 1), ShCible.Cells(ShCible.UsedRange.Rows.Count, 51)).Clear

Cordialement.
10/06/2013, 18h32
miliev83

Ok merci ça marche.

Par contre je viens de m'appercevoir d'une chose.... lorsque les dates sont copiées cela n'affiche pas les "0" par exemple le 07/06/2013 il va mettre 7/6/2013 et même chose pour l'heure 04:00 = 4h

L'ennui c'est que pour mettre en forme mon tableau dynamique je dois filtrer la colonne "date chargement" du plus ancien au plus récent.

Du coup, les données ne sont pas filtrées correctement
exemple un chargement de 11h va s'afficher avant celui de 4h.

Est il possible de vous sollicitez une nouvelle fois pour cela ?
10/06/2013, 21h27
Invité

Modifiez vos formats dates et heures avec clic droit et format de cellule.

Cordialement.
12/06/2013, 13h55
miliev83

c'est parfait merci beaucoup Eric ! :ccool:

juste une petite question :

quelle est la ligne que je dois mettre pour selectionner toutes les données d'un fichier à partir de ma 2ème ligne ?

merci
12/06/2013, 14h50
Invité

Code:

Range(ActiveSheet.Cells(2, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select

Ce sera ma dernière réponse sur ce post.

Bon courage à vous.

Cordialement.
12/06/2013, 15h21
miliev83

merci :)

Voir 40 message(s) de cette discussion en une page