saveas workbook excel [Résolu]

[Djawida]

bonjour,

je souhaite enregistrer mon dossier avec un autre nom ou sous un autre repertoire, etant novice en VBA je me suis inpiré d'un forum que j'ai trouver sur le net, voila ce que j'ai fait:

Code :

1
2
3
4
5
6
Dim objExcel As Object, objWorksheet As Object
Set objExcel = CreateObject("Excel.Application")
WordbookName= "c:\monFichier.xls"
objExcel.ActiveWorkbook.PublishObjects.Add _
     (Excel.xlSourceSheet, WordbookName, objWorksheet, "", _
      Excel.ThisWorkbook).Publish

mais ça ne marche pas et j'ai l'erreur suivante, dans la derniere instruction:
erreur d'execution '91':
variable objet ou variable de bloc With non definie

quel est votre avis?

[Krovax]

Heu beaucoup plus simple

Code :

ActiveWorkbook.SaveAs "c:\monFichier.xls"

Si ca ne fonctionne pas, lance l'enregistreure de macro et fait enregistrer sous

[Djawida]

Merci
ça marche bien seulement, si le fichier monfichier.xls existe déjà j'obtient la boite de dialog ma demandant si je veux le remplacer! est ce qu'il ya un moyen d'eviter ça?

[Fvandermeulen]

Salut Djawida,
Comme Krovax semble ne pas être connecté, je me permets...

Pour éviter ça tu peux utiliser SendKeys (je te laisse voir l'aide) ou DisplayAlerts (voir code ci-dessous) à mettre en début de code et à la fin pour réactiver.

Code :

1
2
3
4
5
Application.DisplayAlerts = False 'désactive les fenêtres d'alertes
 
'...Ton code
 
Application.DisplayAlerts = True 'Réactive les fenêtres d'alertes !! super important de bien réactiver.

A+

Edit: Salut Krovax, le temps d'écire la réponse et tu es connecté

[aalex_38]

Essai avec (pas testé)

Code :

Application.displayalerts = false

[Krovax]

Envoyé par Fvandermeulen

Edit: Salut Krovax, le temps d'écire la réponse et tu es connecté

Je trouve ca normale que l'on réponde même si j'ai attaqué le suivit surtout quand je n'ai pas mieux a proposer (ce qui est relativement fréquent) et c'est ce qui permet au forum d'être si réactif (enfin c'est une vision personnel des choses peut être). Après c'est a la personne qui pose la question de se débrouiller pour suivre les différente pistes proposées, faut bien les faire bosser un peu non?

[Djawida]

oui Krovax, ça ma bien fait bosser
la methode de Fvandermeulen marche tres bien parcontre celle aalex_38 n'a pas fonctionné

Merci à tous

[Krovax]

C'est la meme méthode sauf que aalex n'a pas détaillé son utilisation

[aalex_38]

la methode de Fvandermeulen marche tres bien parcontre celle aalex_38 n'a pas fonctionné

Ca alors, heureusement que Fvandermeulen etait là

C'est la meme méthode sauf que aalex n'a pas détaillé son utilisation

Alors, en bonus les modules desactive et active que j'appelle en début et en fin de procédure :

Code :

1
2
3
4
5
Sub Desactive()
Application.DisplayAlerts = False     'Arret des alertes
Application.ScreenUpdating = False    'Arret rafraichissement ecran
ActiveSheet.EnableCalculation = False 'Evite le re-calcul de feuil1
End Sub

Code :

1
2
3
4
5
6
Sub Active()
Application.DisplayAlerts = True
ActiveSheet.EnableCalculation = True
Calculate
Application.ScreenUpdating = True
End Sub