apnart
XLDnaute Occasionnel
Bonjour,
J'ai un excel avec macros en 2010 qui fonctionne parfaitement depuis des mois, que ça soit sous 2007 comme sous 2010 (et 2013 aussi). Je vuis d'ajouter un module avec 2 macros, et patatra, ça semble ne plus vouloir fonctionner sous 2007.
Mon soucis c'est que je n'ai que 2010, et que ce sont les utilisateurs de ce p'tit outil qui me remontent le pb...
Le code en question (pourtant très "simple"):
Et voici l'erreur remontée :
Si vous avez un idée pour moi... welcome
Merci d'avance,
Bruno.
J'ai un excel avec macros en 2010 qui fonctionne parfaitement depuis des mois, que ça soit sous 2007 comme sous 2010 (et 2013 aussi). Je vuis d'ajouter un module avec 2 macros, et patatra, ça semble ne plus vouloir fonctionner sous 2007.
Mon soucis c'est que je n'ai que 2010, et que ce sont les utilisateurs de ce p'tit outil qui me remontent le pb...
Le code en question (pourtant très "simple"):
Code:
Sub ImportDesAdresses()
Application.ScreenUpdating = False ' Affichage des action de la macro OFF
'
On Error GoTo PasDeFichierAdresse
FichierAdresses = "ADRESSES_FORMULAIRE.xlsx"
OngletAdresse = "LISTE"
FichierFormulaire = ThisWorkbook.Name
OngletFormulaire = "Liste_Adresses"
'
' Affiche l'onglets Liste_Adresses
Sheets(OngletFormulaire).Visible = True
'
' Efface les précédentes données
Sheets(OngletFormulaire).Select
Cells.Select
Selection.ClearContents
Range("A1").Select
'
' Ouverture/copie du fichier contenant les adresses
Workbooks.Open Filename:="C:\" & FichierAdresses
Sheets(OngletAdresse).Select
Range("A:J").Select
Selection.Copy
'
' Colle les données
Windows(FichierFormulaire).Activate
Sheets(OngletFormulaire).Select
Range("A:J").Select
ActiveSheet.Paste
'
' Fermeture fichier des adresses
Windows(FichierAdresses).Activate
Application.CutCopyMode = False
ActiveWindow.Close
Range("A1").Select
'
Sheets(OngletFormulaire).Visible = False
' Sortie
PasDeFichierAdresse:
Sheets("Formulaire").Select
Application.ScreenUpdating = True ' Affichage des action de la macro ON
End Sub
Sub AdresseDuMenu()
Application.ScreenUpdating = False ' Affichage des action de la macro OFF
Sheets("Liste_Adresses").Visible = True
Dim ChoixMenuAdresse, Champ1, Champ2, Champ3, Champ4, Champ5, Champ6, Champ7, Champ8, Champ9 As String
ChoixMenuAdresse = Sheets("Formulaire").Range("J23").Value
Sheets("Liste_Adresses").Select
Dim BoucleAdresse As Integer
For BoucleAdresse = 1 To 10000
If Cells(BoucleAdresse, 1).Value = ChoixMenuAdresse Then
Champ1 = Cells(BoucleAdresse, 2).Value
Champ2 = Cells(BoucleAdresse, 3).Value
Champ3 = Cells(BoucleAdresse, 4).Value
Champ4 = Cells(BoucleAdresse, 5).Value
Champ5 = Cells(BoucleAdresse, 6).Value
Champ6 = Cells(BoucleAdresse, 7).Value
Champ7 = Cells(BoucleAdresse, 8).Value
Champ8 = Cells(BoucleAdresse, 9).Value
Champ9 = Cells(BoucleAdresse, 10).Value
Sheets("Formulaire").Select
Range("J24").Value = Champ1
Range("J25").Value = Champ2
Range("J26").Value = Champ3
Range("J27").Value = Champ4
Range("J28").Value = Champ5 & " " & Champ6
If Champ7 <> "" Then Range("J29").Value = Champ7 Else Range("J29").Value = Range("J3").Value
If Champ8 <> "" Then Range("J30").Value = Champ8 Else Range("J30").Value = Range("I8").Value
If Champ9 <> "" Then Range("J31").Value = Champ9 Else Range("J31").Value = Range("J8").Value
Exit For
End If
If Cells(BoucleAdresse, 1).Value = "" Then
Sheets("Formulaire").Select
Exit For
End If
Next
Sheets("Liste_Adresses").Visible = False
Application.ScreenUpdating = True ' Affichage des action de la macro ON
End SubEt voici l'erreur remontée :
Si vous avez un idée pour moi... welcome
Merci d'avance,
Bruno.
Dernière édition:
