Pb d'execution macro sur autre poste
Bonjour,
J'ai créé une macro qui récupère certaines informations dans un classeur pour les transposer dans un autre classeur (tableau de suivi). La macro fonctionne très bien sur mon poste, mais quand mon collègue l’exécute sur le sien, il y a le message d'erreur suivant :
Erreur d'exécution '1004' :
La méthode 'Open' de l'objet 'Workbooks' a échoué.
Nous avons la même version d'Excel (à savoir 2003).
Voici la macro :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| Sub transpose_NC()
'Atteindre le formulaire et mémoriser les données
Sheets("Accusé").Select
Range("AS1:AS8").Select
Selection.Copy
'Ouvre le fichier tableau NC
Workbooks.Open Filename:="G:\QUALITE\4 - DOCUMENTS OPERATIONNELS\Tableau NC 2010-2011.xls"
Sheets("Données Recla").Select
'teste et sélectionne la première ligne vide du tableau données recla
Cells(Range("A1").End(xlDown).Row + 1, 1).Select
'mémorise le n° de la ligne où coller les données
ligne_active_base = ActiveCell.Row
'collage avec transposition
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
operation:=xlNone, skipblanks:=False, Transpose:=True
Workbooks("Tableau NC 2010-2011.xls").Close SaveChanges:=True
'retourner dans le tableau
Range("Accusé!G43").Select
End Sub |
Si quelqu'un a une explication je suis preneur, personnellement je sèche depuis hier.
Merci
