Une macro qui lierai une feuille Excel avec un tableau
Bonjour,
je viens a vous aujourd'hui puisque cela fais 2 jours que j'essai de régler mon problème par moi-même mais sans résultat.
le problème étant que j'ai un tableau qui est relié au donner des feuilles provenant du même fichier excel.
j'aimerais avoir une macro qui ajouterai une feuille se nommant selon la nouvelle unité, et qui relierai les donné de cette feuille aux tableau existant.
Merci, Kabize
Bonjour,
je viens a vous aujourd'hui puisque cela fais 2 jours que j'essai de régler mon problème par moi-même mais sans résultat.
le problème étant que j'ai un tableau qui est relié au donner des feuilles provenant du même fichier excel.
j'aimerais avoir une macro qui ajouterai une feuille se nommant selon la nouvelle unité, et qui relierai les donné de cette feuille aux tableau existant.
Merci, Kabize
Enfaite mon probleme se situe ici : (il faudrait que le nom de la feuilles soit le meme que la designation sur le tableau)
Sub maaaaaa()
'
' maaaaaa Macro
'
'
Sheets("TABLEAU").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("N UNITE").Select
Range("A7").Select
Selection.Copy
Sheets("TABLEAU").Select
Range("B12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("N UNITE").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TABLEAU").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("HHH").Select
Application.CutCopyMode = False
Sheets("HHH").Copy Before:=Sheets(10)
Range("G18:H32").Select
Selection.ClearContents
Range("C18:D32").Select
Selection.ClearContents
Sheets("N UNITE").Select
Selection.Copy
Sheets("HHH (2)").Select
Sheets("HHH (2)").Name = "ZZZ"
Sheets("TABLEAU").Select
Range("D12").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ZZZ!R[6]C"
Range("E12").Select
ActiveCell.FormulaR1C1 = "=ZZZ!R[7]C[-1]"
Range("F12").Select
ActiveCell.FormulaR1C1 = "=ZZZ!R[8]C[-2]"
Range("G12").Select
ActiveCell.FormulaR1C1 = "=ZZZ!R[9]C[-3]"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=ZZZ!R[10]C[-4]"
Range("H13").Select
Sheets("N UNITE").Select
Selection.ClearContents
Range("A7").Select
Selection.ClearContents
End Sub