[Macro] Subscript out of Range

Bonjour a tous

J´ai un problème dont je n´arrive pas a résoudre depuis ce matin. J´ai une macro qui me permet de creer des factures numérotées automatiquement sur mon ordinateur portable. Je l´ai donc transferée (en copier / coller) sur l´ordinateur de la reception (dans un camping) mais quand je veut l´utiliser (a l´aide d´un bouton Nouvelle facture) il me met le message suivant : "subscript out of range", alors que sur mon ordi portable tout marche a merveille

Je vous fait parvenir ma macro :

Macro feuille1

Dim newWorkBook As Workbook

Dim V As String

Dim W As String

Dim X As String

Dim Z As String

V = "C:\Devis Factures\Factures\" 'a modifier si besoin

W = Sheets(1).Cells(10, 2) 'date

X = Sheets(1).Cells(10, 3) 'numéro d'ordre

Z = "Facture vierge" 'a modifier si besoin

'on déclare un nouveau fichier Excel contenant 1 feuille

Set newWorkBook = Application.Workbooks.Add(xlWBATWorksheet)

newWorkBook.SaveAs Filename:=V & W & X & ".xls", FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

Workbooks(Z & ".xls").Sheets("Feuil1").Range("A1:H49").Copy

Workbooks(W & X & ".xls").Worksheets("Feuil1").Select

Selection.PasteSpecial Paste:=xlPasteFormats ' Formats de cellule

Selection.PasteSpecial Paste:=xlPasteColumnWidths ' Largeurs de colonne

ActiveSheet.Paste ' Texte

Application.CutCopyMode = False ' Vide le presse papier

Workbooks(Z & ".xls").Close False 'Fermeture de Facture vierge.xls

End Sub

Sub ajouter()

'

' macro appelée à l'ouverture du fichier

' Macro enregistrée le 13/06/2008 par Patrick Alias "Chtilou"

'

'

A = Cells(10, 3)

Range("A").Select

ActiveCell.FormulaR1C1 = "=R[3]C"

Range("A").Select

ActiveCell.FormulaR1C1 = "=R[-3]C+1"

Range("A").Select

End Sub

ThisWorkBook

Private Sub Workbook_Open()

FactVierge = "C:\Devis Factures\Facture vierge.xls"

Rep = "C:\Devis Factures"

Dim numero As Integer

numero = Cells(10, 3)

numero = numero + 1

Feuil1.Cells(10, 3).Value = numero

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _

FactVierge, _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Application.DisplayAlerts = True

End Sub

Comment ce fait t´il que cette macro marche sur un ordinateur mais pas sur un autre pourtant les deux versions sont des excel 2007 ?

J´ai regardé un peu sur d´autre site mais cela na pas donnée grand chose

Merci d´avance a tous

ps : désolé pour l´orthographe je suis sur un clavier espagnol

Bonjour et bienvenue Temz,

Difficile de dire au vu de ton code. Une erreur de type "subscript out of range" signifie généralement que tu fais référence à un moment donné à un objet inexistant.

Le mieux serait que tu nous dises à quelle ligne ça bug. Lorsque tu arrives sur le message d'erreur, clique sur un bouton qui s'appelle "Débogage" (en français). Je ne sais pas quelle est la traduction en anglais.

La ligne fautive se surlignera en jaune.