j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la
fois
comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert()
Dim Worbk As Workbook
On Error Resume Next
Set Worbk = Workbooks("c:\classeur1.xls")
On Error GoTo 0
If Worbk Is Nothing Then Workbooks.Open "C:\classeur1.xls" _
Else Set Worbk = Nothing
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Michel,
Tu répète cette ligne avec un nouveau fichier :
Workbooks.Open "C:classeur2.xls"
Salutations!
"michel" a écrit dans le message de news: bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la fois comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert() Dim Worbk As Workbook On Error Resume Next Set Worbk = Workbooks("c:classeur1.xls") On Error GoTo 0 If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _ Else Set Worbk = Nothing End Sub
merci !!! Michel
--
A +
Michel
Bonjour Michel,
Tu répète cette ligne avec un nouveau fichier :
Workbooks.Open "C:classeur2.xls"
Salutations!
"michel" <michel.bad@msn.com> a écrit dans le message de news: mn.83a67d522c4a1324.15284@msn.com...
bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la
fois
comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert()
Dim Worbk As Workbook
On Error Resume Next
Set Worbk = Workbooks("c:classeur1.xls")
On Error GoTo 0
If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _
Else Set Worbk = Nothing
End Sub
"michel" a écrit dans le message de news: bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la fois comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert() Dim Worbk As Workbook On Error Resume Next Set Worbk = Workbooks("c:classeur1.xls") On Error GoTo 0 If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _ Else Set Worbk = Nothing End Sub
merci !!! Michel
--
A +
Michel
michel
Magnifique!!
merci
Michel
MichDenis a présenté l'énoncé suivant :
Bonjour Michel,
Tu répète cette ligne avec un nouveau fichier :
Workbooks.Open "C:classeur2.xls"
Salutations!
"michel" a écrit dans le message de news: bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la fois comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert() Dim Worbk As Workbook On Error Resume Next Set Worbk = Workbooks("c:classeur1.xls") On Error GoTo 0 If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _ Else Set Worbk = Nothing End Sub
merci !!! Michel
--
A +
Michel
Magnifique!!
merci
Michel
MichDenis a présenté l'énoncé suivant :
Bonjour Michel,
Tu répète cette ligne avec un nouveau fichier :
Workbooks.Open "C:classeur2.xls"
Salutations!
"michel" <michel.bad@msn.com> a écrit dans le message de news:
mn.83a67d522c4a1324.15284@msn.com... bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la
fois
comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert()
Dim Worbk As Workbook
On Error Resume Next
Set Worbk = Workbooks("c:classeur1.xls")
On Error GoTo 0
If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _
Else Set Worbk = Nothing
End Sub
"michel" a écrit dans le message de news: bonjour,
j'ai une macro qui ouvre un fichier, kje désirerai en ouvrir 2 à la fois comment rajouter le deuxième fichier dans le code ci-dessous
Sub OuvreSiPasOuvert() Dim Worbk As Workbook On Error Resume Next Set Worbk = Workbooks("c:classeur1.xls") On Error GoTo 0 If Worbk Is Nothing Then Workbooks.Open "C:classeur1.xls" _ Else Set Worbk = Nothing End Sub
