Forums XLPages

Tous les messages (michel_m)

Re: Comment tester si un fichier excel est déjà ouvert dans une macro
#1
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 15-02-2011 18h03
Bonjour
J
e ne résiste au plaisir de montrer cette fonction écrite par Didier dans sa jeunesse
Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf  sur forum www.Excel-downloads.com (merci)
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function




Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: Modifier des codes par macro
#2
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 01-11-2010 10h47
Bonjour,

on peut, bien sûr en utilisant vbcomponents (je regarderai s'il n'y a pas un topo là dessus sur ce site...)

Sinon, pourquoi ne pas utiliser une macro paramétrée ?
style
sub lamacro(lazone,flag)

'flag est un booléen qui ordonnera d'isoler tes controles:
Select Case Application.CountIf(range(lazone), "n")
...
If flag then
Label14.visible=false
...
else
Label14.Caption = [B19] . Value
....
end if

et pour commander tout ca

macro header
dim drapeau as boolean
drapeau=true
la macro
lamacro "B2:B18", drapeau





Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: Recherche valeur.
#3
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 31-05-2010 16h28
gmh,

très sympa de ta part de ne pas être resté sur le m^me fil !!!

l'esclave de service
Hors Ligne
Rapport   Haut 

Re: Recherche valeur.
#4
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 28-05-2010 10h48
Bonjour,

essaies ce code:
Option Base 1
Sub recapituler()
Dim dercol As Byte, entete As String, cptr As Byte, nbre As Integer
Dim tablo
Dim lig As Integer, donnee As Byte
dercol = Sheets("récap").Range("IV3").End(xlToLeft).Column
entete = Range("B3")
 With Sheets("données")
    nbre = Application.CountIf(.Columns(2), entete)
    ReDim tablo(dercol - 1, nbre)
    For cptr = 2 To dercol
        entete = Sheets("récap").Cells(3, cptr)
        lig = 1
        donnee = 1
        For cptr_donn = 1 To nbre
            lig = .Columns(2).Find(entete, .Cells(lig, 2)).Row
            tablo(cptr - 1, donnee) = Replace(.Cells(lig, 3), "-", 0)
            donnee = donnee + 1
        Next
    Next
End With

Application.ScreenUpdating = False
With Sheets("récap")
    .Range("B4").Resize(nbre, dercol - 1) = Application.Transpose(tablo)
    .Activate
End With


End Sub


Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: Traitement automatique série de fichier
#5
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 20-01-2010 18h36
Bonjour,

Pour 1 fois que je viens sur le forum et que toutes les discussions ne sont pas marquées résolues!!!
macro rapide proposée (déclarations des variables à écrire):

Sub recup()
'initialisations
lig = 1 'ligne de départ
onglet = "feuil1"
chemin = "V:\VME\COTATIONS"
applications ScreenUpdating = False
'action avec fichiers sources restant fermés
ChDir chemin
fichier = Dir(chemin & "*.xls")
Do While fichier <> ""
    Cells(lig, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R8C11") 'R8C11<==> K8
    Cells(lig, 2) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R11C12") 'Range("L11").Value
    Cells(lig, 3) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R12C13") '.Range("M12").Value
    Cells(lig, 4) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R13C13") 'M13
    Cells(lig, 5) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R16C8") 'K16
    Cells(lig, 6) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R16C14") 'N16
    lig = lig + 1
    fichier = Dir ' Fichier suivant
Loop
MsgBox "actualisation terminée"
End Sub
 





Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: FELICITATIONS Didier (concours Logithèque)
#6
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 09-01-2008 19h01
BRAVO DIDIER! Félicitations et respect [IMG]http://smileys.sur-la-toile.com/repository/Respect/bravo-encouragements-994.gif[/IMG]

[IMG]http://smileys.sur-la-toile.com/repository/Respect/0038.gif[/IMG]

Amicalement

Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: CALCUL DE DATE
#7
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 22-12-2007 17h11
Bonjour,
XL <2007
une 1° piste à améliorer sans doute

Il faut au préalable que tu coches "utilitaire d'analyse" dans "outils-macro complémentaires"

dans, par exemple, B2 tu saisis la date d'entrée

en C2, tu inscris le nombre de jours de congé pris



en D2 tu écris cette formule:=MOIS.DECALER(B2+C2;20)
qui te donne la date de la prime

Amicalement
Michel_M
Hors Ligne
Rapport   Haut 

Re: VBA lire les propriétés de fichiers fermés (BuiltinDocumentProperties)
#8
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 20-09-2007 19h21
Bonjour Luki , Didier, le forum

Une solution "au cas où" qqn aurait le m^ pb:

Private fich As String

Sub lister_fichiers
()
chemin "F:documentsexcelessai" '  à adapter
ChDir chemin
fich = Dir("*.doc")
 While fich <> ""
        fich = chemin & fich
        lire_propriétés
        fich = Dir
Wend
End Sub

Sub lire_propriétés()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fichier = objFSO.GetFile(fich)
Debug.Print "Date création: " & fichier.DateCreated
Debug.Print "Dernier accès: " & fichier.DateLastAccessed
Debug.Print "Dernière modif: " & fichier.DateLastModified
Debug.Print "Nom: " & fichier.Name
Debug.Print "Size: " & fichier.Size
Debug.Print "Type: " & fichier.Type
End Sub



si on veut connaitre les attributs il faut utiliser la propriété "attributes" de l'objet (ici, fichier)qui retourne un integer:

1: lecture seule
2: fichier caché

et pour d'autre recherches:
4:fichier systeme

bref! "yaka" faire une boucle

Amicalement
Michel_M
Hors Ligne
Rapport   Haut