Discussion:
Macro VBA
Add Reply
DaJuFarGos
2017-02-13 09:55:24 UTC
Réponse
Permalink
Raw Message
Bonjour, débutant dans le VBA j’essaie de réaliser en partant d’un calendrie
annuel (2017) l’ouverture de plusieurs classeurs d’une même semaine (ex
lundi.xls ; mardi.xls etc … hebdo s1.xls)
J’ai donc mis des boutons en place (S1, S2, etc…) avec une macro que j’a
d’ailleurs trouvé sur ce forum.
Sub TousFichiersDunDossierS1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "serveurService Indicateur 2017Semaine 1"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Workbooks.Open Filename:=File
Next
End If
End Sub

Fonctionne très bien sur la semaine 1, par contre sur une autre semaine ouvr
bien les classeurs mais en ouvre un suplémentaire avec une boite de dialogu
"propriétés des liaisons de donnés" et l'arrêt de la macro en surbrillance jaun
sur "Workbooks.Open Filename:=File" :

Sub TousFichiersDunDossierS3()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "serverServiceIndicateur2017Semaine 3"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Workbooks.Open Filename:=File
Next
End If
End Sub

Quenqu'un aurai une solution SVP ?
MichD
2017-02-13 13:08:16 UTC
Réponse
Permalink
Raw Message
Bonjour,

Est-ce que le fichier qu'Excel tente d'ouvrir lorsque la macro
s'arrête contient vraiment un ou des liens vers d'autres fichiers?

Dans ta procédure, place le curseur de la souris sur "Open" de
la ligne de code, et appuie sur la touche F1. Tu vas voir que cette
la méthode "Open" contient beaucoup de paramètres dont : UpdateLinks
auquel tu peux affecter l'une de ces valeurs :

Valeur Signification
0 Les références externes (liens) ne sont pas mises à jour à l’ouverture du classeur.
3 Les références externes (liens) sont mises à jour à l’ouverture du classeur.

Modifie ta ligne de code "Workbooks.Open Filename:=File" comme ceci :

"Workbooks.Open Filename:=File",UpdateLinks:=0

Les mises à jour des données ne seront pas faites à l'ouverture, mais comme tu
n'as qu'un fichier ayant des liens, tu pourras le faire dès que ce dernier sera ouvert
manuellement si nécessaire.

MichD
dajufargos
2017-02-13 14:37:20 UTC
Réponse
Permalink
Raw Message
Post by DaJuFarGos
Bonjour,
Est-ce que le fichier qu'Excel tente d'ouvrir lorsque la macro
s'arrête contient vraiment un ou des liens vers d'autres fichiers?
Dans ta procédure, place le curseur de la souris sur "Open" de
la ligne de code, et appuie sur la touche F1. Tu vas voir que cette
la méthode "Open" contient beaucoup de paramètres dont
: UpdateLinks
Valeur Signification
0 Les références externes (liens) ne sont pas mises à jour
à l’ouverture du classeur.
3 Les références externes (liens) sont mises à jour
à l’ouverture du classeur.
"Workbooks.Open Filename:=File",UpdateLinks:=0
Les mises à jour des données ne seront pas faites à
l'ouverture, mais comme tu
n'as qu'un fichier ayant des liens, tu pourras le faire dès que ce dernier sera ouvert
manuellement si nécessaire.
MichD
Bjr MichD, quand je suis suis la ligne et que je tape F1 "Worksheets(1).Rang
("A2").value=3.14159"
J'ai changé la ligne de code "Workbooks.Open Filename:=File,UpdateLinks:=0" i
se passe la même chose, ça ouvre tous mes classeurs + celui avec la boite d
dialogue et surbrillance jaune de la nouvelle ligne de commande.
MichD
2017-02-13 15:39:02 UTC
Réponse
Permalink
Raw Message
| ça ouvre tous mes classeurs + celui avec la boite de
| dialogue et surbrillance jaune de la nouvelle ligne de commande.

Quelle est la version d'Excel avec laquelle tu travailles?

De quelle boîte de dialogue parles-tu? Que dit cette boîte de dialogue?
Si après avoir répondu à la boîte de dialogue, tu vas dans le code et que
tu appuies sur la touche F8, est-ce que la macro passe la ligne en
surbrillance jaune?

Quelle est la nature des liens de ce fichier avec d'autres fichiers Excel?
Seulement par des formules dans les cellules des feuilles? Si tu ouvres
manuellement de classeur, est-ce que ces liens sont bons? Peux-tu
mettre à jour chacun de ces liens?

Sans voir ce qui se passe, tu dois être très explicite dans tes explications.

MichD

Loading...