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

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Tu es au taquet,

J'ai pas eu le temps de m'excuser de ne pas avoir essayer la feuille que tu répondais déja 😱

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Une autre demande (si j'osais) est ce possible de faire la même chose avec l'onglet conclusions:

Je m'explique faire un copier coller de la ligne 6 à 19 plus bas et d'instrumenter les formules avec la valeur d'une feuille?

Si ce n'est pas trop abuser.

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Re-,

regarde le fichier joint..

PS, et ne me dis pas que cela ne marche pas AVANT d'avoir testé.... 😉

Edit, il faut laisser la ligne 6, ne pas l'effacer

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Genial,

Ca marche Super, j'ai juste le détail à modifier pour les critères mais avec les formules que tu as utilisés, je devrais pouvoir m'en sortir, sinon au pire je sais à qui m'adresser.

Merci le bhbh, merci le forum Excel Downloads

Shagg

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

bhbh,

SI je voulais ajouter des nouvelles feuilles non numérique et également les mettre à jour.

Cela me permettrai d'affiner encore mes stats

Merci

Shagg

 

[Cousinhub]

Re : Incrementation de valeur dans une macro

Bonjour,

Merci le bhbh, merci le forum Excel Downloads

I'm not an aminal, I'm a human...

SI......

Why Not?

 

[shaggrhan]

Re : Incrementation de valeur dans une macro

Salut,

Houla il en faut peux pour que tu te braque mon ami,

j'avais mis le car je voulais dire "LE DOC" en référence à ta citation mais j'ai changé d'avis à la dernière minute, je m'en excuse si ca t'a vexé.
Et pour le SI, c'est simple, Si tu voulais bien m'aider, ca m'arrangerait sinon je ferais sans, tu m'as déja bien aidé, en fait non tu as tout fait et je voulais juste encore un peu plus.

Pourrais-tu modifier ta macro pour qu'elle fonctionne avec n'importe quel type de nom de feuille, toujours sur 2 lettres sans pour autant enlever les 01,02 etc...J'aurais au final des feuilles 01,02,...,95,BX,PA,TO,...)

Merci BHBH grand dieu de la macro 😛