Afin de facilité la saisie d'un document, j'ai créé un formulaire (type
userform en VBA), ce dernier est composé de contrôle Textbox et dont le
contenu vient automatiquement renseigné les différents signé du document
original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau
excel, mais mon code n'est pas bon :
Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:\PROJET EN COURS\contrats
word\contrat.xls")
Set XlFeuille = worksheet("AVENANT")
intcol = 1
With XlFeuille
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
.Cells(intcol, 2).Value = FaitPar
End If
End With
Activeworkbook.Save
XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour à tous, Bon tu n'es pas sur le bon forum. Pour moi à part un s manquants à worksheet je ne vois pas de problème, ni le rapport avec Word. Merci d'avoir lu jusque là.
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Bonjour à tous,
Bon tu n'es pas sur le bon forum.
Pour moi à part un s manquants à worksheet je ne vois pas de problème, ni le rapport avec Word.
Merci d'avoir lu jusque là.
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news: 42d38aca$0$25061$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle
Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon :
Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls")
Set XlFeuille = worksheet("AVENANT")
intcol = 1
With XlFeuille
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
.Cells(intcol, 2).Value = FaitPar
End If
End With
Activeworkbook.Save
XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Bonjour à tous, Bon tu n'es pas sur le bon forum. Pour moi à part un s manquants à worksheet je ne vois pas de problème, ni le rapport avec Word. Merci d'avoir lu jusque là.
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Geo
Bonjour Sky
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library dans Outils references
Mais tu n'es pas au bout de tes corrections Comme te l'a signalé apollo il manque un "s" à worksheet(... il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après then. M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
--
A+
Bonjour Sky
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library
dans Outils references
Mais tu n'es pas au bout de tes corrections
Comme te l'a signalé apollo il manque un "s" à worksheet(...
il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après
then.
M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais
évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library dans Outils references
Mais tu n'es pas au bout de tes corrections Comme te l'a signalé apollo il manque un "s" à worksheet(... il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après then. M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
--
A+
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel ! C'est vrai que si je l'avais mis dans Word il m'aurait fallu la référence à Excel, ah et du coup je vois le rapport avec Word. Merci d'avoir lu jusque là.
"Geo" a écrit dans le message de news:
Bonjour Sky
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library dans Outils references
Mais tu n'es pas au bout de tes corrections Comme te l'a signalé apollo il manque un "s" à worksheet(... il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après then. M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
--
A+
Bonsoir à tous, S@lut Geo,
Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if...
... et le code passe pour moi.
Mais dans Excel ! C'est vrai que si je l'avais mis dans Word il m'aurait fallu la référence à Excel, ah et du coup je vois le
rapport avec Word.
Merci d'avoir lu jusque là.
"Geo" <Geo@sans.pub> a écrit dans le message de news: OdsSvNxhFHA.3164@TK2MSFTNGP15.phx.gbl...
Bonjour Sky
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library
dans Outils references
Mais tu n'es pas au bout de tes corrections
Comme te l'a signalé apollo il manque un "s" à worksheet(...
il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après
then.
M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel ! C'est vrai que si je l'avais mis dans Word il m'aurait fallu la référence à Excel, ah et du coup je vois le rapport avec Word. Merci d'avoir lu jusque là.
"Geo" a écrit dans le message de news:
Bonjour Sky
Le problème se pose dans les définitions de mes variables
Oui il te manque d'avoir référencé MS excel object library dans Outils references
Mais tu n'es pas au bout de tes corrections Comme te l'a signalé apollo il manque un "s" à worksheet(... il manque un "." avant le cells
If Cells(1, intcol) <> "" Then intcol = intcol + 1
et le Else ne correspond à aucun if car tu as mis une instruction après then. M'enfin tout ça vba te le dira.
Mets "Option Explicit" en début du module, c'est un peu contraignant mais évite bien des contrariétés.
Bon bref tu as du boulot, mais on a tous commencé comme ça.
--
A+
Geo
Bonjour @pollo
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en apercevoir.
--
A+
Bonjour @pollo
Bonsoir à tous, S@lut Geo,
Or mis la correction que j'ai indiqué et un petit retour charriot
perdu en copier coller, le if a bien son then et le else son if...
... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en
apercevoir.
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en apercevoir.
--
A+
Bonsoir à tous, Resalut Geo,
ben alors là je veux voir ! Ecoute je n'envisagerais pas de polémiquer
Il se trouve que mon sub n'a pas été supprimer ------------------------ Sub essai() Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.Worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:ZoneBrouillonExceldoublons.xls") Set XlFeuille = Worksheets("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With ActiveWorkbook.Save XlApplication.Quit End Sub ------------------------ J'ai trop lu de code pour aujourd'hui, au moins 14 mn de programmation pure c'est plus que tout un mois d'habitude je pète un cable...
...on a tous commencé comme ça. Y en a juste comme moi pas rendu sur la lune encore pour qui c'est toujours un commencement, mais n'est ce pas toujours le meilleur
;-). Merci d'avoir lu jusque là.
"Geo" a écrit dans le message de news: Oa%
Bonjour @pollo
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en apercevoir.
--
A+
Bonsoir à tous, Resalut Geo,
ben alors là je veux voir !
Ecoute je n'envisagerais pas de polémiquer
Il se trouve que mon sub n'a pas été supprimer
------------------------
Sub essai()
Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.Worksheet
Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:ZoneBrouillonExceldoublons.xls")
Set XlFeuille = Worksheets("AVENANT")
intcol = 1
With XlFeuille
If Cells(1, intcol) <> "" Then
intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
.Cells(intcol, 2).Value = FaitPar
End If
End With
ActiveWorkbook.Save
XlApplication.Quit
End Sub
------------------------
J'ai trop lu de code pour aujourd'hui, au moins 14 mn de programmation pure c'est plus que tout un mois d'habitude je pète un
cable...
...on a tous commencé comme ça.
Y en a juste comme moi pas rendu sur la lune encore pour qui c'est toujours un commencement, mais n'est ce pas toujours le meilleur
;-).
Merci d'avoir lu jusque là.
"Geo" <Geo@sans.pub> a écrit dans le message de news: Oa%2314hxhFHA.1244@TK2MSFTNGP14.phx.gbl...
Bonjour @pollo
Bonsoir à tous, S@lut Geo,
Or mis la correction que j'ai indiqué et un petit retour charriot
perdu en copier coller, le if a bien son then et le else son if...
... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en apercevoir.
ben alors là je veux voir ! Ecoute je n'envisagerais pas de polémiquer
Il se trouve que mon sub n'a pas été supprimer ------------------------ Sub essai() Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.Worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:ZoneBrouillonExceldoublons.xls") Set XlFeuille = Worksheets("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With ActiveWorkbook.Save XlApplication.Quit End Sub ------------------------ J'ai trop lu de code pour aujourd'hui, au moins 14 mn de programmation pure c'est plus que tout un mois d'habitude je pète un cable...
...on a tous commencé comme ça. Y en a juste comme moi pas rendu sur la lune encore pour qui c'est toujours un commencement, mais n'est ce pas toujours le meilleur
;-). Merci d'avoir lu jusque là.
"Geo" a écrit dans le message de news: Oa%
Bonjour @pollo
Bonsoir à tous, Geo, Or mis la correction que j'ai indiqué et un petit retour charriot perdu en copier coller, le if a bien son then et le else son if... ... et le code passe pour moi. Mais dans Excel !
ben alors là je veux voir !
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie
Ca peut pas marcher, amha tu as fait la correction sans même t'en apercevoir.
--
A+
Geo
Bonjour @pollo
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else
Là oui ! Tu baignes tellement dedans que tu corriges les erreurs à l'insu de ton plein gré :-)
bonne nuit.
Bonjour @pollo
If Cells(1, intcol) <> "" Then
intcol = intcol + 1
Else
Là oui !
Tu baignes tellement dedans que tu corriges les erreurs à l'insu de ton
plein gré :-)
If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else
Là oui ! Tu baignes tellement dedans que tu corriges les erreurs à l'insu de ton plein gré :-)
bonne nuit.
Sky
Merci à tous les 2 pour vos éclaircissements
En fait j'étais pas loin de la vérité
Je m'en vais essayer cela de suite je vous tiendrais informer
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Merci à tous les 2 pour vos éclaircissements
En fait j'étais pas loin de la vérité
Je m'en vais essayer cela de suite
je vous tiendrais informer
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
42d38aca$0$25061$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type
userform en VBA), ce dernier est composé de contrôle Textbox et dont le
contenu vient automatiquement renseigné les différents signé du document
original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un
tableau excel, mais mon code n'est pas bon :
Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats
wordcontrat.xls")
Set XlFeuille = worksheet("AVENANT")
intcol = 1
With XlFeuille
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
.Cells(intcol, 2).Value = FaitPar
End If
End With
Activeworkbook.Save
XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Je m'en vais essayer cela de suite je vous tiendrais informer
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Sky
Résultat des courses :
Le code passe bien maintenant, il ne me reste plus qu'un petit détail mais cela est une autre histoire (excel ne remplit pas les infos dans les cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
"Sky" a écrit dans le message de news: 42d4bbbb$0$3120$
Merci à tous les 2 pour vos éclaircissements
En fait j'étais pas loin de la vérité
Je m'en vais essayer cela de suite je vous tiendrais informer
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Résultat des courses :
Le code passe bien maintenant, il ne me reste plus qu'un petit détail mais
cela est une autre histoire (excel ne remplit pas les infos dans les
cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
42d4bbbb$0$3120$8fcfb975@news.wanadoo.fr...
Merci à tous les 2 pour vos éclaircissements
En fait j'étais pas loin de la vérité
Je m'en vais essayer cela de suite
je vous tiendrais informer
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
42d38aca$0$25061$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type
userform en VBA), ce dernier est composé de contrôle Textbox et dont le
contenu vient automatiquement renseigné les différents signé du document
original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un
tableau excel, mais mon code n'est pas bon :
Dim XlApplication As Excel.Application
Dim XlClasseur As Excel.Workbook
Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application
Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats
wordcontrat.xls")
Set XlFeuille = worksheet("AVENANT")
intcol = 1
With XlFeuille
If Cells(1, intcol) <> "" Then intcol = intcol + 1
Else
.Cells(1, intcol).Value = DateSaisie
.Cells(intcol, 2).Value = FaitPar
End If
End With
Activeworkbook.Save
XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Le code passe bien maintenant, il ne me reste plus qu'un petit détail mais cela est une autre histoire (excel ne remplit pas les infos dans les cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
"Sky" a écrit dans le message de news: 42d4bbbb$0$3120$
Merci à tous les 2 pour vos éclaircissements
En fait j'étais pas loin de la vérité
Je m'en vais essayer cela de suite je vous tiendrais informer
"Sky" a écrit dans le message de news: 42d38aca$0$25061$
Bonjour à tous,
Afin de facilité la saisie d'un document, j'ai créé un formulaire (type userform en VBA), ce dernier est composé de contrôle Textbox et dont le contenu vient automatiquement renseigné les différents signé du document original.
J'aimerais que le contenu de ces controles Textbox s'exporte dans un tableau excel, mais mon code n'est pas bon : Dim XlApplication As Excel.Application Dim XlClasseur As Excel.Workbook Dim XlFeuille As Excel.worksheet
Set XlApplication = New Excel.Application Set XlClasseur = Workbooks.Open("E:PROJET EN COURScontrats wordcontrat.xls") Set XlFeuille = worksheet("AVENANT") intcol = 1 With XlFeuille If Cells(1, intcol) <> "" Then intcol = intcol + 1 Else .Cells(1, intcol).Value = DateSaisie .Cells(intcol, 2).Value = FaitPar
End If End With Activeworkbook.Save XlApplication.Quit
Le problème se pose dans les définitions de mes variables
Merci pour vos suggestions
-- Franck SCHRICKE
Geo
Bonjour Sky
Résultat des courses :
Le code passe bien maintenant, il ne me reste plus qu'un petit détail mais cela est une autre histoire (excel ne remplit pas les infos dans les cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
Merci pour ce retour
Bonjour Sky
Résultat des courses :
Le code passe bien maintenant, il ne me reste plus qu'un petit détail
mais cela est une autre histoire (excel ne remplit pas les infos dans
les cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
Le code passe bien maintenant, il ne me reste plus qu'un petit détail mais cela est une autre histoire (excel ne remplit pas les infos dans les cellules) , mais je vais essayer de me dépatouiller :)
Merci à tous les 2 de la part d'un débutant éclairci
