XL 2010 erreur reseau lors de l'enregistrement en pdf vba

[schertz]

Bonjour à tous,
j'ai un fichier qcm disponible sur un lecteur réseau, une fois la saisie des noms prénoms et classe celui ci s'enregistre automatiquement dans un dossier d'un autre lecteur réseau (celui de l'utilisateur), tout cela fonctionne, mais à la fin du questionnaire je voulais une sauvegarde de la feuille réponse en pdf. Cela fonctionne (chez moi, avec le même principe), mais sur le réseau mon travail à chaque fois j'ai une erreur "activesheet"...ou alors excel se fermait tout seul ... excel a rencontré un problème..
pouvez vous m'aider ?
Merci
Voici le code
Private Sub CommandButton1_Click()
'V?rifier optionbutton coch?
'Initialise n ? z?ro (n = un compteur si tu veux)
n = 0

'Boucle de 1 ? 9 pour les 9 OptionButton
For OptionButton = 1 To 9
'Ici n vaut 9 si aucun des deux n'est c?ch?
n = n - (Controls("OptionButton" & OptionButton).Value = False)
'Si n = 9 (pour deux contr?les donc et donc si 4 = qu'aucun contr?le n'a ?t? c?ch?)
If n = 9 Then
'Message
MsgBox "S?lectionnez une r?ponse !"
'Sort de la proc?dure
Exit Sub
End If
Next OptionButton
'user forme SUIVANTE'

Unload Q18
'SAUVEGARDER ET IMPRIMER

'enregistrer pdf
'Enregistrer
ThisWorkbook.Save
'user forme SUIVANTE'
On Error Resume Next
ThisWorkbook.Sheets("r?ponse").Activate 'erreur ? fermeture excel
On Error Resume Next
ThisWorkbook.Sheets("r?ponse").Visible = True
ThisWorkbook.Save
'Exporter pdf

Dim Chemin As String
Dim mondossier As String
Dim Fichier As String

' Nom du chemin essai
Chemin = "O:\IE\"
' Nom du chemin reseau
'Chemin = "Z:\IE\"
'Nom du dossier
mondossier = ThisWorkbook.Path

'nom du fichier
Fichier = mondossier & "\" & Worksheets("r?ponse").Range("D2") & " " & Format(Worksheets("r?ponse").Range("D3"), "00") & " " & Format(Worksheets("r?ponse").Range("D4"), "00") & " " & Format(Worksheets("r?ponse").Range("C1"), "000") & ""

'enregistrer pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'imprimer la page
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
On Error Resume Next
ThisWorkbook.Sheets("r?ponse").Visible = False
'ActiveWorkbook.Close False

'FERMER LE CLASSEUR

End Sub