Bonjours,
J'ai créée une macro qui fonctionne très bien sous 2007 et qui est soit en erreur 1004 pour "Workbooks.Open Chemin & Fichier", soit en impossiblité d'identifier le path sous 2003. Avez-vous une idée ? Voici la macro :
Merci
Sub majcompil()
' majcompil macro
' Macro enregistrée le 11/12/2008 par annick.cuman
'
'
Dim Chemin As String, Fichier As String
Chemin = ThisWorkbook.Path & "/"
Fichier = "AT COMPIL DOR.xls"
Workbooks.Open Chemin & Fichier
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier1 = "COMPIL_CONTROLES.xls"
Workbooks.Open Chemin & Fichier1
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier2 = "compilation_réclamations_agence.xls"
Workbooks.Open Chemin & Fichier2
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier3 = "compilation_réclamations_agence.xls"
Workbooks.Open Chemin & Fichier3
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub
J'ai créée une macro qui fonctionne très bien sous 2007 et qui est soit en erreur 1004 pour "Workbooks.Open Chemin & Fichier", soit en impossiblité d'identifier le path sous 2003. Avez-vous une idée ? Voici la macro :
Merci
Sub majcompil()
' majcompil macro
' Macro enregistrée le 11/12/2008 par annick.cuman
'
'
Dim Chemin As String, Fichier As String
Chemin = ThisWorkbook.Path & "/"
Fichier = "AT COMPIL DOR.xls"
Workbooks.Open Chemin & Fichier
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier1 = "COMPIL_CONTROLES.xls"
Workbooks.Open Chemin & Fichier1
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier2 = "compilation_réclamations_agence.xls"
Workbooks.Open Chemin & Fichier2
ActiveWorkbook.Save
ActiveWorkbook.Close
Fichier3 = "compilation_réclamations_agence.xls"
Workbooks.Open Chemin & Fichier3
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub