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

données externes, fichier de longueur variable

T

tof

Guest
Bonjour à tous,

mon problème est le suivant :

à partir d'une macro, j'importe depuis un AS400, une table de données. (données externes)
La macro calcule et affiche des totaux de colonnes.

PB : à l'import suivant, si la table contient des lignes en plus, les totaux ne sont pas décalés d'autant (leur positions est figée selon la programmation de la macro)

Comment faire ?

Merci de votre aide.
 
T

tof

Guest
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 15/02/2005 par Christophe Darçot
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;C:\Program Files\Microsoft Office\Requetes\bud3b.dqy",
Destination:= _
Range("A1"))
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
Range("E2").Select
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=12
Range("E69").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-67]C:R[-1]C)"
Range("E70").Select
End Sub

La macro est créé avec l'utilitaire d'enregistrement (je ne connais pas bien
le langage VBA)

Le problème : si l'import de table suivant comporte des lignes
supplémentaires, le calcul de somme ne fonctionne plus.

Merci de ton aide
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…