Macro pour ouverture classeur
Bonjour,
J'ai créer une macro pour ouvrir un classeur et une feuille de calcul. je me suis servi de la commande suivante:
Sub poste1100()
Workbooks.Open Filename:="M:\Sonia comp\comptabilité sonia2.xlsm"
Sheets("1100").Select
End Sub
Cela fonctionne très bien sauf si mon classeur est déjà ouvert une boite de dialogue apparait
Donc, j'aimerais ajouter une commande à cette macro qui permettrait lorsque le classeur est déjà ouvert, d'ouvrir seulement la feuille mentionnée.
Merci
Cris
bonsoir,
à tester
Sub poste1100()
Set wb = Nothing
On Error Resume Next
Set wb = Workbooks("comptabilité sonia2.xlsm")
On Error GoTo 0
If wb Is Nothing Then
Workbooks.Open Filename:="M:\Sonia comp\comptabilité sonia2.xlsm"
Else
wb.activate
End If
Sheets("1100").Select
End Subnon malheureusement, ca fonctionne pas
erreur d'exécution 438
propriété ou méthode non gérée par cet objet
Merci de ton aide
Bonjour,
j'avas écrit activitate au lieu de activate.
j'ai corrigé le code dans le message plus haut.
Merci beaucoup
Ca fonctionne très bien
Cris