Incrementation de valeur dans une macro

[shaggrhan]

Bonjour,

J'aimerais savoir si dans la macro suivante il est possible d'incrémenter automatiquement la valeur du csv qui correspond à une feuille dans mon classeur excel.
En clair, J'ouvre le fichier csv et je met le contenu dans une feuille qui le meme nom sans le csv (je me demande si je suis plus clair)

Sub TEST_Ouverture()
   Sheets("14").Select
     With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\14.csv", Destination:= _
        Sheets("14").Range("A1"))
        .Name = "14"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Merci pour votre aide.

Cordialement

Shagg

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Re-,

quand je vais chez le docteur, et que je lui dit que je suis malade, ça lui suffit, il me prescrit le traitement sans autres informations.... 😀😀

car j'ai une autre erreur

Mais moi, je ne suis pas docteur.... 😀😀

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

L'erreur doit se situer à la fin du code car il manquait un next mais je ne sais pas si j'ai bien fait de le mettre la, ou alors il manque qq chose.😕

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Milles excuses, j'essaie de comprendre et j'en oublie l'essentiel M. le pas Docteur 😛

Erreur d'execution'1004':
Erreur définie par l'application ou par l'objet

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Re-,

Tes fichiers se nomment "01.csv" ou "1.csv"?

et tes feuilles "01" ou "1"?

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Ils sont nommés comme ca :

01.csv et les feuilles 01 également

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Re-,

un autre essai :

remplace le début comme ceci :

For Each sh In Sheets
     With Sheets(sh.Name).QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\" & sh.Name & ".csv", Destination:= _
        Sheets(sh.Name).Range("A1"))
        .Name = sh.Name

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Ce n'est pas mieux Doc

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Bon, je ferme ma boule de cristal.....

Zippe ton fichier exemple, et un ou deux fichiers 01, 02...(avec des données bidons....)

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

voila le fichier version super light

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Désolé, je viens de me rendre compte que le test de la macro n'est pas dans le fichier joint.Un coup de copier coller et tout rentrera dans l'ordre.

Milles excuses

Shagg

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

bhbh, une idée de ou provient l'erreur.

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Bonjour,

chez moi, ce code fonctionne, avec ton fichier excel, et les 3 fichiers .csv, ces quatre fichiers étant dans le même répertoire...

Sub import()
Dim Chemin As String
Chemin = ActiveWorkbook.Path & "\"
For Each sh In Sheets
    If IsNumeric(sh.Name) Then
    nb = Format(sh.Name, "00")
     With Sheets(nb).QueryTables.Add(Connection:= _
        "TEXT;" & Chemin & nb & ".csv", Destination:=Sheets(nb).Range("A1"))
        .Name = nb
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End If
Next sh
End Sub

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Merci pour l'information, mais as tu testé la rupture de séquence dans les feuilles ?
C'est la que ça clochait

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Re-,

mais as tu testé la rupture de séquence dans les feuilles

Et toi, as-tu testé ce que je t'ai proposé...

Il scanne tous les onglets, et il rapatrie le fichier correspondant..

Maintenant, si tu n'as pas non plus tous les fichiers....

Une solution (que j'évite, en général...)

Tu mets On Error Resume Next en début de code...

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Oups j'ai répondu un peu trop vite.

J'ai testé en modifiant le chemin des csv et tout a fonctionné correctement, y compris la rupture de sequence dans les feuilles.

Merci bhbh