Chercher une cellule dans un document créé en VBA

[decricri]

Bonjour à tous,


Alors voilà, je crée une macro pour faire une fichier import. J'arrive à créer un nouveau classeur en .CSV mais je n'arrive pas à selectionner la cellule A1 de ce nouveau classeur.
Quelqu'un pour m'aider?

Sub Fic_Import()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

    'On créer l'objet Excel
    Set xlApp = CreateObject("Excel.Application")
    'On défini le nombre d'onglets (ici 1)
    xlApp.SheetsInNewWorkbook = 1
    'On ajoute un classeur
    Set xlBook = xlApp.Workbooks.Add
    'On donne un nom au classeur
    xlBook.SaveAs ("Import.csv")
    'On rend le classeur visible
    xlApp.Visible = True
    'On créer l'objet onglet dans le nouveau classeur créé
    Set xlSheet = xlBook.Worksheets(1)
    'On affecte un nom à l'onglet
    xlSheet.Name = "Import"
    
    'On vient sélectionner la première case à remplir
    Workbooks("Import.csv").Sheets("Import").Range("A1").Value = "Nom d'affaire"
    
    'On ferme l'application
    xlApp.Quit
    
    
End Sub

Merci pour votre aide

 

[DoubleZero]

Re : Chercher une cellule dans un document créé en VBA

Bonjour, decricri, le Forum,

Sans aucune certitude, ajouter "with" et "end with" :

Sub Fic_Import()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

    'On créer l'objet Excel
    Set xlApp = CreateObject("Excel.Application")
    'On défini le nombre d'onglets (ici 1)
    xlApp.SheetsInNewWorkbook = 1
    'On ajoute un classeur
    Set xlBook = xlApp.Workbooks.Add
    'On donne un nom au classeur
    xlBook.SaveAs ("Import.csv")
    'On rend le classeur visible
    xlApp.Visible = True
    'On créer l'objet onglet dans le nouveau classeur créé
    Set xlSheet = xlBook.Worksheets(1)
    'On affecte un nom à l'onglet
    xlSheet.Name = "Import"
   
    'On vient sélectionner la première case à remplir
    With Workbooks("Import.csv"): .Sheets("Import").Range("A1").Value = "Nom d'affaire": End With ' <==== ici ( ? )
   
    'On ferme l'application
    xlApp.Quit
   
   
End Sub

A bientôt 🙂

 

[gilbert_RGI]

Re : Chercher une cellule dans un document créé en VBA

bonjour,

comme ceci

'On vient sélectionner la première case à remplir
xlSheet.Range("A1").Value = "Nom d'affaire"

 

[fredl]

Re : Chercher une cellule dans un document créé en VBA

Bonjour ,
J'ai mis cette macro dans un doc Word, et elle fonctionne.
//////////////////////////////////////////////////////////////////////
Sub Fic_Import()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet


'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 1)
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("Import.csv")
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom à l'onglet
xlSheet.Name = "Import"

'On vient sélectionner la première case à remplir
xlBook.Activate
Range("A1").Value = "Nom d'affaire"
'On ferme l'application
xlApp.Quit
End Sub
/////////////////////////////////////////////////////////////////////////
Dis moi.
Cdt
frédéric

 

[decricri]

Re : Chercher une cellule dans un document créé en VBA

Merci pour votre réactivité.

@ Double-Zéro : il me met une erreur 9.
@Gilbert : Cela fonctionne très bien
@Fredl : Le fichier est bien créé mais ne se rempli pas. Je pense que c'est car on selectionne le classeur alors que sur la solution de Gilbert on prend directement la feuille que l'on vient de créer.

Merci à vous en tout cas.

Quentin

 

[decricri]

Re : Chercher une cellule dans un document créé en VBA

Pour être plus précis Fred, Cela m'a écrit le texte dans mon fichier source et non dans le nouveau.