Je me permets de reposter mon problème, je n'ai surement pas été claire !
Avec l'aide précieuse de Frédéric S j'ai pu mettre en place des macros du
même style que celles ci-dessous, seulement voilà dès que je suis seule je
me mélange les crayons et cela ne fonctionne pas, il faut rappeler ici que
je suis débutante en VBA...
Sur Excel97, j'ai un classeur Menu.xls à partir duquel j'ai plrs macros qui
ouvrent différents classeurs exemple Budget Draguignan.xls Budget St
Tropez.xls et des macros qui mettent à jour ces différents classeurs
toujours à partir du classeur menu gammvert.xls
Dans le classeur menu gammvert.xls j'ai une macro Sub Essai2 qui permet de
copier le nom ville du fichier BudgetMatrice.xls enregistré sous Budget St
Tropez vers le fichier 02 06 prjete.xls :
Sub ESSAI2(Optional Atraiter As String = "BudgetMatrice.xls")
'
' ESSAI2 Macro
'
Windows(Atraiter).Activate
Range("B2").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
Range("P1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Windows("menu gammvert.xls").Activate
End Sub
Toujours dans le classeur menu gammvert une macro miseàjourfeuillcopy qui
reprend la macro sub essai2 puis la macro sub ajout_formule_feuil_copie_fin
du classeur agence ceres 2001 2002.xls
Lorsque j'éxécute la macro miseàjourfeuilcopy cela bug "Impossible de
trouver la macro gammvert.xls!ESSAI2" et met en surbrillance la ligne
Application.Run "menu gammvert.xls!ESSAI2", ClasseurATraiter '
Pouvez-vous m'aider ?
Merci et bonne journée
Pascale
Sub miseàjourfeuillcopy()
'
' Mettre_à_jour_feuil_copie Macro
'
Dim ClasseurATraiter As String
ClasseurATraiter = Workbooks("menu
gammvert.xls").Sheets(1).Range("IV1").Value
Workbooks("menu gammvert.xls").Sheets(1).Range("IV1").ClearContents
Application.Run "menu gammvert.xls!ESSAI2", ClasseurATraiter '
Windows("agence ceres 2001 2002.xls").Activate
Application.CutCopyMode = False
Application.Run "'agence ceres 2001
2002.xls'!ajout_formule_feuil_copie_fin"
Windows("menu gammvert.xls").Activate
End Sub
macro dans BudgetMatrice.xls :
sub enregistrer du classeur Sub Enregistrer()
Dim NomClasseur
Retour:
NomClasseur = Application.GetSaveAsFilename
If NomClasseur <> False Then
If Right(NomClasseur, 4) <> ".xls" Then
NomClasseur = NomClasseur & "xls"
End If
ThisWorkbook.SaveAs NomClasseur
With Workbooks("menu gammvert.xls")
.Sheets(1).Range("IV1").Value = Dir(NomClasseur)
.Saved = True
End With
Else
If MsgBox("Vous devez saisir un nom pour l'enregistrement." & _
vbCrLf & "Voulez vous recommencer ?", _
vbExclamation + vbYesNo) = vbYes Then
GoTo Retour
End If
End If
End Sub
