Salut, et merci pur ce tuto. J'ai référencé le Com Excel ver 10.0 et du coup j'ai du adapter ton code (Excel 2002 sp3). Je partage donc la façon de faire (sinon j'ai une erreure de liaison tardive avec option strict)
Il faut remplacer les appxls.ActiveWorkbook.Worksheets("NouveauNom").Range("A1").Value "tyty" par :
> With book.Sheets.Application
.Range("F5").Value = Date.Today.ToString
.Range("F6").Value = "test"
End With
Avec : Dim book As Excel.Workbook et
book = appxls.Workbooks.Open(cheminFormulaire)
Me demande pas pourquoi, juste que cela marche LOL. Bonne prog à tous. ADN
BONJOUR
je programme avec vb express 2005
j'aurai voulu faire une vérification avec « if ….then »
si un fichier Excel es bien ouvert j'appel une macro qui modifie les onglets et rajoute si nécessaire
et s’il y a aucun fichier Excel je crée un classeur et crée les onglets
mais j’arrive pas à testé si le fichier Excel est ouvert ou pas.
salut bon code
mais moi de ma part j'ai essayé en vain la sélection de deux ou trois feuilles pour l'impression.
j'ai passer par l'enregistreur de macros mais pour adapter le code en vb cela devient un gros problème
voici le code que je veux adapter
Sheets(Array("FicheObserv", "Feuil2", "Feuil3")).Select
Sheets("FicheObserv").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
21 sept. 2011 à 14:37
Il faut remplacer les appxls.ActiveWorkbook.Worksheets("NouveauNom").Range("A1").Value "tyty" par :
> With book.Sheets.Application
.Range("F5").Value = Date.Today.ToString
.Range("F6").Value = "test"
End With
Avec : Dim book As Excel.Workbook et
book = appxls.Workbooks.Open(cheminFormulaire)
Me demande pas pourquoi, juste que cela marche LOL. Bonne prog à tous. ADN
18 mai 2010 à 16:58
je programme avec vb express 2005
j'aurai voulu faire une vérification avec « if ….then »
si un fichier Excel es bien ouvert j'appel une macro qui modifie les onglets et rajoute si nécessaire
et s’il y a aucun fichier Excel je crée un classeur et crée les onglets
mais j’arrive pas à testé si le fichier Excel est ouvert ou pas.
25 juin 2009 à 12:21
29 avril 2009 à 20:00
bonne continuité!
25 avril 2009 à 09:30
mais moi de ma part j'ai essayé en vain la sélection de deux ou trois feuilles pour l'impression.
j'ai passer par l'enregistreur de macros mais pour adapter le code en vb cela devient un gros problème
voici le code que je veux adapter
Sheets(Array("FicheObserv", "Feuil2", "Feuil3")).Select
Sheets("FicheObserv").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.