RE: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Nojid
Merci pour la rapidité de la réponse. C'est tout à fait ce que je voulais. J'y étais presque arrivé ; j'avais mis un point au lieu d'une parenthèse après FromURL et, sot que je suis, je ne l'avais pas vu. Encore merci De : Catherine Bancillon [mailto:[EMAIL PROTECTED] Envoyé : mardi 10 j

Re: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Catherine Bancillon
c automatique dans ma config! - Original Message - From: Francois Gatto To: prog@fr.openoffice.org Sent: Tuesday, January 10, 2006 6:10 PM Subject: Re: [prog] [calc]Macro pour ouvir un document Bonsoir,Merci des réponses que tu apportes. Mais pourrais-tu suppr

Re: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Francois Gatto
Bonsoir, Merci des réponses que tu apportes. Mais pourrais-tu supprimer les demandes de confirmation de lecture ? Merci d'avance. François Gatto Catherine Bancillon a écrit : Salut Nojid, Copie cette macro dans le classeur1 dont la 3ème feuille contient en F15 l'adresse du document à ouvr

Re: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Catherine Bancillon
Salut Nojid,   Copie cette macro dans le classeur1 dont la 3ème feuille contient en F15 l'adresse du document à ouvrir   Sub OuvrirFichierAdresseCelluleA1 Dim LesFeuilles As Object, UneFeuille As Object Dim UneCellule As Object, document As Object Dim  adresseDoc As String, Chemin As String

Re: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Catherine Bancillon
J'ai oublié un Dim Chemin As String   Cathy - Original Message - From: Catherine Bancillon To: prog@fr.openoffice.org Sent: Tuesday, January 10, 2006 9:17 AM Subject: Re: [prog] [calc]Macro pour ouvir un document Bonjour Nojid, essaie ce code : Sub Ouvrir

Re: [prog] [calc]Macro pour ouvir un document

2006-01-10 Par sujet Catherine Bancillon
Bonjour Nojid, essaie ce code : Sub OuvrirFichierAdresseCelluleA1 Dim LesFeuilles As Object, UneFeuille As Object Dim UneCellule As Object, document As Object Dim  adresseDoc As String Dim propFich() LesFeuilles = ThisComponent.SheetsUneFeuille = LesFeuilles.getByIndex(0) '0 pour 1ère feuill