Passage d'un fichier Excel à un autre - Suite question
6 réponses
Al
Re bonjour,
Je travaille sur "fich1"
J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier
déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche
Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en
arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui...
Al
On error resume next set Wk = Workbooks(Fichier) if err <>0 then err = 0 set Wk = Workbooks.Open(Chemin & Fichier) end if
Et tu continues ton code en utilisant Wk. La variable Objet Wk a les mêmes méthodes ou propriétés que si tu utilisais : Workbooks(fichier).Worksheets("Feuil1").range("A1") c'est plus court en utilisant la variable. Wk.Worksheets("Feuil1").Range("A1")
Si tu désires seulement faire disparaître le message si ton fichier est déjà ouvert :
Le danger avec cette approche, c'est que tu risques de perdre le travail déjà fait sur le fichier qui était déjà ouvert.
"Al" a écrit dans le message de groupe de discussion :
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
Bonjour,
Pour tester si ce fichier est déjà ouvert :
A -
Dim Fichier As string
Dim Wk As Workbook
dim Chemin As string
On error resume next
set Wk = Workbooks(Fichier)
if err <>0 then
err = 0
set Wk = Workbooks.Open(Chemin & Fichier)
end if
Et tu continues ton code en utilisant Wk.
La variable Objet Wk a les mêmes méthodes ou propriétés
que si tu utilisais :
Workbooks(fichier).Worksheets("Feuil1").range("A1")
c'est plus court en utilisant la variable.
Wk.Worksheets("Feuil1").Range("A1")
Si tu désires seulement faire disparaître le message
si ton fichier est déjà ouvert :
Le danger avec cette approche, c'est que tu risques de perdre
le travail déjà fait sur le fichier qui était déjà ouvert.
"Al" <al@wanadoo.fr> a écrit dans le message de groupe de discussion :
Ou8XFns7KHA.5808@TK2MSFTNGP02.phx.gbl...
Re bonjour,
Je travaille sur "fich1"
J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier
déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche
Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en
arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui...
Al
On error resume next set Wk = Workbooks(Fichier) if err <>0 then err = 0 set Wk = Workbooks.Open(Chemin & Fichier) end if
Et tu continues ton code en utilisant Wk. La variable Objet Wk a les mêmes méthodes ou propriétés que si tu utilisais : Workbooks(fichier).Worksheets("Feuil1").range("A1") c'est plus court en utilisant la variable. Wk.Worksheets("Feuil1").Range("A1")
Si tu désires seulement faire disparaître le message si ton fichier est déjà ouvert :
Le danger avec cette approche, c'est que tu risques de perdre le travail déjà fait sur le fichier qui était déjà ouvert.
"Al" a écrit dans le message de groupe de discussion :
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
Daniel.C
Essaie :
Dim Top As Boolean For i = 1 To Workbooks.Count If Workbooks(i).Name = "fich2.xlxs" Then Top = True Exit For End If Next i If Top = False Then Workbook.Open "fich2.xls"
Daniel
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
Essaie :
Dim Top As Boolean
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "fich2.xlxs" Then
Top = True
Exit For
End If
Next i
If Top = False Then Workbook.Open "fich2.xls"
Daniel
Re bonjour,
Je travaille sur "fich1"
J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier
déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche
Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en
arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui...
Al
Dim Top As Boolean For i = 1 To Workbooks.Count If Workbooks(i).Name = "fich2.xlxs" Then Top = True Exit For End If Next i If Top = False Then Workbook.Open "fich2.xls"
Daniel
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
Al
Merci encore, tout fonctionne...! Très statisfait de vos réponses...! Une remarque pour Denis, tes réponses pour la méthode . Find sont-elles valables sous Excel2003 ?
A+ et Merci encore.
"Al" a écrit dans le message de news:
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
Merci encore, tout fonctionne...! Très statisfait de vos réponses...!
Une remarque pour Denis, tes réponses pour la méthode . Find sont-elles
valables sous Excel2003 ?
A+ et Merci encore.
"Al" <al@wanadoo.fr> a écrit dans le message de
news:Ou8XFns7KHA.5808@TK2MSFTNGP02.phx.gbl...
Re bonjour,
Je travaille sur "fich1"
J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier
déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche
Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert
en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait
aujourd'hui...
Al
Merci encore, tout fonctionne...! Très statisfait de vos réponses...! Une remarque pour Denis, tes réponses pour la méthode . Find sont-elles valables sous Excel2003 ?
A+ et Merci encore.
"Al" a écrit dans le message de news:
Re bonjour,
Je travaille sur "fich1" J'ouvre mon "fich2", mais si celui-ci est déja ouvert, le message "fichier déja ouvert, si vous l'ouvrez à nouveau....etc" s'affiche Comment faire pour ne plus avoir ? ou tester si le fich2 est déjà ouvert en arrière-plan ?
Encore une fois, Merci de m'aider comme vous l'avez déja fait aujourd'hui... Al
