Discussion :

[angeld]

Bonjour

A la suite d'un traitement lambda sur un fichier Excel, je souhaites l'archiver dans un répertoire "Archivage" et lui changer de nom. Le renomage dépend de la version Excel .xls ou .xlsx
exemple : fichier.xlsx -->fichier_date.xlsx et fichier.xls -->fichier_date.xls.

voilà mon bout de code qui plante :

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
Public Sub Main()
        ' Add your code here
        Dim sSrcFile As String
        Dim sSrcFolder As String
        Dim sDesFile As String
        Dim sDesFolder As String
 
        sSrcFile = Dts.Variables("SrcFile").Value.ToString
        sSrcFolder = Dts.Variables("SrcFolder").Value.ToString
        sDesFolder = Dts.Variables("DesFolder").Value.ToString
 
       If (sSrcFile.Substring(0, sSrcFile.Length - 1)) = "x" Then
        sDesFile = sDesFolder & sSrcFile.Substring(0, sSrcFile.Length - 5) & "_" & Today.ToString("dd-MM-yyyy") & sSrcFile.Substring(sSrcFile.Length - 5, 5)
       Else
        'sDesFile = sDesFolder & sSrcFile.Substring(0, sSrcFile.Length - 4) & "_" & Today.ToString("dd-MM-yyyy") & sSrcFile.Substring(sSrcFile.Length - 4, 4)
       End If
'....etc....
End Sub

Merci de votre aide.

[ebastien]

Bonjour,

La classe Io.Path expose pas mal de méthodes statiques permettant de jouer avec les noms de fichier : Path.GetFileNameWithoutExtension, Path.ChangeExtension etc.

http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx

Ce sera plus simple ...

[angeld]

Bonjour,

La classe Io.Path expose pas mal de méthodes statiques permettant de jouer avec les noms de fichier : Path.GetFileNameWithoutExtension, Path.ChangeExtension etc.

http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx

Ce sera plus simple ...

Merci de ton aide. Avec un peu de recherche et tests, j'ai réalisé le code que je voulais en le simplifiant.
Pour ceux que ça peu aider voici le bout de 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
Public Sub Main()
        '
        ' Add your code here
        Dim sSrcFile As String 'Nom de fichier source
        Dim sSrcFolder As String 'Chemin source du fichier
        Dim sDesFile As String 'Nom de fichier d'archivage
        Dim sDesFolder As String 'Chemin d'archivage
        Dim Extension As String 'Extension du fichier
        Dim FileWExtention As String 'Nom du fihier sans extension
 
 
        sSrcFile = Dts.Variables("SrcFile").Value.ToString
        sSrcFolder = Dts.Variables("SrcFolder").Value.ToString
        sDesFolder = Dts.Variables("DesFolder").Value.ToString
        Extension = System.IO.Path.GetExtension(sSrcFile)
        FileWExtention = System.IO.Path.GetFileNameWithoutExtension(sSrcFile)
 
 
        sDesFile = sDesFolder & FileWExtention & "_" & Today.ToString("dd-MM-yyyy") & Extension
 
....etc....
End Sub

[ebastien]

Bonjour,

N'hésite pas à utiliser aussi Io.Path.Combine qui permet de combiner des chaînes en un chemin d'accès. Cela évite d'avoir à se demander si la variable contenant le chemin comporte un séparateur de fin :

Code :

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

sDesFile = Io.Path.Combine(sDesFolder,FileWExtention & "_" & Today.ToString("dd-MM-yyyy") & Extension)

[angeld]

Bonjour,

N'hésite pas à utiliser aussi Io.Path.Combine qui permet de combiner des chaînes en un chemin d'accès. Cela évite d'avoir à se demander si la variable contenant le chemin comporte un séparateur de fin :

Code :

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

sDesFile = Io.Path.Combine(sDesFolder,FileWExtention & "_" & Today.ToString("dd-MM-yyyy") & Extension)

Ok, Merci.