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 :
Si quelqu'un a une explication je suis preneur, personnellement je sèche depuis hier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci




Répondre avec citation



Partager