[VBA-E] top et left de cellules ...

**ouskel'n'or** · 01/02/2006, 16h34

Une réponse qui vient tout droit de SilkyRoad :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Ouvrir un document Word existant à partir d'Excel  -> SilkyRoad
'**************************************
Sub ouvrirDocWordExistant()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim DocWord As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set DocWord = appWrd.Documents. _
Open("C:\mes documents\monDocument.doc", ReadOnly:=True)
End Sub
 
'Créer un nouveau document Word à partir d'Excel
'*****************************************
Sub ouvrirNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
docWrd.SaveAs "C:\monDocument.doc"
End Sub

Pour ton autre question, je regarde

A+

**ouskel'n'or** · 01/02/2006, 16h39

pour chaque fichier xls présent dans le repertoire je crée un lien vers le fichier xls du repertoire

si tu n'ouvres pas le fichier, je ne sais pas faire mais il me semble avoir vu passer un thread là-dessus... en VB
Sinon, et si tu as le nom du fichier, sans précision, je ne vois pas à quel niveau tu places le problème.
Malgré tout ma bonne volonté

A+

**ogenki** · 02/02/2006, 13h05

bin je veu les créer quand il n'exciste pas et ne pas les créer quand il existe...
il y a un moyen pour testé la presence de bouton dans une cellule ?

( je ne pense pas vu que le bouton ne " fait pas partie " de la feuille..)

**ouskel'n'or** · 02/02/2006, 15h06

Voilà !
Tu peux savoir si tu as un bouton en testant sa présence (!)
J'ai délayé mais c'est pour que tu comprennes ce que je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With Workbooks("Fichier.xls")
    With .ActiveSheet 
        r = .OLEObjects.Count
        if r = 0 then
              'Tu crées tes boutons
        endif
    End With
End With