Recherche:

Bonjour,

Sinon, à quoi sert ton script ? Et pourquoi une partie en vbs et l'autre en batch ?
Est-ce que quelquechose comme cela te conviendrait ?


Const ForReading = 1, ForWriting = 8
Dim...

Bonjour,

Pour ma part, je gère le souci via un test d'accessibilité des machines :


Sub online
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from...

Bonjour,


=AUJOURDHUI()

++

Bonjour,

Est-ce mieux ainsi ?


Sub xy()

Dim xval()

Ma_Liste = Worksheets(1).Range("C7:C12")

Bojnour,


Sub xy()
'
Dim tabxy()

xmax = 6
ymax = 6

Bonjour,

Personnellement je protège mes cellules (mes lignes, mes colonnes) de calcul en les verrouillant (Format de cellule/Protection/Verrouillée).
Puis j'active la protection de la feuille en...

Bonjour,

Voici le principe :


Dim Wkb As Workbook
Wouvert = False
For Each Wkb In Workbooks
If Wkb.Name = Nom_du_fichier Then
Wouvert = True

Bonjour,

Pour connaitre le nombre de jours entre 2 dates, il suffit de les soustraire ... après quelques vérifications.


Sub Macro1()

' Saisi 2 dates en cellules A1 et B1
' Lance la macro

Bonjour,

Sinon en VBA, ça peut donner quelquechose comme ça :


Sub Couleur_Alternee()
Cellule_debut = "E2"
Colonne = Range(Cellule_debut).Column
Ligne_debut = Range(Cellule_debut).Row...

Bonjour,

Je peux te proposer une macro qui traitera ton tableau à chaque exécution :

Sub Fond_Jaune()
Range("B3:F9").Select 'Le tableau à traiter
colonne_resultat = 8 'Colonne H dans...

Bonjour,

Si tu tiens vraiment au Sendkeys, ça donne quelquechose comme ça :


Dim objFSO, Wsh, tempCsvPath

tempCsvPath = ".\fichier.txt"

Set objFSO =...

Bonjour,

Je vois déjà 2 lignes incorrectes :


if left( ObjFichier.Name,6) = "PFZ_RT" then


strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & Destination_path

Bonjour,

Voici ce que je peux te proposer :

strOrdinateur = "."
Set objWMISer= GetObject("winmgmts:\\" & strOrdinateur & "\root\CIMV2")
Set colUsers= objWMISer.ExecQuery( "SELECT * FROM...

En relisant ta question, je crois comprendre que tu souhaites que seule l'ouverture de session en administrateur déclenche le script ... !?

Dans ce cas, il faudrait ajouter une condition dans le...

Salut johnyboyy !

Alors, d'abord le script qui lance les applis peut ressembler à cela (launcher.bat) :

echo off
net use s: /delete /y
net use s: \\server\folder /persistent:yes
explorer.exe...

Salut !
Je pourrais t'aider en VBA, mais pas en VBS (à cause de la notion d'ActiveWorkBook).
Est-ce qu'une macro Excel te conviendrait ?

Re,

A vrai dire je ne sais pas trop ce que tu essayes de faire.
Néanmoins, voici comment générer et enregistrer un fichier Excel au format que tu souhaites :



Set WSHShell =...

Bonjour,

A première vue tu souhaites enregistrer un fichier avec un nom du type : "Reception_28/3/2018_14:16:4.xls" :aie:
Essai déjà sans les / ni les :


jour = Day(Now) & "."& Month(Now) &...

Salut neodardevil !

Ce ne serait pas jsute une question de syntaxe ?

Ligne 60

FSO.CreateFolder(constJChatProfil)

++

Bonjour,

Quelque chose comme ça ?


Const ForReading = 1, ForWriting = 8
Dim fichier_entree, fichier_sortie, lect, ecr, Texte, Extract
Set oFSO =...

Bonjour Papyxy !

Je ne comprends pas le début de ta question concernant la base de registre...
Pour lancer un exécutable sans préciser son chemin d'accès, il faut ajouter son chemin d'accès dans...

Bonjour NeriXs !

Je te propose quelque chose du genre ... (à optimiser à ta sauce !)


Const ADS_SCOPE_SUBTREE = 2
strUserSAMAccountName = InputBox("Entrer l'identifiant recherché")
If...

Bonjour Marion33,

J'espère avoir compris ton besoin ...
Voici la solution que je te propose :


Dim fso, fileWriter
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileWriter =...

Salut !

J'ai un script qui recherche un profil local sur une liste de postes Win7 ...
(il recherche un identifiant dans C:\Users\ sur les poste de la liste)

Comme ton script, il fonctionne par...

Salut !

Voici un petit script .HTA


<title>Emprunt_Retour_Matériel</title>
<HTA:APPLICATION
APPLICATIONNAME="Service Informatique"
BORDER="thin"
SCROLL="no"