Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Incrementation de valeur dans une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion shaggrhan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

shaggrhan

XLDnaute Nouveau
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)


Code: 
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
 
Trier par date Trier par votes
Re : Incrementation de valeur dans une macro

Bonjour,

par exemple :

Code: 
Sub TEST_Ouverture()
nb = ActiveSheet.Name
If Not IsNumeric(nb) Then Exit Sub
     With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\" & nb & ".csv", Destination:= _
        ActiveSheet.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 Sub
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Merci, ce code fonctionne mais je suis obliger de me positionner dans la feuille pour qu'il importe le contenu.
Est ce possible de définir un intervalle (01-95) et qu'il importe tous les contenus sans qu'il s'arrête sur un fichier manquant (en fait les csv correspondent à un département et tous ne sont pas encore créés), ces fichiers étant mis à jour quotidiennement, des nouveaux peuvent apparaitre.

Merci
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Re-,

peut-être ainsi (si l'onglet n'existe pas, on passe au suivant...)

Code: 
Sub TEST_Ouverture()
For nb = 1 To 95
    nb = Format(nb, "00")
    On Error GoTo suite
    x = Len(Sheets(nb).Name) 'test si la feuille existe
    On Error GoTo 0
     With Sheets(nb).QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\" & 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
suite:
Next nb
End Sub
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Merci, on avance mais la vérification de l'existence d'une feuille ne doit pas fonctionner, je n'ai pas de feuille 9 et j' ai ce message

Erreur d'execution '9'
L'indice n'appartient pas à la selection
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Re-,

le monsieur, il n'a pas du copier tout le code, notamment ces lignes :

Code: 
    [COLOR="Red"]On Error GoTo suite[/COLOR]
    x = Len(Sheets(nb).Name) 'test si la feuille existe
    [COLOR="Red"]On Error GoTo 0[/COLOR]
....
.....
....
[COLOR="Red"]suite:[/COLOR]
Next nb
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Bonsoir Shaggrhan, bhbh🙂

j'aurais peut être placé le "on error goto 0" plus loin ...

Code: 
   On Error GoTo suite
    x = Len(Sheets(nb).Name) 'test si la feuille existe
    ....
.....
....
suite:
On Error GoTo 0
Next nb

bonne soirée
@+

Aarf : pas sur tout compte fait...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Re-,

Salut Pierrot (non, c'est pareil, à partir du moment où nb dépasse le nombre de feuilles, ça bug....)

shaggrhan, on va essayer ainsi

Si tu as des noms de feuilles autres que "01", "02"....."95", il faudra soigneusement les éviter en rajoutant du code...

Code: 
For Each sh In Sheets
    nb = Format(sh.Name, "00")
     With Sheets(nb).QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\" & 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

Edit, en déclarant sh as WorkSheet, of course...
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Merci, pour vos réponses si rapides.

Je n'ai pas d'autres feuilles que des "01" "95", elles correspondent à un numéro de département, mais il se peut qu'il y ait un trou, ici en l'occurence entre la feuille "08" et "10".
Jusqu'à "08" cela fcontionne, après plus rien, donc je ne sais pas si ca coince sur la "09" manquante ou sur la "10".
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Re-,

avec mon dernier code, on ne vas importer que sur les feuilles existantes, donc normalement pas de source d'erreurs, à moins que tu n'aies pas de fichier .Csv du nom d'une des feuilles...

Pour l'Edit, c'est juste pour déclarer la variable :

Code: 
Dim sh as WorkSheet

en tout début de code....
 
Vote positif 0 Vote négatif
Re : Incrementation de valeur dans une macro

Est ce bien ce code car j'ai une autre erreur




Code: 
Sub TEST_Ouverture()

Dim sh As Worksheet
For Each sh In Sheets
    nb = Format(sh.Name, "00")
     With Sheets(nb).QueryTables.Add(Connection:= _
        "TEXT;E:\Mes documents\Mes sources de données\Out\" & 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
Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
123
Staple1600
  • Question Question
Autres importer donnees externes
Réponses
1
Affichages
383
don_pets
J
  • Résolu(e)
XL 2016 Placer des données dans un fichier Excel avec un code VBA
Réponses
2
Affichages
863
Staple1600
J
  • Question Question
XL 2010 importer plusieurs fichier txt dans le même classeur
Réponses
9
Affichages
2 K
Staple1600
C
  • Question Question
Microsoft 365 Problème avec < Refresh BackgroundQuery >
Réponses
2
Affichages
1 K
Coco_lac
C
S
  • Question Question
XL 2013 Problème de copie de cellule quand valeur X est détectée
Réponses
2
Affichages
1 K
sempaimayfire
S
P
  • Question Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
T
  • Question Question
XL 2010 Import et enregistrement d'un fichier CSV en Excel
Réponses
0
Affichages
1 K
Tophe2
T
V
  • Question Question
XL 2016 Mise en forme fichier texte sous excel
Réponses
7
Affichages
2 K
VBA
V
P
  • Question Question
Erreur 1004 sur VBA pour novice
Réponses
5
Affichages
2 K
gosselien
B
  • Question Question
Recopie fichier texte
Réponses
3
Affichages
806
Bruce68
B
N
  • Question Question
comment créé une boucle dans une macro
Réponses
1
Affichages
1 K
thebenoit59
T
P
  • Question Question
Excel 2010 vers Excel 2003 - Erreur 1004 .Refresh backgroundquery :=False
Réponses
1
Affichages
1 K
Caillou
C
P
  • Question Question
Requête excel : Coordonnées GPS google Map
Réponses
2
Affichages
1 K
Phagege@
P
X
  • Question Question
question simple de variabilisation
Réponses
0
Affichages
571
xorre
X
  • Question Question
Récupérer des données d'un CSV pour les replacer dans excel par VBA
Réponses
2
Affichages
1 K
Oraff
C
  • Question Question
Import fichier texte choix de la colonne
Réponses
3
Affichages
1 K
creal69360
C
B
  • Question Question
Importer une page web dans un onglet, avec une boucle
Réponses
3
Affichages
2 K
betteggan
B
T
  • Question Question
Macro VBA choix + import fichier texte à largeur fixe
Réponses
4
Affichages
5 K
THERY
T
A
  • Question Question
EXCEL - VBA - Afficher la date de création d'un fichier dans une cellule excel
Réponses
1
Affichages
2 K
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…