dokaz
XLDnaute Nouveau
bonjour,
n'étant pas encore très à l'aise en VBA je bloque sur une partie du code pour enregistrer mon fichier selon la valeur de cellules sur plusieurs feuilles du classeur. J'arrive à ajouter une cellule avec le Range mais pas à sélectionner une autre feuille, pouvez vous m'aider?
merci d'avance,
Cordialement,
' Chemin d'enregistrement
Fichier_actif = ActiveWorkbook.Name
Fichier_final = Left(Fichier_actif, InStr(1, Fichier_actif, ".") - 1)
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:= _
"C:\2012\" & Fichier_final & " Global", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Windows(Fichier_actif).Activate
n'étant pas encore très à l'aise en VBA je bloque sur une partie du code pour enregistrer mon fichier selon la valeur de cellules sur plusieurs feuilles du classeur. J'arrive à ajouter une cellule avec le Range mais pas à sélectionner une autre feuille, pouvez vous m'aider?
merci d'avance,
Cordialement,
' Chemin d'enregistrement
Fichier_actif = ActiveWorkbook.Name
Fichier_final = Left(Fichier_actif, InStr(1, Fichier_actif, ".") - 1)
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:= _
"C:\2012\" & Fichier_final & " Global", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Windows(Fichier_actif).Activate