Différence entre windows script et macro Excel!!!!!

Re : Différence entre windows script et macro Excel!!!!!

Salut BlueAngel2005,

Tu fais appel dans ton script, à une variable d'environnement Excel 😕


Essaye de remplacer XlDown par ça valeur numérique soit : -4121

Sous toutes réserve !

A+

Re : Différence entre windows script et macro Excel!!!!!

OH Merci!!!! Mille merci BrunoM45 ça marche!!!!!🙂
Comment je trouve la coresspendance entre ces variables?

Selection.PasteSpecial xlValues, xlNone, False, False sûre que cette ligne la ne va pas marcher étant que xlValues et xlNone sont des variables Excel
et pour la valeur de cela aussi "xlUp".
il n'y pas un moyen de retrouver cette correspendance??

Re : Différence entre windows script et macro Excel!!!!!

Bonjour Blueangel, Bruno

dans l'éditeur vba, barre de menu => point d'interrogation => dans l'aide qui s'ouvre, => référence visual basic microsoft excel => énumérations => constantes microsoft excel.

bonne fin d'après midi
@+

Re : Différence entre windows script et macro Excel!!!!!

Parfait Merci pour ta réponse!!

Re : Différence entre windows script et macro Excel!!!!!

Re,
Salut Pierrot93,

Sinon dans l'éditeur VBA, Fenêtre d'éxécution tu tapes par exemple :
Debug.Print xlValues

Tu appuies sur la touche Entrée et tu as le résultat 😉

Voili, voilà 😀

Re : Différence entre windows script et macro Excel!!!!!

eh les gars je galére encore deux choses sur les quelle mon script ne marche toujours pas
1-La premiére
Private Function fctM_OxyhydroxydesInfo(objExcel,SourceFileName , DestFileName)
Dim gw
objExcel.Workbooks.Open(PathDirectory& SourceFileName&"\"&SourceFileName&".xls")
Set objWorksheet = objExcel.Worksheets("Sheet1")
'Initialisation des variables
objWorksheet.Activate
DrillingName = objWorksheet.Range("K1:K1")

Set objWorksheet = objExcel.Worksheets("Sheet2")
objWorksheet.Activate
'calcul du numéro de la premiere ligne vide
K = 1
Do While objWorksheet.Cells(K, 1) <> ""
K = K + 1
Loop
With objExcel
Set gw = Union(objWorksheet.Range("A2:B" & K), objWorksheet.Range("G2:G" & K))
gw.Select
.Selection.Copy 'copier la selection
.Workbooks.Open(PathDirectory& SourceFileName&"\"&DestFileName)
.Worksheets("Sheet1").Activate
.Worksheets("Sheet1").Range("B2😀" & K).Select 'selection des cellules
.Selection.PasteSpecial -4163, -4142 , False, False
.Worksheets("Sheet1").Range("A2:A" & K - 1).Select 'selection des cellules
.Selection.Value = DrillingName
End With
End Function


l'erreur est la suivante Erreur d'exécution Microsoft VBScript: Type incompatible: 'Union'
Comment faire pour éxécuter une union dans WSH
le deuxiemme probléme la lecture des fichiers je la fais en boucle du coup il y a plusieux process excel qui se lance même en le remettant Set objExcel=nothing il instancie toujours le process comment on fait pour tuer le process au moment de l'exécution
Merci les gars je trouve rien sur le net abordant wsh et Excel