Discussion :

[TheFlyingDutchman]

Bonjour,

Je cherche depuis quelques jours en vain une manière de coder afin que la sélection de la plage de données se fasse automatiquement selon le fichier du jour (qui peut donc contenir plus ou moins de lignes).
J'ai déjà testé plusieurs solutions que j'ai trouvées sur internet, sans que cela marche. Je vous mets la portion de code correspondant aux manipulations macros que j'ai faites afin de la créer. Je sais qu'il y a quelque chose à changer dans la partie "SourceData" mais je n'ai pas trouvé quoi mettre.

Merci d'avance pour votre aide.

Code :

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

1
2
3
4
5
6
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "SUBSCRIBER!R1C1:R700C11", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Feuil1!R3C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Feuil1").Select

[joe.levrai]

Bonjour,

essaye comme ceci, c'est écrit à la volée et non testé :

Code :

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

SourceData:= Thisworkbook.Worksheets("SUBSCRIBER").Cells(1,1).CurrentRegion.Address   ' pas sûr du .Address, peut-être à virer

Currentregion définie la plage continue où est situé le range qui le précède (ici la cellule A1).

Cela permet de sélectionner toute la plage continue en partant d'une de ses cellules.

[TheFlyingDutchman]

Bonjour, merci pour ta réponse.
Je tente des instructions après le SourceData:= mais lorsque je lance la macro il m'affiche une erreur de syntaxe pour la fin que je n'ai pas touché:

Code :

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

1
2
TableDestination:="Feuil1!R3C1", TableName:="TCD", _
        DefaultVersion:=xlPivotTableVersion10

J'ai aussi essayé de reprendre le code qui a été fait ici (https://www.developpez.net/forums/d1...ees-variables/) qui ressemble fortement à ce que je cherche, mais pareil, erreur de syntaxe pour la fin du code que je ne touche pas.

[TheFlyingDutchman]

Bonjour, je suis toujours en galère.
Pour repartir sur de bonnes bases, j'ai décidé de coder à la main au lieu d'utiliser les macros. Je ne comprends pas pourquoi mes commandes pour sélectionner ma plage de données ne marche jamais.

Voici une commande basique que j'ai essayé:

Code :

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

1
2
3
4
5
Sub SelectionPlageUtilisee()
 
    Feuil1.UsedRange.Select
 
End Sub

Quand je lance ce code, j'ai cette erreur qui s'affiche (pj).
Je ne comprends pas ce qui bloque, et vous remercierais si vous pourriez m'aider.