manipulation de chaine

**teen6517** · 19/07/2010, 11h31

Bonjour tout le monde

Mon petit problème du jour est le suivant :

en utilisant Date$, il me donne la valeur suivante :
19/07/2010

Moi je voudrais qu'il me retourne 20100719 en gardant le format string

Le bute de la manœuvre étant qu'avant de modifier quoi que ce soit du fichier source appelé toto.xls, je crée une copie SAV20100719toto.xls

voici mon code :

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
16
17
18
19
20
21
22
 
Sub Macro2()
 
 
    Public Type stockdate
        jour As String
        mois As String
        annee As String
    End Type
 
    'Mid("Vendredi", 5, 2)           renvoie "re"    Mid(chaine, start, nb_caractere)
 
    stockdate = Date$
    stockdate.jour = Mid(stockdate, 1, 2)
    stockdate.mois = Mid(stockdate, 4, 2)
    stockdate.annee = Mid(stockdate, 7, 4)
 
    stockdate = stockdate.annee & stockdate.mois & stockdate.jour
 
    Cells(1, "E") = stockdate
 
End Sub

je stocke dans la cellule E1 pour vérifier si ça a bien fonctionné pour ensuite
remplacer ce stockage par la ligne

Code :

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

1
2
3
 
nomfichier = "C:\Documents and Settings\laborder\Bureau\SAV" & stockdate & ".xls"
FileCopy "C:\Documents and Settings\laborder\Bureau\toto.xls", nomfichier

mais apparemment, il y a un problème avec la déclaration de la structure stockdate

merci d'avance pour votre aide

**babaothe** · 19/07/2010, 12h16

salut

Code :

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

MsgBox Format(Date, "yyyymmdd")

**teen6517** · 19/07/2010, 14h00

merci cette fonction est bien plus simple que mon petit module et fonctionne très bien

du moins, je n'ai pas tenté de créer le fichier mais je récupère la bonne valeur donc merci beaucoup.

par contre si quelqu'un peut me dire pourquoi ma structure ne fonctionne pas, je suis très intéressé car je compte travailler avec ce genre de structure pour la suite des opérations dans mon fichier. Donc merci d'avance a celui qui résoudra ce problème.

**babaothe** · 19/07/2010, 14h55

Envoyé par teen6517

par contre si quelqu'un peut me dire pourquoi ma structure ne marche pas je suis tres intéréssé car je compte travailler avec se genre de structure pour la suite des opération dans mon fichier donc merci d'avance a celui qui résoudra se probleme

parce que tu n'utilises pas ta structure comme il se doit de le faire .
Voici un exemple (puisque c'est d'un exemple que tu as besoin) :

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
16
Private Type stockdate
        jour As String * 2
        mois As String * 2
        annee As String * 4
End Type
 
Private Sub CommandButton1_Click()
  Dim ladate As Date
  ladate = Date
  MsgBox mescomposantes(ladate).annee & mescomposantes(ladate).mois & mescomposantes(ladate).jour
End Sub
Private Function mescomposantes(ByVal ladate As Date) As stockdate
 mescomposantes.annee = Format(Year(ladate), "0000")
 mescomposantes.mois = Format(Month(ladate), "00")
 mescomposantes.jour = Format(Day(ladate), "00")
End Function

je n'ai pas voulu utiliser tes "Mid", car existent tout de même les fonctions Year, Month et Day !
Rien ne t'empêche toutefois de les utiliser, si tu y tiens. L'essentiel de cet exemple demeure la manière d'utiliser une structure.

**teen6517** · 19/07/2010, 15h36

merci babaothe

ne t'inquiète pas, j'ai appliqué tes modifications pour créer la sauvegarde journalière de mon fichier .xls

j'avais besoin effectivement d'un petit exemple pour fixé le méthode de fonctionnement d'une structure
le tutoriel que j'utilise n'est pas très explicite et les exemples compliqués à suivre

je vais tenter d'adapter ma façon de penser au fonctionnement de se petit langage.

merci

**teen6517** · 19/07/2010, 16h39

babaothe je vien de tenter en minspirent de ton exemple de déclarer ma stucture

mais échec

il s'embleré que de cette facon, il n'est pas possible de déclaré une structure dans une macro

a oui c'est vrai que j'ai pa précisé mais mon petit programme est en réaliter une simple macro que je suis entrain de créé

le but étant d'ouvrir le fichier.xls
lancer la macro et tous se fait tous seul, sans lintervansion de personne
il ny a pas bouton n'y rien pour l'utilisateur

pour avoir une petite idée de mon environnement (ou appeller sa comme vous voulez) :
j'ai un fichier (toto.xls) : se sont les personne du jour
je l'ouvre
je lanca ma macro
premiere chose aven toute modif comme le fichier toto est assé lour a généré on en fait une sovegarde qui sapelle SAV20100719.xls
une foi la sovegarde faite on commence a modifier directement le fichier ouver par des petit remplacement dan les cellules

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
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
 
    With Columns("A:A")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("B:B")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("C:C")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("D:D")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("E:E")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
       .Replace "", "Village"                 'remplace les cellules vide par Village
    End With
 
    With Columns("F:F")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("G:G")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("H:H")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
       .Replace ",", "."                      'remplace les virgules par les points
    End With
 
    With Columns("I:I")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With

la le gros du traitement est fait

il ne me reste qu'a parcourire ligne par ligne mon fichier toto.xls
si la ligne 1 a tous les champ obligatoire diférent de "", jécri cette ligne dans le fichier toto.csv, je suprime cette ligne de mon fichier toto.xls et je passe a la suivante

de cette facon, les lignes où tous les champ obligatoire ne sont pas remplie reste dans le fichier toto.XLS
les lignes OK parte dans le fichier toto.CSV
et j'ai garder une sovegarde du fichier que j'avais ressu que j'ai appeller sav"date".xls

mais la je bloc terrible donc si quelqu'un pouvais me montrer comment faire pour:
*créer un fichier .csv
*lire ligne par ligne mon fichier d'entrer toto.xls (qui est selui d'où s'execute la macro
*stocker les cellules lu dans une structure du tipe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private type assmat
	nomp as string
	prenom as string
	num as string
	libelle as string
	nomr as string
	cp as string
	commune as string
	tel as string
	email as string
end type
 
assmat_actuel as assmat

ou me montrer comment accéder a la cellule de ligne en cour de lecture

merci beaucoup

**Yolak** · 19/07/2010, 17h15

Envoyé par teen6517

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
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
 
    With Columns("A:A")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("B:B")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("C:C")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("D:D")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("E:E")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
       .Replace "", "Village"                 'remplace les cellules vide par Village
    End With
 
    With Columns("F:F")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("G:G")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With
 
    With Columns("H:H")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
       .Replace ",", "."                      'remplace les virgules par les points
    End With
 
    With Columns("I:I")
       .Replace "'", " "                      'remplace l'apostrophe par un espace
       .Replace """", " "                     'remplace les guillemets par un expace
    End With

Quelle horreur lol !

Un peu moins moche:

Code :

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

1
2
3
4
       Cells.Replace "'", " "
       Cells.Replace """", " "
       Range("E:E").Replace "", "Village"
       Range("H:H").Replace ",", "."

**teen6517** · 19/07/2010, 17h38

merci a yolak pour m'avoir obtimisé le code ^^

sinon au sujet de mais trois probleme vous sécher??

manipulation de chaine

Macros et VBA Excel

Discussions similaires

Partager

Partager