Je crée une macro dans Excel 2011 pour Mac pourcréer des rapports. Une partie de la macro souhaite ouvrir un fichier (99% du temps), modifier le fichier, puis le fermer (enregistrer les modifications). En de rares occasions, si un fichier n'existe pas, il souhaite créer un nouveau fichier Excel, le modifier, puis le fermer (enregistrer les modifications). J'ai réussi à créer la possibilité d'ouvrirun fichier existant utilisant les questions et réponses existantes en ligne. Cependant, dans le cas où il ne parviendrait pas à trouver un fichier, je ne peux pas "t déterminer un moyen d'en créer un. Si j'essaye simplement d'ouvrir un fichier qui n'existe pas, alors il commet une erreur. Voici le code: Dim nExcel As Object Dim nWB As Object If FileOrFolderExistsOnMac(1, strFile) Then (strFile)... SaveChanges:=True Else "Note: I understand that this check should be redundant Set nExcel = GetObject(, "lication") "gives error 429 if Excel is not open If Err = 429 Then Set nExcel = CreateObject("lication") "create End If "Set nWB =... Ok, le bloc If de l'instruction fonctionne.
Plutôt que de copier ces paramètres un à un? Car en enregistrant la macro, l'execution est assez lente(peut-être aussi ai-je mal optimisé mon code... ) 31 Juillet 2006 #4 Le plus simple c'est d'enregistrer ton fichier sous un autre nom afin d'en créer une copie parfaite et ce en 3 lignes de code #5 tu peux t'aider de ta jujotte Dimitrifrom31> +1 #6 En fait j'ai été confronté au mêle problème pour le fichier sur lequel je travaille en ce moment (et pour lequel j'ai également demandé de l'aide). Voici mon code (je l'édite un peu pour retirer les morceaux qui te seront inutiles) en espérant que cela te facilite la tâche): Sub copiersousunautrenom() 'ça c'est pour ne pas perdre le travail effectué sous ton fichier d'origine avec le nom d'origine, ça paraît idiot mais je l'avais pas mis au début.
Dans mon exemple, j'ai nommé mes onglets "COMPTA1" à "COMPTA3". Sub DupliqueFichier() Dim Source As Workbook Dim Dest As Workbook Set Source = ActiveWorkbook 'Supprime fichier pour duplication si EXISTE If ExisteFichier( & "\") Then Kill & "\" End If 'Enregistre le fichier à dupliquer sous... CopyAs & "\" 'Ouvre le fichier qui vient d'être dupliqué Set Dest = ( & "\") 'Désactive les messages d'alerte avant suppression 'd'un onglet Application. DisplayAlerts = False 'Suppression d'un onglet sur le fichier dupliqué ("COMPTA3") ' ajouter les autres ici 'Suppression d'un onglet sur le fichier source ("COMPTA1") 'ajouter les autres ici 'Réctivation des alertes (pas obligatoire dans cet exemple) Application. DisplayAlerts = True 'Sauvegarde et fermeture de "" End Sub Function ExisteFichier(Nomfic As String) As Boolean On Error GoTo ExisteFichier_suite Dim N As String Dim R As Variant ExisteFichier = False N = Dir(Nomfic) If N <> "" Then ExisteFichier = True ExisteFichier_fin: Exit Function ExisteFichier_suite: R = MsgBox("Problème de lecture!
Notre objectif est d'automatiser le processus de création de nouveaux classeurs. Ce message doit donc être supprimé. 5. À l'étape cinq, la méthode SaveAs a été utilisée pour enregistrer le fichier. Il est à noter que le chemin a été donné, y compris le nouveau nom de fichier. 6. Les messages ayant été éliminés à la quatrième étape, ils devraient être restaurés maintenant. Si nous ne le faisons pas, aucun autre avertissement n'apparaîtra jusqu'à la fin de la session en cours. Inline Feedbacks Voir tous les commentaires
Je vous invite à essayer l'ensemble des fonctions par vous-même directement dans Visual Basic et de découvrir celles non évoquées ici. Vous aurez alors un aperçu de tout ce qu'il est possible de faire. Bon code!
Il vous faudra créer votre propre fonction.
Arthur vous donne rendez-vous samedi soir à partir de 20H55 sur TF1 pour une nouvelle émission de Stars sous hypnose. L'occasion de retrouver plusieurs personnalités de la télévision dans des situations inédites et quelque peu saugrenues. Messmer est de retour. Samedi, les téléspectateurs seront aux premières loges pour assister à une séance d'hypnose originale. En effet, le célèbre artiste québécois sera entouré d'Arthur, Sandrine Quétier, Priscilla Betti, Andy Cocq, Christine Bravo, Waly Dia, Christophe Beaugrand, Laury Thilleman et Chris Marques. Comment vont-ils réagir face aux pouvoirs de Messmer? REPLAY - Stars sous hypnose (TF1) : Arthur et Messmer troisième des audiences. Quelques heures avant la diffusion, ils partagent leur expérience. Laury Thilleman, 25 ans: " Grâce à Messmer, j'ai découvert que j'étais très réceptive à l'hypnose. Par la suite, j'ai eu d'autres expériences dans un cadre plus médical et je sais que cela fonctionne incroyablement bien sur moi. Je suis un bon sujet. Pour cette deuxième fois, j'appréhendais plus que la première d'autant que j'avais un torticolis le jour du tournage.
Dans des situations exceptionnelles, ces Stars sous hypnose vont vivre des aventures aussi drôles qu'incroyables, des expériences uniques, des fous rires mais aussi de l'é Kerri, Issa Doumbia, Christine Bravo,... 2:11:04 Du 22 juin 2018 - INEDIT Expiré 06-06-2018 4, 3 786 x Pour démarrer l'été, Arthur et Messmer proposent un numéro inédit de « Stars Sous Hypnose »! Pendant plus de deux heures, vous allez découvrir des stars telles que vous ne les avez jamais vues! Dans des situations exceptionnelles et mémorables, ces « Stars Sous Hypnose » vont vivre des aventures aussi drôles qu'incroyabl... Les meilleurs moments de "Stars sous hypnose 3" en replay - Le Blog News & Programmes Télé. Épisodes 2017 1:41:22 Du 5 août 2017 Expiré 03-08-2017 4, 5 886 x Arthur et Messmer proposent une soirée spéciale avec le meilleur de "Stars sous hypnose"! Pendant plus de deux heures, vous allez découvrir ou redécouvrir des stars telles que vous ne les avez jamais vues dans des situations exceptionnelles: - François-Xavier Demaison chez les chevaliers au Moyen Âge- Michaël Youn « télé... 2:04:30 Du 5 août 2017 Expiré 03-08-2017 4, 7 454 x Pendant plus de deux heures, vous allez découvrir des stars telles que vous ne les avez jamais vues!
Laury Thilleman, Christophe Beaugrand, Rayane Bensetti, Thierry Beccaro, Jean-François Cayrey, Gil Alma, Catherine Laborde et Ariane Brodier ont accepté l'invitation d' Arthur d'être hypnotisés par Messmer, le fascinateur. Laury Thilleman a vécu la plus folle journée de sa vie! Hypnotisée par Messmer, Laury Thilleman va se réveiller 3 fois dans des situations plus surprenantes les unes que les autres. Tour à tour meneuse de revue sur la scène d'un célèbre cabaret brésilien à Paris, invitée du journal télévisé et surtout au beau milieu d'un mariage, le sien! Stars sous hypnose c'est vrai ? sur le forum Blabla 15-18 ans - 27-02-2015 21:40:21 - jeuxvideo.com. Laury Thilleman est une mariée désemparée qui évidemment ne reconnait personne parmi les invités, pas même l'heureux élu... Emotions garanties! Christophe Beaugrand est retombé en enfance en passant une journée dans la peau d'un enfant de 2 ans. Une journée à la crèche où il va être entouré par de nouveaux petits copains. Au programme, peinture, pâte à modeler, sieste... Une journée étonnante qui n'a pas eu l'air de perturber ses nouveaux amis!