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

2006-01-10 Par sujet Nojid
ECTED] Envoyé : mardi 10 janvier 2006 09:40À : prog@fr.openoffice.orgObjet : Re: [prog] [calc]Macro pour ouvir un document Salut Nojid,   Copie cette macro dans le classeur1 dont la 3ème feuille contient en F15 l'adresse du document à ouvrir   Sub OuvrirFichierAdresseCelluleA1 Dim LesFeu

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

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 :

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