OVH Cloud OVH Cloud

Macro

3 réponses
Avatar
Mario Roy
Bonjour

Dans un fichier (classeur 1 )je veux mettre une macro qui lors de son
lancement ouvre le fichier que je demande dans la feuil1 de la cellule A1
.Le nom de ce fichier va changer de facon régulière et a chaque fois que je
vais lancer la macro le nouveau fichier dois s'ouvrir .

J'aimerai avoir la formule pour cette macro.

Merci de votre aide

3 réponses

Avatar
michdenis
Bonsoir Mario,


Dans le ThisWorkbook, tu incris la procédure suivante qui va s'exécuter à chaque fois que tu vas ouvrir ton classeur.

'----------------------
Private Sub Workbook_Open()

Ouvrir_Le_Fichier

End Sub
'----------------------


Dans un module standard, tu copie ce qui suit :
Dans la cellule A1 de la Feuil1 de ton classeur ou de l'équivalent selon ton application, tu dois avoir mis le chemin et
le non du fichier que tu veux ouvrir,

A1 = "C:LeCheminDuFichierMonClasseur.xls"

'-----------------------
Sub Ouvrir_Le_Fichier()

Workbooks.Open Worksheets("Feuil1").Range("A1")

End Sub
'-----------------------

La macro Ouvrir_Le_Fichier peut être lancé à n'importe quel moment à partir de la fenêtre des Macro (Alt+F8)



Salutations!


"Mario Roy" a écrit dans le message de news:
Bonjour

Dans un fichier (classeur 1 )je veux mettre une macro qui lors de son
lancement ouvre le fichier que je demande dans la feuil1 de la cellule A1
.Le nom de ce fichier va changer de facon régulière et a chaque fois que je
vais lancer la macro le nouveau fichier dois s'ouvrir .

J'aimerai avoir la formule pour cette macro.

Merci de votre aide
Avatar
Mario Roy
Bonsoir

Merci pour votre réponse aussi rapide

Est-ce possible d'inscrire seulement le nom du fichier en A1 sans ëtre
obliger d'inscrire le chemin au complet

Les chemins je voudrais les inclure dans les macro car je vais avoir
plusieurs macro a faire ainsi que plusieur chemin différent

Salutation

"michdenis" a écrit dans le message de
news:%
Bonsoir Mario,


Dans le ThisWorkbook, tu incris la procédure suivante qui va s'exécuter à
chaque fois que tu vas ouvrir ton classeur.


'----------------------
Private Sub Workbook_Open()

Ouvrir_Le_Fichier

End Sub
'----------------------


Dans un module standard, tu copie ce qui suit :
Dans la cellule A1 de la Feuil1 de ton classeur ou de l'équivalent selon
ton application, tu dois avoir mis le chemin et

le non du fichier que tu veux ouvrir,

A1 = "C:LeCheminDuFichierMonClasseur.xls"

'-----------------------
Sub Ouvrir_Le_Fichier()

Workbooks.Open Worksheets("Feuil1").Range("A1")

End Sub
'-----------------------

La macro Ouvrir_Le_Fichier peut être lancé à n'importe quel moment à
partir de la fenêtre des Macro (Alt+F8)




Salutations!


"Mario Roy" a écrit dans le message de
news:

Bonjour

Dans un fichier (classeur 1 )je veux mettre une macro qui lors de son
lancement ouvre le fichier que je demande dans la feuil1 de la cellule A1
.Le nom de ce fichier va changer de facon régulière et a chaque fois que
je

vais lancer la macro le nouveau fichier dois s'ouvrir .

J'aimerai avoir la formule pour cette macro.

Merci de votre aide






Avatar
michdenis
Bonsoir Mario,


"Est-ce possible d'inscrire seulement le nom du fichier en A1"

Oui, la seule chose qui est importante c'est que cette ligne de commande soit complète.

Tu pourrais avoir par exemple : (une des façons de faire)

'-----------------------
Sub Ouvrir_Le_Fichier()
Dim Chemin As string, Fichier as String

Chemin = "c:Mes documentsExcel"
Fichier = ThisWorkbook.Worksheets("Feuil1").range("A1")

'& .xls doit être ajouté à la ligne de commande seulement si
'L'extension du fichier n'est pas présente dans la cellule A1

Workbooks.Open Chemin & Fichier & .xls

End Sub
'-----------------------


Salutations!



"Mario Roy" a écrit dans le message de news:%
Bonsoir

Merci pour votre réponse aussi rapide

Est-ce possible d'inscrire seulement le nom du fichier en A1 sans ëtre
obliger d'inscrire le chemin au complet

Les chemins je voudrais les inclure dans les macro car je vais avoir
plusieurs macro a faire ainsi que plusieur chemin différent

Salutation

"michdenis" a écrit dans le message de
news:%
Bonsoir Mario,


Dans le ThisWorkbook, tu incris la procédure suivante qui va s'exécuter à
chaque fois que tu vas ouvrir ton classeur.


'----------------------
Private Sub Workbook_Open()

Ouvrir_Le_Fichier

End Sub
'----------------------


Dans un module standard, tu copie ce qui suit :
Dans la cellule A1 de la Feuil1 de ton classeur ou de l'équivalent selon
ton application, tu dois avoir mis le chemin et

le non du fichier que tu veux ouvrir,

A1 = "C:LeCheminDuFichierMonClasseur.xls"

'-----------------------
Sub Ouvrir_Le_Fichier()

Workbooks.Open Worksheets("Feuil1").Range("A1")

End Sub
'-----------------------

La macro Ouvrir_Le_Fichier peut être lancé à n'importe quel moment à
partir de la fenêtre des Macro (Alt+F8)




Salutations!


"Mario Roy" a écrit dans le message de
news:

Bonjour

Dans un fichier (classeur 1 )je veux mettre une macro qui lors de son
lancement ouvre le fichier que je demande dans la feuil1 de la cellule A1
.Le nom de ce fichier va changer de facon régulière et a chaque fois que
je

vais lancer la macro le nouveau fichier dois s'ouvrir .

J'aimerai avoir la formule pour cette macro.

Merci de votre aide